anoniem Geplaatst: 14 juni 2004 Delen Geplaatst: 14 juni 2004 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 ?? Quote Link naar reactie
anoniem Geplaatst: 15 juni 2004 Auteur Delen Geplaatst: 15 juni 2004 is er niet iets te maken van on key(9) gosub blabla? tis QBasic, ik weet het, maar het zou kunnen werken ;) Quote Link naar reactie
anoniem Geplaatst: 4 juli 2004 Auteur Delen Geplaatst: 4 juli 2004 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. Quote Link naar reactie
anoniem Geplaatst: 4 juli 2004 Auteur Delen Geplaatst: 4 juli 2004 [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] Quote Link naar reactie
anoniem Geplaatst: 30 juli 2004 Auteur Delen Geplaatst: 30 juli 2004 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: Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen