Hjælp til Maskeret TextBox.

Mht. 1 og 3:

Du bruger key_press eventen til at tjekke hvilket tegn der blev tastet. Er det et "ulovligt" tegn, slettes det. Nedenstående kode tillader kun at der tastes .0123456789 i Text1:

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
  Case Asc("0") to Asc("9")
  Case Asc(",") 
  Case Else
    KeyAscii = 0
  End Select
End Sub

Mht 2:

Jeg kender ikke masked textbox, men findes der ikke en standard funktion, kan du jo kode den selv. Jeg er ikke helt med på hvordan du vil have at den skal opføre sig, men du kan (næsten) altid kode dit til den funktionalitet du ønsker - men det er jo nemmer ehvis der findes en standard løsning :o)

Sorry, det er ,0123456789 der tillades, ikke .0123456789 som jeg skrev

Du kan for eksempel lave keytrappe for at sikre, at man kun kan skrive tal:

Private Sub txt1_KeyPress(KeyAscii As Integer)
    If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack _
            Or keyascii = 44 Then
        Exit Sub
    Else: KeyAscii = 0
        Beep
    End If
End Sub

Dernæst kan du bruge format til at ændre, når tekstfeltet mister fokus:

Private Sub txt1.LostFocus
txt1.Text = Format(txt1.Text, "###,##")
End Sub

/L3kris

Kan ikke lige huske alle properties for et textbox i VB, men der burde vaere en input mask property som kan saettes som du allerede har beskrevet.

Det med ikke gyldige teg er fint nok, men det med ##,## virker ikke!!

Det skal jo være sådan at den skriver: 005,00 hvis jeg kun taster 5 ind.....

"Jeg kender ikke masked textbox, men findes der ikke en standard funktion, kan du jo kode den selv. Jeg er ikke helt med på hvordan du vil have at den skal opføre sig, men du kan (næsten) altid kode dit til den funktionalitet du ønsker  :o)"

Text1.Text = Format(Text1.Text, "###,##000.00")

Sådan ja!!

Skal I have point??? Så læg lige et svar ok?

et lille svar, jeg bryggede jo bare videre ;-))

Jeg svarede på 1 &/ 3 (som var samme spørgsmål, egentligt) og kabbak på 2 - ½ til hver. eller...

ca. 10% til mig er rigeligt ;-))

Sådan... det var vidst meget rimeligt!!