Varför får jag inte keypress att fungera med tab? däremot med enter funkar det utmärkt!! är det något speciell med tab? Hur ser koden ut? Exempel Detta funkar inte!! Jag har testat, och märkte att det visst inte funkade så bra. Kan det bero på att om man ska flytta markören från t.ex. en ruta till en annan ruta, trycker man ju på tabb, det är standard i Windows. Kan det bero på det? Eftersom tab tangenten används för att navigera mellan kontroller i Windows. Har vb lagt beslag på den. Om man måste använda sig av den kan man subclass kontrollen eller formuläret och registrera den som en shortcut key... Skulle vara trevligt om någon hade ett stabilare mindre avancerat sätt att göra det på. hej Hej Vi säger att jag till exempel vill fylla en listview vid tabtryckning.. nåt sånt får jag inte att fungera... =( Du kan använda dig av .LostFocus, den händelsen triggas när du tabbar dig UR ett fält. Tänkt på det men Funkar inte om användaren får för sig att använda musen och trycka nån annanstans i formuläret.. Keypress och tab..
Sv: Keypress och tab..
Sen gjorde jag en annan upptäckt också. Tab och bokstaven "i" har samma KeyAscii i VB :-(
MvH Dan "DaPe" PerssonSv: Keypress och tab..
Private Sub Keypress osv..
if KeyAsii = 8 Then ' eller vad tab nu hade kommer inte ihåg
txtTabfunkardåligt.setfocus
End If
Skulle man däremot ha Enter så funkar det..
Private Sub Keypress osv..
If KeyAscii = 13 Then
txtEnterFunkarbra.setfocus
End If
Vad är det för fel på tab knappen??Sv: Keypress och tab..
MvH Dan "DaPe" PerssonSv: Keypress och tab..
Sv: Keypress och tab..
Det här funkar på min maskin och har alltid gjort så.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 9 Then Text2.SetFocus ' 9 = Tab
End Sub
mvh
SvenSv: Keypress och tab..
Förra svaret blev lite snabbt och fel
Det finn två sätt att komma förbi dilemmat.
1. Se till att TextKontrollerna :s TabIndex ligger i den ordning
som man vill ha. TabOrder kommer före KeyAscii där för går
kursorn till den kontroll som ligger i tur när du trycker Tab.
2 Du kan skriva så här
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 9 Then
KeyAscii = 0 'hindra att kursorn går till Text2
Text3.SetFocus
End If
End Sub
mvh
SvenSv: Keypress och tab..
Sv: Keypress och tab..
.GotFocus triggas när kommer till fältet.
/StefanSv: Keypress och tab..