vb小问题,各位帮忙 用showfont后怎么知道点的是确定还是取消按纽啊????就是commanddialog.showfont啊 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Private Sub Command1_Click()' 设置“取消”为 TrueCommonDialog1.CancelError = TrueOn Error GoTo ErrHandler' 设置 Flags 属性CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth' 显示“字体”对话框CommonDialog1.ShowFontText1.Font.Name = CommonDialog1.FontNameText1.Font.Size = CommonDialog1.FontSizeText1.Font.Bold = CommonDialog1.FontBoldText1.Font.Italic = CommonDialog1.FontItalicText1.Font.Underline = CommonDialog1.FontUnderlineText1.FontStrikethru = CommonDialog1.FontStrikethruText1.ForeColor = CommonDialog1.ColorExit SubErrHandler:' 用户按了“取消”按钮Exit SubEnd Sub CommonDialog1.CancelError 返回是否按了取消按纽 谁可以帮我 请叫DataGrid控件问题?问题“当前行不可用” 如何在程序里返回一个已知域名的IP地址 有关二进制文件的传输 哪里能下载到VB的控件,属性,事件,方法大全的电子文档,不胜感激!! 很简单的字符串排序问题 如何把文件用MSComm进行收发? datagrid 控件难题 高手帮助!!!!! 请问什么时候需要以这种格式使用trim$()其中的$起什么作用? 如何在VB中录制并播放MP3、和.rm文件? 怎样使新form显示在所有form的最前端? window 2000上网,经常跳出“信使服务”的广告,如何通过设置Win 2k 来达到杜绝它?
' 设置“取消”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置 Flags 属性
CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
' 显示“字体”对话框
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
返回是否按了取消按纽