[RESOLVED] Prefix on left of textbox text

[Urgentbody]

Originally posted at #7 in link bellow
http://www.vbforums.com/showthread.p...gn-in-Text-Box

Modified a little but not exactly what i want. How to do it correctly

Private Sub Text1_Change()
    Dim Selstart As Integer
    Dim Text As String
    
    Selstart = Text1.Selstart
    Text = Text1.Text
    If Left$(Text, 7) <> "Km From" Then
        Text1.Text = Replace$("Km From", "", Text)
        Text1.Selstart = Selstart
    End If
End Sub

[Eduardo-]

Not perfect, but it could work for what you want:

Private Sub Text1_Change()
    Dim Selstart As Integer
    Dim Text As String
    Dim Prefix As String
    Dim LenPrefix As Long
    Dim c As Long
    
    Prefix = "Km From"
    If Right(Prefix, 1) <> " " Then
        Prefix = Prefix & " "
    End If
    LenPrefix = Len(Prefix)
    
    Selstart = Text1.Selstart
    Text = Text1.Text
    If Left$(Text, LenPrefix) <> Prefix Then
        For c = LenPrefix - 1 To 1 Step -1
            If Left$(Text, c) = Left(Prefix, c) Then
                Text = Mid(Text, c + 1)
                Exit For
            End If
        Next c
        Text1.Text = Prefix & Replace$(Text, "Km From", "")
        If Selstart >= (LenPrefix + 1) Then
            Text1.Selstart = Selstart
        Else
            Text1.Selstart = LenPrefix + 1
        End If
    End If
End Sub

[SamOscarBrown]

How to do WHAT correctly? If you want the 'words' "Km From" on the left of the textbox, your code does indeed do that. BUT, I would definitely look at using a label placed to the left of your textbox instead. Keep it simple for the user.

If the textbox is filled from an external source (database, file, etc), then you could simply change the text going into the textbox by adding "Km from " when doing so. But, if you are having users TYPE in the box (the main purpose of textboxes over labels), then I would not try to confuse anyone, simply use a label to the left.

[Urgentbody]

Thank you Eduardo. Solved the problem.

[SamOscarBrown]

I'd hate to be your client....

Anyway, glad you are satisfied and marked this resolved.

Good day,

Sammi