ник: alecks_lp
Глючит после применения API
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_TAB = &H9 ' Константа для TAB key.
...
Do...
...
If GetAsyncKeyState(VK_TAB) = 0 Then
Else
If MsgBox("Прервать печать?", vbOKCancel, strMsgTitle) = vbOK Then Exit Do
End If
Loop
|
По табу отрабатывает, по пробелу дуркует.
Короче, кислая тема.