Mostrar mensajes previos
Ordenar por
por metaL Sin sí­ntomas
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: Seleccionar todo

Private Sub Command1_Click()
Text1.Text = "[IMG]" & Text1.Text & "[/IMG ] "

End Sub

Private Sub Command2_Click()
Text1.Text = "[CENTER]" & Text1.Text & "[/CENTER] "

End Sub

Private Sub Command3_Click()
Text1.Text = "[QUOTE]" & Text1.Text & "[/QUOTE]"

End Sub

Private Sub Command4_Click()
Text1.Text = "[B]" & Text1.Text & "[/B]"
End Sub

Private Sub Command5_Click()
Text1.Text = "[I]" & Text1.Text & "[/I]"
End Sub

Private Sub Command6_Click()
Text1.Text = "[U]" & Text1.Text & "[/U]"
End Sub

Private Sub Command7_Click()
Text1.Text = "[LEFT]" & Text1.Text & "[LEFT]"
End Sub

Private Sub Command8_Click()
Text1.Text = "[RIGHT]" & Text1.Text & "[RIGHT]"
End Sub

Private Sub Command9_Click()
Text1.Text = "[url=LINK]" & Text1.Text & "[/url]"
End Sub
El problema es que a la hora de ejecutarlo para probarlo queda asi:

Imagen


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.

Otra cosa, para al final visualizar el post como que tendría que hacer? colocar un webbrowser que abra hacia algún hosting previamente colocado en el webbrowser? o se puede hacer directo algun form?

Saludos y gracias
por irux Delirios esporádicos
hola amigo


perdona si no te entiendo lo que te quejas es que te modifica mal el textbox? es decir te modifica todo envez de solo la linea que quieres???


y no te entendi bien lo del webbrowser podrias explicartelo porfavor?


muchas gracias
Imagen
por irux Delirios esporádicos
no para que usar richtextbox sabiendo que seria meter un complemento mas

usando un poco la astucia puedes haciendolo con el text comun y corriente

code:

Código: Seleccionar todo

Private Sub Command1_Click(Index As Integer)
Select Case (Index)
Case "1"
Call modificar("[img]","[/img]")
Case "2"
Call modificar("[center]", "[/center]")
Case "3"
Call modificar("[quote]", "[/quote]")
Case "4"
Call modificar("[b]", "[/b]")
Case "5"
Call modificar("[i]", "[/i]")
Case "6"
Call modificar("[u]", "[/u]")
Case "7"
Call modificar("[LEFT]", "[/LEFT]")
Case "8"
Call modificar("[RIGHT]", "[/RIGHT]")
Case "9"
Call modificar("[url=LINK]", "[/url]")
End Select


End Sub
Public Function modificar(habre As String, cierra As String)


Text1.Text = Mid(Text1.Text, 1, Text1.SelStart) & habre & Text1.SelText & cierra & Mid(Text1.Text, Text1.SelStart + Text1.SelLength + 1, Len(Text1.Text))

End Function

lo del webbrowser explicalo mejor xD
Imagen
Temas similares
Dudas con Rat para android por Zion-92 en Dudas y Preguntas
Dudas sobre crypter apk por ramonlopez en Dudas y Preguntas
Links sobre el tema
Variantes de tema
Responder

Volver a “VB/.NET”