Tengo que crear una interfaz grafica que a traves de un boton agregue TabPages a un TabControl, y necesito que los TabPages contengan un RichTextBox dento de ellos. Tengo una porción de codigo que me genera estas cosas, pero mi problema es que luego necesito cargar archivos a los RichTextBox pero no logro conseguirlo, supongo que es porque no les doy un nombre a los RichTextBox... Les dejo lo que tengo y espero su ayuda o ideas para conseguir mi objetivo, muchas gracias...
Dim pestana As New TabPage()
Dim TextB As New Control()
TextB = New RichTextBox
TextB.Location = New Point(6, 6)
TextB.AutoSize = False
TextB.Size = New Size(317, 393)
pestana.Text = "Pestaña" & (TabControl1.TabPages.Count + 1)
TabControl1.TabPages.Add(pestana)
TextB.Parent = pestana
TabControl1.SelectedTab = pestana
¿Exactamente qué problema encuentras para cargar archivos?, puedes hacerlo de esta manera:
Dim tab As New TabPage With {.Text = "Pestaña" & (TabControl1.TabPages.Count + 1)}
TabControl1.TabPages.Add(tab)
Dim rtb As New RichTextBox
With rtb
.Location = New Point(6, 6)
.AutoSize = False
.Size = New Size(317, 393)
.Parent = tab
.LoadFile("C:\Archivo.rtf", RichTextBoxStreamType.RichText)
End With
TabControl1.SelectedTab = tab
Siempre puedes mantener una referencia al control para utilizarlo más tarde:
Friend WithEvents RichTextBox1 As RichTextBox
Private Sub Form1_Shown(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Shown
Dim tab As New TabPage With {.Text = "Pestaña" & (TabControl1.TabPages.Count + 1)}
TabControl1.TabPages.Add(tab)
Me.RichTextBox1 = New RichTextBox
With Me.RichTextBox1
.Location = New Point(6, 6)
.AutoSize = False
.Size = New Size(317, 393)
.Parent = tab
End With
TabControl1.SelectedTab = tab
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Me.RichTextBox1.LoadFile("C:\Archivo.rtf", RichTextBoxStreamType.RichText)
End Sub
Saludos