24. marts 2009 - 14:01Der er
2 kommentarer og 1 løsning
KeyDown i textbox
Jeg er i gang med at lave nogle funktioner i VBA og bruger Userforms. Jeg har en textbox hvor at jeg ønsker at man kan trykke på keyDown, og så sker der noget i en listbox... De funktioner har jeg lavet... Men problemet er at når jeg trykker på pilned så rykker cursoren videre til det næste felt i userformen. Det kunne f.eks. være at den rykker ned i en listbox. Dette vil jeg gerne have stoppet... Så man kun kan komme videre hvis man trykker tab eller at jeg definere andre taster, den skal bare ikke rykke videre når der bliver trykket pilned.
Jeg har lavet følgende kode, så den sætter alle 4 piletaster ud af funktion i TextBox1. Hvis det kun er pil ned, du vil sætte ud af funktion, kan du fjerne de andre (37, 38, 39):
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'Sæt alle 4 piletaster ud af funktion i TextBox1 'venstre = 37, op = 38, højre = 39, ned = 40 Select Case KeyCode Case 37, 38, 39, 40 'Piletaster er brugt, bliv i TextBox1 KeyCode = 0 End Select End Sub
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.