# Re: 加入以下程式码: Good luck! ^_^

Posted by 哈林 on January 02, 1999 at 22:00:07:

In Reply to: keycode posted by 小小 on January 02, 1999 at 21:22:51:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 67
If (Shift And vbShiftMask) Then
Label1.Caption = "Shift-c"
ElseIf (Shift And vbCtrlMask) Then
Label1.Caption = "Ctrl-c"
ElseIf (Shift And vbAltMask) Then
Label1.Caption = "Alt-c"
Else
Label1.Caption = "c"
End If
End Select
End Sub

Follow Ups:

- Re: 加入以下程式码: Good luck! ^_^ 小小 11:32:43 1/03/99 (0)