Txtbox opdager foruddefineret indtastning

OK et par tips:

Hvis alle koderne er tocifrede ville jeg gøre det således:

If Len(txtDIN_TEXTBOX.Text)=2 then
  if txtDIN_TEXTBOX.Text = \"01\" then txtDIN_TEXTBOX.text = \"Halløjsa\"
End If

Også måske udvide koden med en else sådan her:
If Len(txtDIN_TEXTBOX.Text)=2 then
  If txtDIN_TEXTBOX.Text = \"01\" then
      txtDIN_TEXTBOX.text = \"Halløjsa\"
  Else
      txtDIN_TEXTBOX.Text = \"Ikke Korekt Kode\"
End If

Kan også laves med Case opsætning.

Hej powell

Det funger ikke. Måske har jeg forklaret mig uklart.

Jeg skal kunne skrive en vilkårlig tekst i boxen, og f.eks. midt i sætningen skrive \"01\", hvorefter KUN \"01\" udskiftes med eks. \"halløjsa\".

Din kode resulterer i, at hele indholdet i boxen erstattes, ikke kun \"01\", eller \"Ikke korrekt kode\".

ok...

jeg vil gøre det på en anden måde...

Private Sub TextBox_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case  65
        Case Else
            Beep
            KeyAscii = 0
    End Select
End Sub

oh, her er det kun A... 15 point er ikke nok at jeg gidder lave hele svaren... synd, den skal op på ca. 60>> før du for mig til at svare... ellers find selv ud af det, her har du hvordan du kan se hvad brugeren trykker, og du kan også anuller ved at sig KeyAscii=0 ;) ok makker!

ups??

Private Sub TextBox_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case  65
        msgbox(\"Ha ha\")
        \'kode her ;)       

        Case Else
            Beep
            KeyAscii = 0

    End Select
End Sub

vbghost!

Du har fået de 15 point og jeg har selv fundet tegnsættene frem. Men det var kun en del af løsningen du gav mig. Din løsning resultere i at tegnet \"A\" identificeres. Jeg skulle bruge at boxen registrere to tegn, netop \"01\" eller \"AA\" om du vil.

Lav to Cases efter hinanden i vær deres løkke, og er begge Cases opfyldt så skal udtrykket udskiftes.

powell: prøv at tænk på et simpel måde, at programmer er ikke løkker (alt skal! laves i smarte metoder)...

hvis nicolaus gav flere point, ville jeg svarer med et meget god svar... så claus... 60++

Jeg er parat til, at betale 60 p. til den der kan løse mit problem.

Som det ser ud nu, erstattes kun \"1\" ved indtastning af \"01\". HELE \"01\" skal erstattes med f.eks. \"hejsa\", hvorefter indtastning skal kunne fortsætte.

Såå, er der én der har et foreslag til, hvordan jeg kan \"betale\" de 60 - SKAL jeg oprette nyt spørgsmål?

Claus

opret et nyt spørgsmål... jeg har svaret ;)

med 60 ponit... eller nul kode...

Spørgsmålet er oprettet under:
Txtbox opdager foruddefineret indtastning # 2 med 70 p.

Claus