Beste,
Kan iemand mij uitleggen hoe ik een KeyDown-Event kan activeren door het drukken op een CommandButton?
Ik heb een ListBox, waarin lege regels staan (= de bedoeling).
Als ik op "PijlNaarBeneden" druk, dan verspringt de selectie in de LisBox naar het eerstvolgende record met waarde in.
Ik zou dit event ook willen triggeren door op een CommandButton te klikken.
Heb onderstaande code geprobeerd, maar zonder succes.
Kan iemand mij op weg helpen?
Ik zou de juiste KeyCode nodig hebben denk ik... maar vind ze niet.
Heb onderstaande website al gecheckt... "0x28" werkt niet...
https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/keycode-constants
Is moeilijk om een voorbeeld hiervan te posten... zonder heel m'n code vrij te geven (wat het er vermoedelijk niet duidelijker op gaat maken), anders zou ik het wel doen.
Code Event (werkt):
Korte Toelichting: Als ik op Keybord "PijlNaarBeneden" of "PijlNaarBoven" druk, springt selectie naar 1st volgende gevulde record.
Op het einde (of begin) van de listbox kan de selectie natuurlijk niet verder, om error te vermijden ga ik terug naar laatste selectie.
Code CommandButtond (werkt niet)
Ik krijg onderstaande foutmelding
Kan iemand mij uitleggen hoe ik een KeyDown-Event kan activeren door het drukken op een CommandButton?
Ik heb een ListBox, waarin lege regels staan (= de bedoeling).
Als ik op "PijlNaarBeneden" druk, dan verspringt de selectie in de LisBox naar het eerstvolgende record met waarde in.
Ik zou dit event ook willen triggeren door op een CommandButton te klikken.
Heb onderstaande code geprobeerd, maar zonder succes.
Kan iemand mij op weg helpen?
Ik zou de juiste KeyCode nodig hebben denk ik... maar vind ze niet.
Heb onderstaande website al gecheckt... "0x28" werkt niet...
https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/keycode-constants
Is moeilijk om een voorbeeld hiervan te posten... zonder heel m'n code vrij te geven (wat het er vermoedelijk niet duidelijker op gaat maken), anders zou ik het wel doen.
Code Event (werkt):
Korte Toelichting: Als ik op Keybord "PijlNaarBeneden" of "PijlNaarBoven" druk, springt selectie naar 1st volgende gevulde record.
Op het einde (of begin) van de listbox kan de selectie natuurlijk niet verder, om error te vermijden ga ik terug naar laatste selectie.
Code:
Private Sub ListBoxTitels_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyDown Then
On Error GoTo ErrorHandlingKeyDown
Do Until ListBoxTitels.List(ListBoxTitels.ListIndex + 1, 1) <> ""
ListBoxTitels.Selected(ListBoxTitels.ListIndex + 1) = True
Loop
End If
If KeyCode = vbKeyUp Then
On Error GoTo ErrorHandlingKeyUp
Do Until ListBoxTitels.List(ListBoxTitels.ListIndex - 1, 1) <> ""
ListBoxTitels.Selected(ListBoxTitels.ListIndex - 1) = True
Loop
End If
Exit Sub
ErrorHandlingKeyDown:
With ListBoxTitels
.Selected(.ListIndex - 2) = True
End With
Exit Sub
ErrorHandlingKeyUp:
With ListBoxTitels
.Selected(.ListIndex + 2) = True
End With
Exit Sub
End Sub
Code CommandButtond (werkt niet)
Code:
Private Sub CommandButton4_Click()
Call ListBoxTitels_KeyDown(vbKeyDown)
End Sub
Ik krijg onderstaande foutmelding
Laatst bewerkt: