vb中如何设置使第一次按下命令按钮让text中的字体加上下划线,第二次按下去掉下划线
发布网友
发布时间:2022-05-03 08:17
我来回答
共1个回答
热心网友
时间:2023-10-16 09:18
Private Sub Command1_Click()
If Me.Command1.Caption = "加上下划线" Then
Text1.FontUnderline = True
Me.Command1.Caption = "去掉下划线"
Else
Text1.FontUnderline = False
Me.Command1.Caption = "加上下划线"
End If
End Sub
Private Sub Form_Load()
Me.Command1.Caption = "加上下划线"
End Sub
热心网友
时间:2023-10-16 09:18
Private Sub Command1_Click()
If Me.Command1.Caption = "加上下划线" Then
Text1.FontUnderline = True
Me.Command1.Caption = "去掉下划线"
Else
Text1.FontUnderline = False
Me.Command1.Caption = "加上下划线"
End If
End Sub
Private Sub Form_Load()
Me.Command1.Caption = "加上下划线"
End Sub