TAB key afvangen in VB6.0

[anoniem]

Ik ben op zoek naar een manier om in een flexgrid de tabkey af te vangen. 1 ding is zeker, met een keypress chr$ 9 werkt het niet... Iemand enig idee hoe dit op te lossen is ??

[anoniem]

is er niet iets te maken van on key(9) gosub blabla? tis QBasic, ik weet het, maar het zou kunnen werken ;)

[anoniem]

Ik heb het ff geprobeerd en het gaat zo: Dubbelklik op de flexgrid om naar de code te gaan. Voeg dan deze code toe: [code:1:39474874bf]Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) If KeyAscii = 9 Then 'Hier kun je je eigen code neerzetten MsgBox "Je drukte op de TAB-toets!" End If End Sub[/code:1:39474874bf] Vervang dan wel 'MSFlexGrid1' door de echte naam van de flexgrid. Bijvoorbeeld: "Private Sub MijnEigenFlexGrid_KeyPress(KeyAscii As Integer)" Tussen de If en de End If kun je je eigen code zetten.

[anoniem]

[quote:56d14a038c="thepianoman17"] [code:1:56d14a038c]Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) If KeyAscii = 9 Then 'Hier kun je je eigen code neerzetten MsgBox "Je drukte op de TAB-toets!" End If End Sub[/code:1:56d14a038c] [/quote:56d14a038c] Ranzige code herschreven: [code:1:56d14a038c] Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) If (KeyAscii = KeyCodeConstants.vbTab) Then 'Hier kun je je eigen code neerzetten MsgBox "Je drukte op de TAB-toets!" End If End Sub [/code:1:56d14a038c]

[anoniem]

Om ook daadwerkelijk het effect van het drukken op de tab toets ongedaan te maken moet je ook (tussen If en End If) KeyAscii = 0 neer zetten. Dus zo:[code:1:9655f322a8]Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) If (KeyAscii = KeyCodeConstants.vbTab) Then 'Hier kun je je eigen code neerzetten KeyAscii = 0 MsgBox "Je drukte op de TAB-toets!" End If End Sub[/code:1:9655f322a8]Want dat bedoelde je toch ook met 'afvangen'? PS ik heb dit alleen gebruikt bij textboxes, ik heb eerlijk gezegd nooit gehoord van een flexgrid :oops: , maar ik heb zo het idee dat dit wel lukt :wink: