首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-02-29 
VB中高手来,哈哈,ASCII码问题,刚注册,没分数就是我想弄个Formkeypress函数再做一个文本,只要我鼠标点窗口

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

[解决办法]
纠正按下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

热点排行