Text1.FontItalic = Chkstyle2.Value
End Sub
Private Sub Chkstyle3_Click()
Text1.FontUnderline = Chkstyle3.Value
End Sub
Private Sub Optcolor1_Click()
If Optcolor1.Value = True Then Text1.ForeColor = vbRed
End Sub
Private Sub Optcolor2_Click()
If Optcolor2.Value = ture Then Text1.ForeColor = vbYell
相关下载链接:
//download.csdn.net/download/zhao451379180/4852273?utm_source=bbsseo