elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Ayuda con TabPages y RichTextBox!
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con TabPages y RichTextBox!  (Leído 1,069 veces)
Y0tta

Desconectado Desconectado

Mensajes: 1


Ver Perfil
Ayuda con TabPages y RichTextBox!
« en: 7 Febrero 2016, 00:00 am »

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

Código
  1.  
  2. Dim pestana As New TabPage()
  3.  
  4.  
  5.  
  6.        Dim TextB As New Control()
  7.        TextB = New RichTextBox
  8.  
  9.        TextB.Location = New Point(6, 6)
  10.        TextB.AutoSize = False
  11.        TextB.Size = New Size(317, 393)
  12.  
  13.  
  14.        pestana.Text = "Pestaña" & (TabControl1.TabPages.Count + 1)
  15.        TabControl1.TabPages.Add(pestana)
  16.        TextB.Parent = pestana
  17.  
  18.        TabControl1.SelectedTab = pestana
  19.  
  20.  


« Última modificación: 8 Febrero 2016, 08:17 am por Eleкtro » En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.708



Ver Perfil
Re: Ayuda con TabPages y RichTextBox!
« Respuesta #1 en: 8 Febrero 2016, 08:32 am »

¿Exactamente qué problema encuentras para cargar archivos?, puedes hacerlo de esta manera:

Código
  1. Dim tab As New TabPage With {.Text = "Pestaña" & (TabControl1.TabPages.Count + 1)}
  2. TabControl1.TabPages.Add(tab)
  3.  
  4. Dim rtb As  New RichTextBox
  5. With rtb
  6.    .Location = New Point(6, 6)
  7.    .AutoSize = False
  8.    .Size = New Size(317, 393)
  9.    .Parent = tab
  10.    .LoadFile("C:\Archivo.rtf", RichTextBoxStreamType.RichText)
  11. End With
  12.  
  13. TabControl1.SelectedTab = tab

Siempre puedes mantener una referencia al control para utilizarlo más tarde:
Código
  1. Friend WithEvents RichTextBox1 As RichTextBox
  2.  
  3. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Shown
  4.  
  5.    Dim tab As New TabPage With {.Text = "Pestaña" & (TabControl1.TabPages.Count + 1)}
  6.    TabControl1.TabPages.Add(tab)
  7.  
  8.    Me.RichTextBox1 = New RichTextBox
  9.    With Me.RichTextBox1
  10.        .Location = New Point(6, 6)
  11.        .AutoSize = False
  12.        .Size = New Size(317, 393)
  13.        .Parent = tab
  14.    End With
  15.  
  16.    TabControl1.SelectedTab = tab
  17.  
  18. End Sub
  19.  
  20. Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
  21.  
  22.    Me.RichTextBox1.LoadFile("C:\Archivo.rtf", RichTextBoxStreamType.RichText)
  23.  
  24. End Sub

Saludos


« Última modificación: 8 Febrero 2016, 12:33 pm por Eleкtro » En línea


Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Richtextbox imagecombo ayuda porfavor..
Programación Visual Basic
visualfree 3 1,301 Último mensaje 18 Octubre 2006, 07:30 am
por LeandroA
Ayuda con colores RichTextBox « 1 2 3 »
.NET (C#, VB.NET, ASP)
Braayhaan 24 15,944 Último mensaje 25 Febrero 2010, 06:02 am
por jgzunigah
[AYUDA] Obtener text de un RichTextBox
Programación Visual Basic
sebah97 2 2,522 Último mensaje 19 Diciembre 2010, 19:56 pm
por BlackZeroX (Astaroth)
MOVIDO: Ayuda con TabPages y RichTextBox!
Programación Visual Basic
Eleкtro 0 673 Último mensaje 8 Febrero 2016, 08:09 am
por Eleкtro
Boton que agregue TabPages a un TabControl
.NET (C#, VB.NET, ASP)
_CrisiS_ 3 1,800 Último mensaje 17 Diciembre 2017, 17:54 pm
por **Aincrad**
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines