VB用户界面设计课件.pptVIP

Private Sub cmdFont_Click() On Error Resume Next CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.ShowFont If CommonDialog1.FontName Then Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline End Sub Private Sub cmdOpen_Click() CommonDialog1.CancelError = True On Error GoTo nofile CommonDialog1.ShowOpen Text1.Text =