Verwisselen text

[bonnowagt]

Hallo,

Ik heb 7 teksttvakken. Met daarop tekst. Bijv.

Textbox1.text= "appel"
Textbox2.text= "peer"
Textbox3.text= "banaan"
Textbox4.text= "druif"
Textbox5.text= "aardbei"
Textbox6.text= "bes"
Textbox7.text= "mandarijn"



Als ik nu op textbox1 klik en vervolgens op textbox5 klik moet de tekst van
texbox1 veranderen "banaan"en die van textbox "aardbei" veranderen in "appel"

Op zich is tekstvervangen natuurlijk niet zo moeilijk., maar dit moet gebeuren door twee klikken op een tekstvak.Het lijkt simpel en is het misschien ook wel maar heb diverse mogelijkheden geprobeerd maar dit lukt niet.

Wie kan mij helpen?

Vriendelijke groet

 

[tim687]

Misschien zoiets:


Dim count As Integer = 0 'Het is belangrijk om dit boven de Click handler te plaatsen omdat hij anders steeds de waarde van de count op 0 zet, en dat moet niet'
Private Sub NAAMVANDETEXTBOX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NAAMVANDETEXTBOX.Click

If count.value = 1 Then
MessageBox.Show("U heeft 2 keer geklikt") 'Vervang deze lijn door iets wat u wilt doen als er 2 keer is geklikt'
count = 0 'hiermee wordt het aantal klikken gereset tot 0 zodat hij weer klikken kan detecteren'
End If

count = count +1 'Deze moet na het "If statement" staan anders is de waarde van count altijd 1
End Sub

Suc6 met programmeren,
Tim
Voor vragen weet u me te vinden ;-)

 

[bonnowagt]

Dat was het probleem ook niet om dit bij te houden, het tellen. Maar het verwisselen van de text en vooral op de juiste plaats. Maar ik heb het inmiddels gevonden.; Toch bedankt

 

[tim687]

Graag gedaan