02. juni 2007 - 17:34Der er
7 kommentarer og 1 løsning
timer + key tast
Hej exp'er
Jeg sidder med prøver at lave et lille program der skal selv finde ud af hvis jeg skriver "w" i mit text1.text og klikker på min command1 så hvert 10sec skal den så selv klikke eller tast tasten "w" eller havd jeg nu har skrive men ved ikke lige hvordan man skal for det i din timer
håber der nogle der kan hjælpe mig og forstår hvad jeg vil
Jeg vil gerne hjælpe dig, men jeg har meget svært ved at forstå dit spørgsmål.
Du skriver et bogstav i en textbox. Når du klikker på en knap, så starter en funktion, der hvert 10. sekund skriver det samme bogstav en gang til i textboxen. (Er det kun ved et bogstav)?
Er det hvad du vil? Hvordan stoppes igen?
Prøv at omformulere dit spørgsmål, og forsøg at bruge komma og punktum denne gang.
Jeg vil lige sige at jeg ikke kan finde ud af komma og punktum det fik jeg lært i min skole tid. + at jeg er ordblind.
Men jeg skal nok prøve.
1. Jeg har lavet et tekst felt, hedder (Text1) 2. Har taget en timer ind i form, hedder (Timer1) 3. Har lavet en check1, hedder (Check1) 4. Har lavet en tekst felt mere, hedder (Text2)
Det jeg gerne ville kunne, er at i text1 når mørkeren står der. Skal den skrive den tast jeg trykker på i text1 efterfølgende skal den selv kunne taste den tast når jeg klikker på min check da den aktiver timeren
og som test skal den visse det i text2 at den har klikke selv på eks w eller pil up
Hej igen expnet. Jeg kan ikke hjælpe dig i detaljer, men her er et par tips, så du kan se hvilken vej du skal gå:
Hvis du vil fange tastetryk kan du gøre det med KeyDown-eventet. Det findes både i forms og i textboxe. Her får du en KeyCode, du så kan oversætte til en tast. Det kan gøres med funktionen Chr(KeyCode), men det gælder kun for alle de "almindelige" bogstav og taltaster. Hvis du skal identificere f.eks. piltaster og funktionstaster er du nødt til at teste for dem. Her er et eksempel:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Dim sTmp As String
sTmp = Chr(KeyCode) If KeyCode = 46 Then sTmp = "Delete" 'dette er blot et eksempel frmMain.txtGuess.Text = sTmp
End Sub
Der er desuden problemer med tegntaster og æøå, da KeyCode tabellen retter sig mod et amerikansk keyboard, men prøv dig frem.
Mht til at få programmet til selv at lave tilsvarende tastetryk kan du bruge funktionen SendKeys. Sørg for at den textbox der skal modtage input er i fokus.
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.