ник: Силblч
почти да :) но для VB
у мня акс2003
решил так :)
Private Sub GridData_KeyUp(KeyCode As Integer, ByVal Shift As Integer)
On Error GoTo err12345
StateCtrl = GetAsyncKeyState(VK_CONTROL)
StateC = GetAsyncKeyState(VK_C)
If (StateCtrl And &H1) = &H1 And (StateC And &H1) = &H1 Then
MsgBox "Control key + C pressed"
exit sub
End If
Exit Sub
err12345:
MsgBox Error, vbExclamation, "GD_KeyUP #" & Err.Number
Exit Sub
End Sub
|
но можно было чуть проще...
