[VB]Obtener Texto seleccionado en un richtextbox

[Niko^]

mi problema es el siguiente necesito obtener el texto seleccionado al apretar un boton. osea si el usuario selecciona "fulanito" obtengo el texto con el boton y escribo "hola fulanito" no se si se entiende..

quisas con imagenes entiendan mejor =)

el usuario escribe:
http://www.imageshost.us/image.php?id=87CD_4C745F58

y devuelve:
http://www.imageshost.us/image.php?id=46CE_4C745F58


con SelectedText se puede hacer ? no se como se utiliza :S

S2 desde ya gracias

[[D4N93R]]

De verdad no te entiendo.. Pero juega con los métodos Select del textbox..

[Niko^]

De verdad no te entiendo.. Pero juega con los métodos Select del textbox..

quiero obtener un texto que esta selecionado en una variable :S tan malo soy explicando xD

[43H4FH44H45H4CH49H56H45H]

Asi?

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Cadena Seleccionada: " & RichTextBox1.SelectedText)
    End Sub
End Class

[[D4N93R]]

Será, posiblemente sea eso.. Sino revisa los métodos de ese control en MSDN

[Niko^]

Asi?

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Cadena Seleccionada: " & RichTextBox1.SelectedText)
    End Sub
End Class

era eso muchas gracias. habia intentado algo asi pero no me habia salido :S

Será, posiblemente sea eso.. Sino revisa los métodos de ese control en MSDN

estuve buscando en la msdn sobre otros metodos se agradece =)


aca les dejo lo que queria hacer no me di cuenta de postearlo antes.

es como un bbc al presionar el boton(negrita) a la palabra seleccionada se le agregan las etiquetas si no hay ninguna palabra seleccionada escribe las tiquetas en el richtextbox

Código (vbnet) [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim b As String
        b = tex.SelectedText

        If Len(b) = 0 Then

            If Len(tex.Text) = 0 Then
                tex.Text = tex.Text & "[b]" & b & "[/b]"

            Else
                tex.Text = tex.Text & " [b]" & b & "[/b]"

            End If
        Else
            tex.Text = " [b]" & b & "[/b]"
        End If

    End Sub



Gracias y saludos