Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

TAB key afvangen in VB6.0

leijer
4 antwoorden
  • 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 ??
  • is er niet iets te maken van

    on key(9) gosub blabla?

    tis QBasic, ik weet het, maar het zou kunnen werken ;)
  • 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: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]

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.