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 时删除线

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

我很笨的,讲一讲这句

Text1.FontUnderline = Option1.Value

对不起, 我去了好多论坛,他们都觉得我的问题太简单了,这里太好了,

Text1.FontUnderline = Option1.Value Text1.FontItalic = Option2.Value Text1.FontStrikethru = Option3.Value

上面代码的意是不是,只有option1.value时,Text1.FontUnderline

而option不能全部都选中,所以就只能出现一种情况,