vb键盘事件

vb键盘事件



代码窗口----事件-----
(通用)里有控件名      (声明)【默认为Click()鼠标单击事件】

列:键盘按下任意键事件
Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKey0 Then  '如果 键盘按下0 则
Text1 = "1113824550"        ’发生事件
End If                      '结束条件
End Sub

不定义默认为:如果 键盘按下任意键 则 发生事件
Private Sub Command1_KeyPress(KeyAscii As Integer)
Text1 = "1113824550"        ’发生事件                  
End Sub

_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/