[已解决]求助，按CTRL+减号 使文本框中的字缩小

fkm504

全称的地方是一个TEXTBOX1 文本框，如何实现在文本框长度确定的情况下，CTRL+减号 使字体缩小！代码怎么编写啊！各位大侠

最佳答案

月排行榜 / 总排行榜

lordking

2012-8-18 09:48

fkm504 发表于 2012-8-18 09:34
这我知道，但实际使用中不可能这样做吧！

1. Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
2.     If Button = 2 And Shift = 2 Then  '右键加ctrl键字体缩小
   
3.         TextBox1.Font.Size = TextBox1.Font.Size - 1
   
4.     ElseIf Button = 2 And Shift = 1 Then    '右键加shift键字体放大
   
5.         TextBox1.Font.Size = TextBox1.Font.Size + 1
   
6.     End If
   
7. End Sub

复制代码

跳转到最佳答案楼层

ws278106483

好像是通过它的属性来设置字体大小。。

fkm504

ws278106483 发表于 2012-8-18 09:31
好像是通过它的属性来设置字体大小。。

这我知道，但实际使用中不可能这样做吧！

lordking

fkm504 发表于 2012-8-18 09:34
这我知道，但实际使用中不可能这样做吧！

1. Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
2.     If Button = 2 And Shift = 2 Then  '右键加ctrl键字体缩小
   
3.         TextBox1.Font.Size = TextBox1.Font.Size - 1
   
4.     ElseIf Button = 2 And Shift = 1 Then    '右键加shift键字体放大
   
5.         TextBox1.Font.Size = TextBox1.Font.Size + 1
   
6.     End If
   
7. End Sub

复制代码

fkm504

lordking 发表于 2012-8-18 09:48

非常感谢啊！谢谢啊{:171:}

柳如烟

1. 
   
2. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
3.     On Error Resume Next
   
4.     If Shift = 2 Then
   
5.         Select Case KeyCode
   
6.             Case 107, 187: TextBox1.Font.Size = TextBox1.Font.Size + 1  'Ctrl+加号，增加字号
   
7.             Case 109, 189: TextBox1.Font.Size = TextBox1.Font.Size - 1  'Ctrl+减号，缩小字号
   
8.         End Select
   
9.     End If
   
10. End Sub
    

复制代码

为防止错误提示，重新修改一下

柳如烟

                                    

tang05610104

没有按键运行程序呢