Tab control vraag

[old Hippy]

Hallo allemaal

in mijn programma heb ik een tabcontrol met drie tabbladen.
op het eerste tabblad heb ik de invoer text boxen staan en op het tweede en derde
textboxen die ingevuld moeten worden van uit het eerste tabblad.
het in voeren gaat goed maar ik zou graag dat als ik naar tabblad 2 of 3 ga de gegevens er al staan.
nu moet ik eerst op een buton klikken om de juiste gegevens in tevullen

ik wil graag dat hij het invuld met de klik op het tabblad 1 of 2

 

[JHx]

Is het een 'SSTab' die je gebruikt? Dan zou je bvb het '_Click'-event kunnen gebruiken...
Je kan dan ook nog het argument 'PreviousTab' gebruiken om te controleren of de voordien weergegeven tab de eerste (met index 0) was.

Private Sub SSTab1_Click(PreviousTab As Integer)
  If PreviousTab = 0 Then
    Text3.Text = Text1.Text
    Text4.Text = Text2.Text
  End If
End Sub

 

[old Hippy]

Hallo JHx

Bedankt voor je reactie

Of het een 'SSTab' is weet ik niet
Ik werk mt vb2008 daar heet het een tabcontrol1 met TabPage1 TabPage2 TabPage3
Decode die je mij gaf werk niet de textboxen worden niet gevuld

 

[JHx]

Tja... ik ben nog van de oude stempel, en gebruik VB 6.0

Maar kent jou tabcontrol geen click-event of change-event?
IN VB6 kan je in het code-venster linksboven het object selecteren (in dit geval dus jou tabcontrol) en rechtsboven de event-procedure (dus change of click...)
In die procedure moet je normaal gezien toch de waarden van de tekstvakken kunnen kopieren...

Maar ik weet totaal niet hoe dat er in VB2008 uitziet

 

[old Hippy]

Ok JHx
De code staat ook in een click-event Het probleem is dat ik naar tablad2 ga en dan op het tabblad moet klikken om de textboxen tevullen dit werkt.

 Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.Click
        Me.TextBox10.Text = TextBox1.Text & " - " & CodeComboBox.Text
        Me.TextBox35.Text = TextBox3.Text & " - " & TextBox8.Text & " - " & TextBox9.Text & " - " & TextBox11.Text
        Me.TextBox36.Text = TextBox7.Text
    End Sub

Maar ik wil dat het met de click naar het tabblad al gebeurd zodat ik niet extra hoef te klikken.

 

[Jan Groven]

paint

Old Hippy,

Bij klikken, zorg je enkel voor een gebeurtenis op de "details" van het tabblad. Indien je wens dat er een actie ondernomen wordt wanneer je een ander tabblad toont, dan gebruik je beter de functie PAINT. Deze functie gebruik je voor elk tabblad:

    Private Sub TabPage1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles TabPage1.Paint
        Me.TextBox10.Text = TextBox1.Text & " - " & CodeComboBox.Text
        Me.TextBox35.Text = TextBox3.Text & " - " & TextBox8.Text & " - " & TextBox9.Text & " - " & TextBox11.Text
        Me.TextBox36.Text = TextBox7.Text
    End Sub

 

[JHx]

Tjaa... Ik kan het hier niet nagaan he, vanwege mijn 'antieke' VB
Het enige wat ik nog kan aanraden is: kijk eens welke events jou tabblad kent; daar moet zeker wel een bruikbare tussen zitten!
Waarschijnlijk kan iemand anders je wel op het juiste spoor zetten...

[edit]voila... zie bovenstaand bericht! lijkt me zeer nuttig [/edit]

 

[old Hippy]

Hi JHx en Jan Groven

Hartelijk bedankt voor jullie hulp
een wat laate reactie door een complete computer crash.
Het probleem is opgelost met de code van Jan
nog maals hartelijk bedankt Old Hippy