Ver Mensaje Individual
  #1 (permalink)  
Antiguo 23/12/2010, 02:09
lotusnovas
 
Fecha de Ingreso: diciembre-2010
Mensajes: 15
Antigüedad: 13 años, 11 meses
Puntos: 0
Ayuda - bbcodes en Vb 6

Hola, tengo un par de problemas con esto.

Quiero colocarle los bbcodes a una peque~a aplicacion para facilitar mas a la hora de hacer algun post en un foro, hasta ahora lo tengo asi :

Código vb:
Ver original
  1. 1.
  2.       Private Sub Command1_Click()
  3.    2.
  4.       Text1.Text = "[IMG]" & Text1.Text & "[/IMG ] "
  5.    3.
  6.        
  7.    4.
  8.       End Sub
  9.    5.
  10.        
  11.    6.
  12.       Private Sub Command2_Click()
  13.    7.
  14.       Text1.Text = "[CENTER]" & Text1.Text & "[/CENTER] "
  15.    8.
  16.        
  17.    9.
  18.       End Sub
  19.   10.
  20.        
  21.   11.
  22.       Private Sub Command3_Click()
  23.   12.
  24.       Text1.Text = "[QUOTE]" & Text1.Text & "[/QUOTE]"
  25.   13.
  26.        
  27.   14.
  28.       End Sub
  29.   15.
  30.        
  31.   16.
  32.       Private Sub Command4_Click()
  33.   17.
  34.       Text1.Text = "[B]" & Text1.Text & "[/B]"
  35.   18.
  36.       End Sub
  37.   19.
  38.        
  39.   20.
  40.       Private Sub Command5_Click()
  41.   21.
  42.       Text1.Text = "[I]" & Text1.Text & "[/I]"
  43.   22.
  44.       End Sub
  45.   23.
  46.        
  47.   24.
  48.       Private Sub Command6_Click()
  49.   25.
  50.       Text1.Text = "[U]" & Text1.Text & "[/U]"
  51.   26.
  52.       End Sub
  53.   27.
  54.        
  55.   28.
  56.       Private Sub Command7_Click()
  57.   29.
  58.       Text1.Text = "[LEFT]" & Text1.Text & "[LEFT]"
  59.   30.
  60.       End Sub
  61.   31.
  62.        
  63.   32.
  64.       Private Sub Command8_Click()
  65.   33.
  66.       Text1.Text = "[RIGHT]" & Text1.Text & "[RIGHT]"
  67.   34.
  68.       End Sub
  69.   35.
  70.        
  71.   36.
  72.       Private Sub Command9_Click()
  73.   37.
  74.       Text1.Text = "[noparse][url=LINK]" & Text1.Text & "[/url][/noparse]"
  75.   38.
  76.       End Sub

El problema es que a la hora de ejecutarlo para probarlo queda asi:



El error esta en que en todos los Botones van directo al textbox1 y ya de allí no se como ira exactamente esto, no se si poner un textbox a cada boton y al final pasar todo a un ultimo textbox.

Quiero hacer algo como esto...



solo que esta esta en vb Net

Tambien intente hacerlo con un RichTextBox pero es mas complicado para mi, alguien me puede ayudar con esto por favor.

Gracias de antemano.