Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontUnderline = ture Else Text1.FontUnderline = False End If End Sub

Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = ture Else Text1.FontItalic = False End If End Sub

Private Sub Check3_Click() If Check3.Value = 1 Then Text1.FontStrikethru = True Else Text1.FontStrikethru = False End If

End Sub

Private Sub Command1_Click() Unload Me End Sub

Private Sub Form_Load() Text1.Text = "一个好人" End Sub

我想当check1 click时,textj里字体有下划线,

check2 click时成斜体

check3 click 时删除线

我觉得我写的没错误呀,可运行时不行

代码我运行过，没错啊？

你把下面的沾上试一试

Option Explicit

Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub

Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub

Private Sub Check3_Click() If Check3.Value = 1 Then Text1.FontStrikethru = True Else Text1.FontStrikethru = False End If

End Sub

Private Sub Command1_Click() Unload Me End Sub

Private Sub Form_Load() Text1.Text = "一个好人" End Sub

不过你的效果是叠加的，就是当三个checkbox都选中时，text里的字体就是斜体加下划线加删除线，你是不是需要在任何时候只显示一种字体效果？这样的话，你把checkbox改成optionbutton，代码改成这样：

Private Sub Option1_Click() Text1.FontUnderline = Option1.Value Text1.FontItalic = Option2.Value Text1.FontStrikethru = Option3.Value End Sub

Private Sub Option2_Click() Text1.FontUnderline = Option1.Value Text1.FontItalic = Option2.Value Text1.FontStrikethru = Option3.Value

End Sub

Private Sub Option3_Click() Text1.FontUnderline = Option1.Value Text1.FontItalic = Option2.Value Text1.FontStrikethru = Option3.Value

End Sub