Question

VB中点击文本框可以使字体 变大变小command的代码

Answer 1

Private Sub Command1_Click()
If Text1.SelLength > 0 Then
Text1.FontSize = Text1.FontSize + 1
End If
Text1.SetFocus
End Sub

Answer 2

Private Sub Command1_Click()
    '变大
    Text1.FontSize = Text1.FontSize + 1
End Sub


Private Sub Command2_Click()
    '变小
    Text1.FontSize = Text1.FontSize - 1
End Sub