27. marts 2001 - 19:08Der er
12 kommentarer og 1 løsning
Gensprg.( Det første svar var ikke rigtig ): Hvordan fanger jeg når der bliver trykket på Tab-tasten ?
Jeg fik sendt noget kode, som fint fanger når en tast bliver tastet, men dan fanger ikke når det er tab-tasten der er blevet aktiveret. Hvordan gør jeg det ??
Vedlagt koden fra det tidligere svar på eksperten:
Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 9 Then MsgBox \"Tab was pressed\", vbOKOnly, \"GOT IT !!\" End If End Sub
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Den fanger stadig ikke tab-tasten. Det er som om når formen bruger den default til at rykke fra felt til felt, så kan man ikke \"fange\" den når den aktiveres.
Private Declare Function GetKeyState% _ Lib \"User32\" (ByVal nVirtKey%)
Private Sub Text1_LostFocus() If GetKeyState(vbKeyTab) < 0 Then Text1.SetFocus MsgBox \"Du kan forsøge - \" & _ \"men, du kommer aldrig ud af tekstboksen\"
Det går fint nok med at fange tab-tasten nu, hvordan fanger jeg så hvis shift og tab bliver aktiveret, så jeg skal kunne \"gå\" tilbage. Det er som om både tab og shift-tab har integer værdi 9 begge to.
Private Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer) Dim ShiftDown ShiftDown = (Shift And vbShiftMask) > 0 End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
