Question

vb 加下划线

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
If Check1.falue = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub

Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)
If Check2.falue = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
End Sub
大家帮我看看这一段有什么错了？
Private Sub Frame1_Click()
If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub

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

Private Sub Option1_Click()
Text1.FontSize = 16
End Sub

Private Sub Option2_Click()
Text1.FontSize = 24
End Sub

Private Sub Text1_Change()

End Sub

Answer 1

If Check1.falue = 1 Then改成If Check1.Value = 1 Then
If Check2.falue = 1 Then改成If Check2.Value = 1 Then

Answer 2

你碰到什么问题了？