sendkeys

[Stino88]

Ik wil een userform aanmaken zonder besturingselementen zodat wanneer het userform actief is, de toetsaanslagen die dan gebeuren opgeslagen worden. Wanneer er op ENTER wordt gedrukt, moeten de ingetypte toestaanslagen weergegeven worden met de functie msgbox.

in de helpfunctie staat wel een beetje informatie over 'sendkeys' maar ik geraak er toch niet uit hoe mijn programmatje moet geschreven worden...

alvast bedankt

 

[Axel Hagg]

Onzichtbare tekst tonen

Maak een UserForm en voeg de volgende code toe:

Option Explicit

Dim Zin As String

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 8
Zin = Left(Zin, Len(Zin) - 1)
KeyCode = 0
Case 13
If Shift = 0 Then MsgBox Zin: Zin = ""
Case 19, 9, 35 To 46, 91 To 93, 112 To 123
KeyCode = 0
End Select
End Sub

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Zin = Zin & Chr(KeyAscii)
End Sub


Overigens wordt SendKeys gebruikt om via het programma net te doen alsof een toets wordt ingedrukt.

SendKeys "Jan{enter}"

Drukt af: Jan en sluit af met: Enter