VB改变字号

来源：百度知道 编辑：UC知道 时间：2024/06/21 23:04:37
每按一次“增大”或“缩小”按钮将使文本框中的文字增大或缩小5磅

文本框属性名 T
命令按钮 C1 增大
命令按钮 C2 缩小

这么容易就得到代码，你能看得懂吗！
下次遇到同样的问题，你能自己解决吗！

Private Sub C1_Click()
If T1.FontSize < 100 Then T1.FontSize = T1.FontSize + 5
End Sub

Private Sub C2_Click()
If T1.FontSize > 1 Then T1.FontSize = T1.FontSize - 5
End Sub

Private Sub C1_Click()
If T.Font.Size < 100 Then
T.Font.Size = T.Font.Size + 5
Else
T.Font.Size = 100
End If
End Sub

Private Sub C2_Click()
If T.Font.Size > 0 Then
T.Font.Size = T.Font.Size - 5
Else
T.Font.Size = 1
End If
End Sub