' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
' Author:吴文智
' Date:2001-11-21
'Description:要试用本例请在窗体中填加一个Label,并将窗体的KeyPreview设为True
' 然后在代码窗体中粘贴如下代码
' Good luck!Option ExplicitPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyBack
Label1.Caption = Left(Label1.Caption, Len(Label1.Caption) - 1)
'自己再加入需要的键值判断
Case Else
Label1.Caption = Label1.Caption & Chr(KeyCode)
End Select
End Sub
'
' Author:吴文智
' Date:2001-11-21
'Description:要试用本例请在窗体中填加一个Label,并将窗体的KeyPreview设为True
' 然后在代码窗体中粘贴如下代码
' Good luck!Option ExplicitPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyBack
Label1.Caption = Left(Label1.Caption, Len(Label1.Caption) - 1)
'自己再加入需要的键值判断
Case Else
Label1.Caption = Label1.Caption & Chr(KeyCode)
End Select
End Sub
高,实在是高