Hallo,
ich hab' mir ein Handling für Dialoge gebaut und muss darin u.a. auch das Control auslesen, aus dem der Keydown kam.
Wenn es eine Combobox ist, dann soll
Bei Zeile 11 kommt immer Nothing - was mach' ich hier falsch?
LG
ich hab' mir ein Handling für Dialoge gebaut und muss darin u.a. auch das Control auslesen, aus dem der Keydown kam.
Wenn es eine Combobox ist, dann soll
Keys.Down
und Keys.Up
kein Tab bzw. BackTab senden.Bei Zeile 11 kommt immer Nothing - was mach' ich hier falsch?
LG
VB.NET-Quellcode
- Imports System.Runtime.CompilerServices
- Public Module frmHandling
- ''' <summary> übernimmt das Key-Handling eines Dialogs </summary>
- <Extension>
- Public Sub RegisterDlgKeyHandler(dlg As Form)
- AddHandler dlg.KeyDown, AddressOf dlg_KeyDown
- End Sub
- Private Sub dlg_KeyDown(sender As Object, e As KeyEventArgs)
- Dim dlg = DirectCast(sender, Form)
- Dim ctl = TryCast(sender, ComboBox)
- Select Case e.KeyCode
- Case Keys.Enter : sendTab()
- Case Keys.F6 : dlg.DialogResult = DialogResult.OK
- Case Keys.Down : If Not ctl.NotNull Then sendTab()
- Case Keys.Up : If Not ctl.NotNull Then backTab()
- End Select
- End Sub
- End Module
"Na, wie ist das Wetter bei dir?"
"Caps Lock."
"Hä?"
"Shift ohne Ende!"
"Caps Lock."
"Hä?"
"Shift ohne Ende!"