Automatisch iets erbij typen

[wesselh]

Automatisch cursor naar achter laten schieten

hallo,
ik wil iets maken dat als je op een knop klikt er in een tekstbox iets wordt bijgevoegd.
voorbeeld:

er staat hallo in de tekstbox
ik klik op een button met daarop als text: hoi
in de tekstbox staat nu hallohoi.
klik je dan nogmaals op hoi, staan er in de tekstbox: hallohoihoi

weet iemand welke code daar voor nodig is?
ik had al TextBox1.Text = +"hallo" geprobeerd maar dat deed het niet
weet iemand hoe dit wel moet?

alvast bedankt

 

[That Guy]

je moet niet "+" gebruiken maar "&"
dus

text1.text = text1.text & "hallo"

V.:thumb:

 

[wesselh]

ahw men! ty!:thumb:

 

[wesselh]

weet iemand btw ook hoe je de cursor helemaal naar achter laat schieten?
voorbeeld:

eerst heb je een textbox met hallo erin:

|Hallo|

en als je op een knop drukt krijg je bijvoorbeeld hoi erbij:

||Hallohoi| < --- maar de cursor schiet nu helemaal noor voor..
weet iemand hoe je die naar achter krijgt? met welk script?
bedankt:thumb:

 

[That Guy]

je zou kunnen gebruiken:

dim lengte as integer
lengte = len(text1.text)
dim i as integer
for i = 1 to lengte
sendkeys *xxx*
text1.setfocus
next i

V. :thumb:


ps. in de plek van *xxx* moet de rechter-pijltjes-toets komen te staan, maar ik ben even de code daaarvoor kwijt die zoek ik straks eventjes.

 

[MerlinTheGreat]

Je kan de eigenschap SelStart gebruiken:

txtTextBox1.SelStart = Len(txtTextBox1.Text)

:thumb:

 

[That Guy]

dat is inderdaad een betere oplossing, want de sendkeys kan vertaging opleveren (en problemen als de gebruiker gaat klikken op andere dingen, en als de text in het textbox erg lang is.

V:thumb:

 

[wesselh]

Erg bedankt voor de snelle reacties en het heeft geholpen!:thumb:

groetjes, wessel