Private Sub stworz_karty()
Dim myUserControl As New UserControl1()
Dim myTabPage As New TabPage()
myTabPage.Text = (Form1.TabControl1.TabPages.Count + 1)
myTabPage.Controls.Add(myUserControl)
Form1.TabControl1.TabPages.Add(myTabPage)
End Sub
tak tworze nowe karty z zawartością "usercontrol" który zawiera TextBox1.....
chciałbym aby każda NOWO-UTWORZONa TabPage dodatkowo wykonywała to:
TextBox1.Text (na nowo-utworzonej TabPage, znajdujacy sie w UserControl1) Od razu po utworzeniu przyjmował wartość Form1.szablonik, czyli TextBox1.Text = Form1.szalobnik
If TextBox1.Text = "" And Not Form1.szablonik = "" Then
TextBox1.Text = Form1.szablonik
End If
jak te kody połączyć ze sobą? :)
napisalem cos takiego, niby dziala... ale wolalbym aby ktos podtwierdzil czy poprawnie to zrobilem :D
Private Sub stworz_karty()
Dim myUserControl As New UserControl1()
myUserControl.TextBox1.Text = Form1.szablonik
Dim myTabPage As New TabPage()
myTabPage.Text = (Form1.TabControl1.TabPages.Count + 1)
myTabPage.Controls.Add(myUserControl)
Form1.TabControl1.TabPages.Add(myTabPage)
End Sub