大虾们帮帮忙,看看这个程序有什么问题 小弟初学
程序代码:
Private Sub Command1_Click() CommonDialog1.CancelError = True On Error GoTo ErrHandler CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth Me.CommonDialog1.ShowFont Text1.FontName = CommonDialog1.FontName Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontSize = CommonDialog1.FontSize Text1.FontUnderline = CommonDialog1.FontUnderline Text1.ForeColor = CommonDialog1.Color Text1.FontStrikethru = CommonDialog1.FontStrikethru Exit Sub ErrHandler: '用户按了“取消”按钮 Exit Sub End Sub Private Sub Form_Load() Text1.Text = " safjsd fjsl jfsklj fls; jfsl jf咖地方vfs飞 地方算法啊" End Sub真心不懂啊 看了老半天了