Met 1 button 3 tekstboxen invullen.

Status
Niet open voor verdere reacties.

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????


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
 
Zet voor de textboxen eens Form1 (met daarachter een punt).

Pim
 
Hi Pim15
Dank voor je reactie.
maar zo makkelijk is dat niet.
in de code kan je zien dat door op de textbox1 te klikken hij true of false word.
Als hij true is moet hij naar die textbox schrijven.
maar op vorm2 ziet hij niet dat textbox1 op form1 true is.
Dus kan ik niet selecteren welke textbox op form1 actief is.
uiteraard staat op form2 ( form2.invoeg = TextBox1.Text)

Hopelijk begrijp je mij???
 
Dan moet je met My.Settings werken. Als je niet weet hoe dat werkt, vraag het gerust.

Pim
 
Of maak een globale variabel aan, eentje die in je gehele project te benaderen is.
 
In principe kan je alles tussen forms uitwisselen door het op de juiste manier te 'definiëren'.

Even een klein voorbeeldje:
[CPP]
''//In form1
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(Form2.Str) ''//Werkt niet
MsgBox(Form2.Str1) ''//Werkt
MsgBox(Form2.Str2) ''//Werkt
End Sub
End Class


''//in form2
Public Class Form2

Private Str As String = "Deze tekst is niet toegangkelijk vanuit het andere form."
Public Str1 As String = "Deze tekst wel."
Friend Str2 As String = "Deze tekst ook."
End Class
[/CPP]

Deze code zal niet werken vanwege de eerste msgbox (die een ontoegankelijke string probeert op te roepen). Maar als je die eruit comment, werkt het wel. Zo zie je dus dat het een kwestie van goed definiëren is.

MartinJM
 
Hallo The Mighty Atom
met een globale variabel bedoel je zo iets Public Shared TB1 As String = "VulTB1"
ik heb daar geen ervaring mee maar ga het uit proberen

Ok MartinJM dank voor je voorbeeld ook hier ga ik mee aan de slag.

ik laat even weten wat er is gelukt.
Groet Old Hippy.
 
Je kunt het beste een Module aan je project toevoegen, en vervolgens de globale vars daarin zetten d.m.v. Public tb1txt As String.
 
Dank The Mighty Atom
Heb nog niet met module gewerkt hoe roep je die tekst aan.
ik bedoel ik wil b.v.b. in TB_Text1 de tekst zeten of tekst2 of 3 iets zetten.
 
Zet dit in de module:
Code:
    Public tb1 As Boolean
    Public tb2 As Boolean
    Public tb3 As Boolean
Verwijder de andere dim.

Pim
 
Ok Pim15 - The Mighty Atom en MartinJM

Het is opgelost met een module Veel dank aan jullie
En een Hartelijke Groet van Old Hippy
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan