Sendkeys

Det er fuldstændig, som når du trykker på tastaturet.
Der er et par koder, man kan benytte sig af.

Key      Code
---------------
SHIFT    +
CTRL      ^
ALT      %


Desuden er der betegnelser for specialtasterne.
Se Online-hjælpeteksterne.

F.eks.

SendKeys \"{ESC}\"

Trykker såmænd bare på escape tasten på tastaturet.

SendKeys \"%{F4}\"
Trykker på Alt-F4 og lukker dermed programmet.

Ok! Det lyder jo meget let. Men hvis jeg nu i mit program vil teste, om der bliver tastet Alt + HOME og der derefter skal ske en hændelse defineret af mig ..., hvordan kodes det og hvor (keypress, click)?

Og igen. Hvis jeg nu vil kode således, at der efter skrivning i en textbox, skal slettes to bogstaver eller et ord bagud fra markørens standpunkt?

Eks1.
command1.(click, keypress)
If txtbox.txt = \"Der var engangre...\"
  (slet \"re\")
end if

Eks.2
command1.(click, keypress)
If txtbox.txt = \"Der var engang...\"
  (slet engang)
end if

Kan du komme med nogle eksempler på brugen?

Brug
txtbox.SelStart (markørens position)

... Med denne kan du jo selv bestemme hvor markøren skal stå når du gør brug af \"SendKeys\"

/The Portal

Jeg har tærsket Sendkey igennem og forstår den nu ... DELVIST. Hvordan kan jeg tjekke runtime om de r f.eks. tastes ALT + HOME ( hvorefter min form skal lukke og en anden skal åbne ) ???

Mit udlæg:

If (sendkeys ??? ) = ??? then
  Form1.hide
end if

Derudover:

HVORFOR bliver min Numlock tast slået fra efter hver Sendkey \"session\"??

Ok! Jeg har forøget pointsatsen med 20, så den nu ligger på 50 p.

Kan nogen hjælpe mig med mine spørgsmål:

1. Hvis ALT + HOME tastes, skal list1.listindex være = med list1.listindex + 1

2. Hvorfor slår min Numlock fra efter brugen af Sendkeys?

I øvrigt:

Moses > Du har sikret dig point. Jeg skal bare lige have svar på det sidste :-)

Så er jeg her igen.

Det kan være lidt tricky med det keypress-halløj.

Sendkeys er kun til at ... sende tastetryk til applikationen; så det klarlagt.

Hvis du f.eks. vil have en tastekombination til f.eks. at lukke din applikation uanset, hvilken control der er aktiv på formen, så skal du først sørge for, at din form checker tastetrykket før de leveres videre til den aktive control på formen:

Me.KeyPreview = True

Herefter kan du bruge KeyPress, keyUp eller evt. KeyDown event\'ene for selve formen.

Måske er det bare mig, men jeg forstår ikke helt hvad det er jeg skal gøre??!!

Kunne du ikke prøve at kreere et eksempel der indbefatter at kombinationen ALT + HOME lukker min form? - Så kan det være jeg forstår det.

Hvis du vil arbejde med Shift/Ctrl og Alt tasterne også, så er du nødt til at benytte enten KeyUp eller KeyDown, da KeyPress kun ser på, hvilken \"resultat\"-taste du har trykket - ikke hvilken shift taste.
Derfor kan funktionen se ud, som vist herunder:

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    MsgBox KeyCode & \", \" & Shift
    If (KeyCode = 36) And (Shift = 4) Then DoCmd.Close
End Sub

Du skal lige huske at sætte KeyPreview til true for selve formen.

Linien med msgbox kan du bruge til at finde talkombinationer til andre tastetryk.
Bemærk lige, at du skal fjerne boxen fra skærmen ved at klikke med musen - ellers får du ikke særlig meget ud af denne funktion !!

Den linie sletter du bare, når det ´hele skal køre.
36,4 er et tryk på Home-tasten med Alt holdt nede.

Shift = 1
Ctrl = 2
Alt = 4
Det er bitmæssigt implementeret, så

(Shift og Alt) = (1 AND 4) = 5

Den er bare helt fjong. Det virker.

Men én ting til:

Jeg har eksperimenteret mig lidt frem og forsøgt at skrive følgende kode;

    If (KeyCode = 66) And (Ctrl = 2) Then End
Dvs. ved tryk på \"b\" samtidig med \"Ctrl\" skulle programmet lukke. Men intet sker???

HOV HOV

if-then strukturen ser sådan ud:

if x=y then
...
else
...
endif

Jeg tror at java også kan nøjes med end istedet for endif, så du har faktisk lavet en if sætning, der ikke laver noget, hvis udtrykket er falsk - og heller ikke laver noget, hvis udtrykket er sandt.

Du skal skrive:

If (KeyCode = 66) And (Ctrl = 2) Then DoCmd.Close

Funger ikke :-(

VBA fortæller at den ikke kender metoden \"Me.KeyPreview = True\" (altså keypreview)

Derforuden kender den heller ikke docmd.close!!

Hvad hulen gør jeg forkert eller hvad gør jeg ikke ????

Med hensyn til både Me.KeyPreview og DoCmd kommandoerne, så gælder de sikkert kun i VBA.

Jeg er ikke klar over, hvad du kan bruge i VB.

Det er i VBA jeg arbejder med lige netop denne kode.

Og det er i koden for en form du laver det ??

Me.KeyPreview

Henviser til Me, som er formen.

DoCmd kommandoen er helt sikkert til stede !!

Du må gøre noget forkert !!

Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If (KeyCode = 66) And (Ctrl = 2) Then  DoCmd.Close

End Sub

Jeg har også prøvet med;

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    MsgBox KeyCode & \", \" & Shift
    If (KeyCode = 36) And (Shift = 4) Then DoCmd.Close
End Sub

Det virker simpelthen bare ikke.

Me.Keypreview = True VIL VBA bare ikke acceptere.
Iøvrigt skrev jeg koden (Me..) i Userform1.Activate

Det er muligt jeg gør noget forkert, men hvad???

Enten vælger du:

Private Sub Form_Open(Cancel As Integer)
    Me.KeyPreview = True
End Sub

Eller også:

- Åben formen i design view.
- Vælg event fanebladet i properties vinduet.
- Rul ned til feltet \"Key Preview\"
- Sæt det til \"Yes\"

Keypreview findes hverken i min properties eller open for Userform\'en!!!

Hvis du har en mail adresse (og du gider) kan vi fortsætte din lille udfordring pr. mail. og min lille hovedpine Så kan jeg sende dig et skærmdump af hvad jeg har ???

( Løser du mit problem giver jeg dig 100 p. for ulejligheden, ok? )

moses_hill@bigfoot.com

hvordan kan man sende keys i vbsript ved du også det. jeg skal lave en lille popup der "vent" også lukker igen if et eller andet ....

Jeg forstår ikke helt dit spørgsmål?

nicolaus

jeg ville gerne vise en popup der siger please wait , indtil scriptet er udført ... også lukke popup boksen automatisk

Den har jeg også været ude efter, men har indtil nu ikke haft held til at kode det eller få et bud på hvordan det skal gøres.

Jeg har dog for lang tid siden fået forklaret, at det ikke kan lade sig gøre i VBA, kun i VB, idet VBA ikke har kontrollen Time.