VB中高手来,哈哈,ASCII码问题,刚注册,没分数

Question

就是我想弄个Form keypress函数 
再做一个文本,只要我鼠标点窗口的空白处,然后按下键盘的什么键 
Text1.text就会依次得到他的AScii值例如按一个r 
text1.text=114,再按一个t现在就是rt,text1.text=114115 
我的目的是最终如果text1.text=114115114115那么form2.show 
其实就是做一个隐藏的快捷键,直至按下rtrt就会弹出这个窗口!

Answer 1

纠正按下t,其ASCII值为116,你新建VBEXE工程,窗体上放按钮控件和TEXTBOX控件.设置按钮的属性TabIndex为0,设置窗体的属性KeyPreview为True. 
代码如下: 
Private Sub Form_KeyPress(KeyAscii As Integer) 
Text1 = Text1 & Right(("0" & KeyAscii), 3) 
End Sub Private Sub Form_Load() 
Command1.TabIndex = 0 
Text1 = "" 
Me.KeyPreview = True 
End Sub Private Sub Text1_Change() 
If Text1 = "114116114116" Then 
Form2.Show 
End If 
End Sub

Answer 2

郁闷死掉,你也在CSDN回答,刚才你才在百度回答我的问题的!!!!
看百度消息,加我为下好友吧,我QQ38672955