[VB6]Falls TextBox länger als 10 ist ...

    Falls TextBox länger als 10 Zeichen ist, Beenden


    Schwierigkeitsgrad: ||


    Objekte:
    Du benötigts 1 Objekt eine TextBox


    Code:



    Option Explicit


    Private Sub Form_Load()


    End Sub


    Private Sub txtText_Change()
    Dim strLaenge As String
    strLaenge = Len(txtText.Text)
    If strLaenge > 10 Then
    MsgBox "Anzahl Maximaler zeichen überschritten!"
    End If
    End Sub



    Erfolgreich Getestet In:
    Visual Basic Applicaton
    Visual Basic 6



    Ich hoffe ich konnte euch helfen 8)



    Gruß,
    [GRC]Flip