Использую vb2005, создал пустую форму, описал winproc
- Код: Выделить всё
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Dim s As String
s = "0x" + String.Format("{0:X4}", m.Msg)
Select Case s
Case "0x0100"
MsgBox("KEY down " + Hex(m.WParam.ToInt32))
Case "0x0101"
MsgBox("KEY up " + Hex(m.WParam.ToInt32))
End Select
MyBase.WndProc(m)
End Sub
End Class
в результате при нажатие на клавиши выскакивает сообщение "KEY down"
сообщение "KEY up" не появляется ?
при размещении на форме дополнительных компонент типа TextBox, PictureBox
winproc не получает управления ?
Как это можно побороть ?