Test Foro de elhacker.net SMF 2.1

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

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

Cita de: [D4N93R] en 25 Agosto 2010, 03:46 AM
De verdad no te entiendo.. Pero juega con los métodos Select del textbox.. :P

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

Asi?

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

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

Cita de: 43H4FH44H45H4CH49H56H45H en 25 Agosto 2010, 04:31 AM
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

Cita de: [D4N93R] en 25 Agosto 2010, 05:26 AM
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

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