Re: Realisierung eines Cheat Codes
26.11.2002 10:26:54
Steffen D
Du hast schon richtig gemacht.mein code funktioniert nur wenn die userform ganz leer ist. (so habe ich es getestet),
aber wenn du Textfelder hast, dann müsstest du unter jedem Textfeld diese KeyPress-Funktion reinkopieren.
Das ist aber ein bisschen umstädlich finde ich.
aber wenn du nicht soo viele Textfelder oder ähnliches(listenfelder etc.) hast, dann kannst du es ja so machen.
bei mir funktioniert es so, mit einem Textfeld (TextBox1):
Const Passwort = "Passwort"
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 17 Then
Pwd = InputBox("Passwort eingeben:", "Geheime Mission", "Passwort")
If Pwd = Passwort Then
MsgBox "Geheime Mission"
End If
End If
End Sub
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 17 Then
Pwd = InputBox("Passwort eingeben:", "Geheime Mission", "Passwort")
If Pwd = Passwort Then
MsgBox "Geheime Mission"
End If
End If
End Sub
Gruss
Steffen D