[Solucionado] Insertar 2 textos distintos a un texto del textbox seleccionado :S

[VanX]

HOla a todos, puede que no haya escrito bien el título pero esque no sabía como decirlo  

A lo que vamos, yo necesitaría saber como:
- Al clickar un boton, INsertar 2 textos distintos (<!) y (!>) a un texto seleccionado por el usuario (seleccionado) que está dentro de un textbox

espero que me puedan ayudar porque no lo encuentro por ningun lado


saludos

[skapunky]

Tienes la gran suerte de que el visual basic, tiene un buén número de funciónes que pueden servir para tratar cadenas por ejemplo para remplazar texto, eliminar texto y si sabes programar te pueden servir para añadir texto.

Mira sobre las siguientes funciones:

- SPLIT()
- REPLACE()
- LEFT()
- RIGHT()

Cuando veas como funciónan, verás que lo que comentas no es tan dificil y con un poco de imaginación se puede hacer sin problemas. Si tienes dudas o cuando las úses no acaban de funcionar bien, postea el codigo y se te puede ayudar con los pequeños erróres.

Se me olvida comentar, para el texto que selecciona el usuario nunca lo he hecho, pero imagino que debe haber algún evento o propiedad para usar texto seleccionado, mira los eventos del raton y los de un Listbox por ejemplo, segúro que algo hay.

[VanX]

Ya lo encontré, esk lo tenia en algun lugar del pc pero no me acuerdo 

gracias de todos modos

[Elemental Code]

ya que estas busca

MID ()
INSTR()
TRIM()

Y todas las otras funciones de manejo de strings  

[raul338]

Ademas de las funciones de strings, que si bien... son utiles, yo lo haria algo asi

Código (vb) [Seleccionar] Expandir


Option Explicit
' Agregar un TextBox y un CommandButton :P
Const sPrev As String = "<!-- "
Const sPost As String = " -->"

Private Sub Command1_Click()
    Dim iStart As Integer, iLen As Integer
    With Text1
        iStart = .SelStart
        iLen = .SelLength + Len(sPost) + Len(sPrev)
        .SelText = sPrev & .SelText & sPost
        .SelStart = iStart
        .SelLength = iLen
        .SetFocus
    End With
End Sub


[VanX]

Lo hice mucho mas simple

solo 1 linea de code

saludos 

[raul338]

Lo hice mucho mas simple

solo 1 linea de code

Asi?

Código (vb) [Seleccionar] Expandir


Option Explicit
Private Sub Command1_Click()
    Text1.SelText = "<!-- " & Text1..SelText & " -->"
End Sub

La diferencia es que en mi version se mantiene la seleccion por lo que se podra aplicar varias veces sin estar re seleccionando