activating an easter egg 1

[draugen]

I need to activate an easter egg when the user writes "vinner", just by using the keyboard (i.e. no text box). Can anybody point me in the right direction.
Thanks ahead of time.

 

[Andrzejek]

How about (one empty Form)

Option Explicit
Dim str As String

Private Sub Form_Load()
    Me.KeyPreview = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    str = str & Chr(KeyAscii)
    
    If str = "vinner" Then
        MsgBox "You have opened an easter egg."
    End If
End Sub

Have fun.

---- Andy

 

[AndyGroom]

You might also want to incorporate a 'timeout' so that if they make a typo they can try again after a second or two.

Private Sub Form_KeyPress(KeyAscii As Integer)
    Static Timeout As Double
    If (Timeout <> 0) Then
        if (Timer > Timeout) Then Str = ""
    End If
    Timeout = Timer + 2
    str = str & Chr(KeyAscii)

    If str = "vinner" Then
        MsgBox "You have opened an easter egg."
    End If
End Sub

- Andy
___________________________________________________________________
If you think nobody cares you're alive, try missing a couple of mortgage payments

 

[Andrzejek]

or:

Private Sub Form_MouseMove(Button As Integer, _
    Shift As Integer, X As Single, Y As Single)
str = ""
End Sub

whipe it clean with the mouse move

Have fun.

---- Andy

 

[draugen]

Thanks Andy.

Yes I had fun with it.
I used your suggestion with the mousemove event in case of spelling error. But instead of a msgBox being shown, as "vinner" is typed, a new form is loaded. The "vinner" form is then unloaded with another mousemove event.
Thanks you very much!
A star goes to you.

Christian

 

[draugen]

Sorry, I ment: Thank Andrzejek, whom also got the star becouse I used his suggestion.

 

[AndyGroom]

[unsheathing ritual suicide sword...]

- Andy
___________________________________________________________________
If you think nobody cares you're alive, try missing a couple of mortgage payments

 

[Andrzejek]

Don't do it! You have so much to live for....

Have fun.

---- Andy

 

[draugen]

But also thanks to you, AndyGroom, for your suggestion, sorry I didn't mention it earlier. I innitially though you both were the same Andy (didn't read carefully the name, saw only that it was from, in both instances an Andy :-( ). Again sorry.