北京我爱你歌词的歌:VB中如何调用系统字体对话框呢？

来源：百度文库编辑：神马品牌网时间：2024/04/28 03:16:25

在窗体上放一个commondialog控件

Private Sub Command1_Click ()
'将 Cancel 设置成 True。
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
'设置 Flags 属性。
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
'显示“字体”对话框。
CommonDialog1.ShowFont
'根据用户的选择来设置
'文本属性。
Text1.Font.Name = CommonDialog1.FontName
Text1.Font.Size = CommonDialog1.FontSize
Text1.Font.Bold = CommonDialog1.FontBold
Text1.Font.Italic = CommonDialog1.FontItalic
Text1.Font.Underline = CommonDialog1.FontUnderline
Text1.FontStrikethru = CommonDialog1.FontStrikethru
Text1.ForeColor = CommonDialog1.Color
Exit Sub
ErrHandler:
'用户按了“取消”按钮。
Exit Sub
End Sub

使用commondialog控件就可以了！

VB中如何调用系统字体对话框呢？ vc 中如何在架API 中调用字体对话框 vc中如何调用对话框如何在vb中调用系统的计算器程序？ vb中如何调用应用程序? VB 中如何调用SQl Server的存储过程呢？如何在delphi中编写一个调用"自己设置的字体"的对话框? VC中,如何通过调用字体通用对话框来改变一个控件的文本的颜色 vb中如何调用图标文件请问VB中如何调用三角函数？