old Hippy
Gebruiker
- Lid geworden
- 24 mei 2008
- Berichten
- 911
Hallo allemaal
ik heb form1 en form2 op form1 staan drie textboxen.
nu wil ik met een button tekst 1 of 2 of 3 invullen.
Met een button en RichTextBox1.SelectedText op form1 doe ik het zo en dat werkt.
Maar de button en de RichTextBox1.SelectedText staan op form2
en de drie textboxen op form1
Kan iemand mij hier bij helpen????
Groet Old Hippy
ik heb form1 en form2 op form1 staan drie textboxen.
nu wil ik met een button tekst 1 of 2 of 3 invullen.
Met een button en RichTextBox1.SelectedText op form1 doe ik het zo en dat werkt.
Maar de button en de RichTextBox1.SelectedText staan op form2
en de drie textboxen op form1
Kan iemand mij hier bij helpen????
Code:
Dim tb1 As Boolean
Dim tb2 As Boolean
Dim tb3 As Boolean
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If tb1 = True Then
tb2 = False
tb3 = False
Dim invoeg As String
invoeg = RichTextBox1.SelectedText
TextBox1.Text &= invoeg & vbCrLf
invoeg = TextBox1.Text
End If
If tb2 = True Then
tb1 = False
tb3 = False
Dim invoeg As String
invoeg = RichTextBox1.SelectedText
TextBox2.Text &= invoeg & vbCrLf
invoeg = TextBox2.Text
End If
If tb3 = True Then
tb1 = False
tb2 = False
Dim invoeg As String
invoeg = RichTextBox1.SelectedText
TextBox3.Text &= invoeg & vbCrLf
invoeg = TextBox3.Text
End If
End Sub
Private Sub TextBox1_Click(sender As Object, e As System.EventArgs) Handles TextBox1.Click
tb1 = True
tb2 = False
tb3 = False
End Sub
Private Sub TextBox2_Click(sender As Object, e As System.EventArgs) Handles TextBox2.Click
tb2 = True
tb1 = False
tb3 = False
End Sub
Private Sub TextBox3_Click(sender As Object, e As System.EventArgs) Handles TextBox3.Click
tb3 = True
tb1 = False
tb2 = False
End Sub
Groet Old Hippy