请教：点击窗体上的命令按钮弹出一个关于字体的窗体，用vb怎么写？

千问 · 2011-7-10 02:42:46

2.用ShowFont方法显示对话框。下列代码根据用户在“字体”对话框中的选择来设置文本框的字体属性：
PrivateSubCommand1_Click()\'将Cancel设置成True。
CommonDialog1.CancelError=True
OnErrorGoToErrHandler\'设置Flags属性。
CommonDialog1.Flags=cdlCFBothOrcdlCFEffects\'显示“字体”对话框。
CommonDialog1.ShowFont\'根据用户的选择来设置文本属性。
Text1.Font.Name=CommonDialog1.FontName
Text1.Font.Size=CommonDialog1.FontSize
Text1.Font.Bold=CommonDialog1.FontBold
BoldText1.Font.Italic=CommonDialog1.FontItalic
Text1.Font.Underline=CommonDialog1.FontUnderline
Text1.FontStrikethru=CommonDialog1.FontStrikethru
Text1.ForeColor=CommonDialog1.Color
ExitSub
ErrHandler:
\'用户按了“取消”按钮。
ExitSub
EndSub