krav til input

Du kan ikke tjekke noget der bliver tastet i en input-box føær det allerede er tastet. Derfor er inputboxe noget skrammel, synes jeg.

HVIS du VIL bruge inputboxen, så kan du gøre følgende:

  Dim Svar1 As String
  Svar1 = InputBox("Skriv noget")
  If Len(Trim(Svar1)) <> 4 Then
    Do While Len(Trim(Svar1)) <> 4
      MsgBox ("Det skal være fire tegn")
      Svar1 = InputBox("Skriv noget")
    Loop
  End If

Meget bedre er at lave en form med et text-felt og en OK/Cancle-knap på. Der kan du sætte at man kun kan indtaste 4 tegn i textboxen, og f.eks. gøre OK-knappen "vissen" indtil der er netop 4 tegn i tekstfeltet...

/Martin

ok. kan du komme med et eks. på hvordan jeg gør det med et textfelt ? det med at ok-knappen er "vissen" indtil der er indtastet 4 tegn.

Jep:

Opret 2 forme, form1 og form2. Smid en knap og et text-felt på hver, og kopier følgende kode ind:


                -0-

Form1:

Option Explicit
Dim Svar1 As String

Private Sub Command1_Click()
  Form2.Show 1
End Sub

Private Sub Form_Load()
  Command1.Caption = "Indtast svar"
  Text1.Locked = True
  Text1.Text = ""
End Sub


                -0-
Form2:

Option Explicit

Private Sub Command1_Click()
  Form1.Text1.Text = Text1.Text
  Form2.Hide
End Sub

Private Sub Form_Activate()
  Text1.SetFocus
  Text1.SelStart = 0
  Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Form_Load()
  Text1.MaxLength = 4
  Text1.Text = ""
  Command1.Caption = "OK"
  Command1.Enabled = False
End Sub

Private Sub Text1_Change()
  If Len(Text1.Text) = 4 Then
    Command1.Enabled = True
  Else
    Command1.Enabled = False
  End If
End Sub


Det kan gøres mere simplet, nu har jeg bare lavet lidt halløj med at den markere teksten når form2 vælges osv osv...