Class CTestWindow Public hMainWnd As HWND Sub CTestWindow() Assist.TestWindowPtr=VarPtr(This) Dim WCE As WNDCLASSEX With WCE .cbSize=Len(WCE) .style=CS_DBLCLKS Or CS_HREDRAW Or CS_OWNDC Or CS_VREDRAW .lpfnWndProc=AddressOf(MainWindowProc) .cbClsExtra=0 .cbWndExtra=0 .hInstance=GetModuleHandle(NULL)...
すみません、意味を取り違えてしまいました。 任意のキーの組み合わせが押されたら何か処理をさせたいということでしょうか。 Ctrl+A なら、WM_KEYDOWN が飛んできたときに キーが A で、なおかつ Ctrl キーも一緒に押されていたのであれば処理をさせる、という流れになります。 RAD の場合はこうなります。 Sub MainWnd_KeyDown(KeyCode As Long, flags As Long) If KeyCode=Asc("A") And GetKeyState(VK_CONTROL)<0 Then '何か End If End Sub もし ...