Sluk ved keypress

er det ikke bare at "logge" de x sidste taster der er blevet trykket på... og hvis de giver ordet "peter" så lukke programmet?

hvordan????
forklar det meget nødagtigt

nødagtigt?? skulle der stå nøddeagtigt?

Så tager du to agern og fire hasselnødder...

Ej... JK... Er du på MSN?

nej desværre...

okay... prøver lige at fikse noget sammen til dig...

Dette burde virke:

Dim logget As String
Private Sub Form_KeyPress(KeyAscii As Integer)
streng_der_skal_findes = "peter"
logget = logget & Chr(KeyAscii)
logget = Right(logget, Len(streng_der_skal_findes))
If streng_der_skal_findes = logget Then
    MsgBox ("FUNDET")
End If
End Sub

Hej.

Jeg ville bruge text1_change()

Private Sub Text1_Change()
  If Text1.Text = "peter" Then End
End Sub

M.v.h.  Jørn

problemmet er vist at han ikke skriver i noget text-field... men bare "ud i det blå"

Hej tiger.

Det er muligt, du har ret i det.  Men VB-formen skal have focus og en eller anden kontrol har det jo så også.  Undertiden vil programmører noget ret uovervejet.
Nu må vi se når det igen bliver dag og spørgeren vender tilbage.

M.v.h. Jørn

Tja.. hvis det bare skal skrives ud i det blå.. så kan man jo gøre sådan..


'--------------------------------------- Form1 ---------------------------------------
Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
  With Timer1 '<- Husk Timer1 på din Form1
      .Interval = 1
      .Enabled = True
  End With
End Sub

Private Sub Timer1_Timer()
Dim strKey As String
Dim strName As String
Static strSave As String
Static strLarstKey As String

  '------------------------------------------------------
  ' Her skriver du det navn som skal udfør din exit kode.
  '------------------------------------------------------
  strName = "Peter"
  '------------------------------------------------------

  strKey = GetPressedKey
  If strKey <> strLarstKey Then
    strLarstKey = strKey
    strSave = (Right$(strSave, Len(strName) - 1) & strLarstKey)
    If strSave = strName Then
  '------------------------------------------------------
  ' Her udfør den din exit kode.
  '------------------------------------------------------
      MsgBox "Farvel " & strName & " kom snart igen.", vbInformation
      Unload Me
  '------------------------------------------------------
    End If
  End If

End Sub

Public Function GetPressedKey() As String
Dim i As Long
  For i = 32 To 128
    If GetAsyncKeyState(i) <> 0 Then
      If GetAsyncKeyState(16) <> 0 Then ' <- 16 er SHIFT
        GetPressedKey = Chr$(i)        ' <- STORE BUGSTAVER
          Else
        GetPressedKey = LCase$(Chr$(i)) ' <- små bugstaver
      End If
      Exit For
    End If
  Next
End Function
'--------------------------------------- Form1 ---------------------------------------

Desværre ingen af svarende virkede????

Hej.

jeg bryder mig ikke om at spørgere hjemtager egne point.  Det er naturligvis i orden, hvis ingen gennemtænkte, brugbare svar er givet.  Men når 'eksperter' anstrenger sig for at søge at forstå uklare spørgsmål og komme med forslag, så bør spørgeren også præcisere sit spørgsmål og hvorfor svarene ikke kan anvendes.
Derfor har jeg kigget på andre spørgsmål som maxfli har svaret på, og der er flere andre med samme udfald.  Da Maxfli ikke er den eneste der bærer sig sådan ad, vil jeg blot lufte min misbilligelse.
Jeg mangler overhovedet ikke point og er faktisk ligeglad, men jeg synes at de som svarer, fortjener den respekt at spørgeren begrunder sin afvisning af svar.

M.v.h. Jørn

Jeg er enig med Jørn... Synes det er dårlig stil fra maxfli, og jeg synes at en forklaring er på rette plads... Ellers skal vi jo til at snakke med nogle co-admins...

maxfli, svar udbedes!

/razor (coadmin)

maxfli er deaktiveret da han ignorerede min henvendelse. Hav en fortsat god weekend.