我是个刚学VB的新手,这是我写的1个代码,不知道错在什么地方,望高手指点

来源:百度知道 编辑:UC知道 时间:2024/09/20 23:28:41
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 Form_Load()
Text1.FontSize = 20
End Sub

Private Sub Text1_Change()
If Check1.Value = 1 Then
Text1.FontUnderline = Ture
ElseIf Check2.Value = 1 Then
Text1.FontItalic = Ture
End If
End Sub

我想写的是在你输入字母以后 你点复选筐1和2 可以给数字加下划线和使字体倾斜,但是我运行后都达不到想要的结果 不知道错在那 望高手指点下
我先在这里谢谢了

我晕,你写的都是Ture......应该是True.....u和r写反了....
自己好好检查下嘛~~~这种错误!!~~~

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 Form_Load()
Text1.FontSize = 20
End Sub

Private Sub Text1_Change()
If Check1.Value = 1 Then
Text1.FontUnderline = Ture
ElseIf Check2.Value = 1 Then
Text1.FontItalic = Ture
End If
End Sub