Ik ben nu bezig met VB6, en wilde een toetsactie definiëren. Dit is niet zo moeilijk, aangezien hier een speciale functie voor is die dit afvangt, echter dit is een methode voor een formulier, en als ik dus een object (bv een lijst) op dat formulier zet, dan doet de methode Form_KeyDown niets meer zodra die lijst de focus krijgt. Nu heb ik geprobeerd om zodra die lijst de focus krijgt, die focus weer terug te geven aan het formulier, maar dit werkt niet...
Iemand een oplossing??
Iemand een oplossing??
code:
1
2
3
4
5
6
7
8
9
10
11
12
| 'Methode voor het teruggeven van de focus
Private Sub List1_GotFocus()
frmWelkom.SetFocus
End Sub
'KeyDown methode
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'65 = A
If KeyCode = 65 Then
List1.AddItem ("Test")
End If
End Sub |