Text in textbox aanvullen

[old Hippy]

Hallo helpers

ik wil graag dat als ik in mijn textbox BTW 19 tik hij er zelf het % teken achterzet.

had al geprobeerd

TXTbtw.text = TXTbtw.text & " %"

wat doe ik niet goed????

 

[CoD_NL]

ik wil graag dat als ik in mijn textbox BTW 19 tik hij er zelf het % teken achterzet.

had al geprobeerd

TXTbtw.text = TXTbtw.text & " %"

wat doe ik niet goed????

Je code is wel correct om aan een textbox een waarde toe te kennen, maar waar heb je de code staan ? Als de invoer string altijd dezelfde lengte heeft, als in 'BTW ##', dan zou je onder het change event van de textbox kunnen controleren of de gewenste lengte is bereikt en dan de code uitvoeren die je hierboven hebt staan.

 

[Pizara]

    Private Sub TXTbtw_HandleCreated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TXTbtw.HandleCreated
        TXTbtw.Text = "%"
        TXTbtw.SelectionStart = Nothing
    End Sub

    Private Sub TXTbtw_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TXTbtw.KeyPress

        Select Case Asc(e.KeyChar)
            Case 8
                If TXTbtw.SelectionStart = TXTbtw.Text.Length Then
                    TXTbtw.SelectionStart = TXTbtw.Text.Length - 1
                End If
            Case 48 To 57
                If TXTbtw.Text.EndsWith("%") Then
                    TXTbtw.Text.Insert(TXTbtw.Text.Length - 1, e.KeyChar)
                Else
                    TXTbtw.Text = TXTbtw.Text & "%"
                End If
            Case Else
                e.KeyChar = ""
        End Select

    End Sub

 

[old Hippy]

Hallo CoD_NL en Pizara

Bedankt voor de hulp
met deze code lukt het met ( Private Sub TXTBtw_Leave) % word bijgeschreven na het verlaten van de textbox

 Private Sub TXTBtw_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TXTBtw.Leave
       TXTMarge.Text = TXTMarge.Text & " %"
    End Sub

Met de code van Pizara Mooije code gaat het ook maar als ik 19 in tik maakt hij er 91% van
wat kan dit zijn???

 

[Jabber]

TXTbtw.Text.Insert(TXTbtw.Text.Length - 1, e.KeyChar)

moet volgens mij zijn:
TXTbtw.Text.Insert(TXTbtw.Text.Length, e.KeyChar)

 

[old Hippy]

Ok Jabber

Het probleem blijft 19 word 91 dus zet hij de 9 er voor inplaats van er achter

 

[Pizara]

Bij mij niet hoor !

heb je t wel precies zo overgetypt?

probeer anders eerst eens een nieuwe form met een textbox (TXTbtw), en gewoon die code copy/pasten. Dat moet gewoon goed werken.

 

[old Hippy]

Ok klopt Pizara

Bedankt de reden dat hij bij mij het niet goed doet is om dat de textbox een string heeft om
bij het opstarten vanhet programma hij de waarde onthoud.

ik heb dit op gelost door hem in de database tezetten.
bedankt probleem opgelost