13问答网 > VB 如何点击Command5弹出‘字体’大小窗口来控制Text1内的文字大小的代码！

VB 如何点击Command5弹出‘字体’大小窗口来控制Text1内的文字大小的代码！

这个窗口

2025-03-13 21:01:52

推荐回答（2个）

回答1：

Private Sub Command5_click()
Text1.FontSize = X
End Sub
或
Private Sub Command5_click()
Text1.FontSize = text1.FontSize+y
End Sub
注：X为你想可以是字体大小，也可以是字号，例，Text1.Fontsize=36或Text1.FontSize="二号"
y为每一次按下Command键时字体增大或减小的字体大小,例，Text1.FontSize = text1.FontSize+5或Text1.FontSize = text1.FontSize-5

回答2：

API调出字体对话框
参考:http://hi.baidu.com/arteriosclerosis/blog/item/2e3de9dca9991ee776c638fe.html
已经测试过没问题!