HOla a todos, puede que no haya escrito bien el título pero esque no sabía como decirlo :P
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
(http://youtik.com/host/Upload/images/code.png)
espero que me puedan ayudar porque no lo encuentro por ningun lado ;)
saludos
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.
Ya lo encontré, esk lo tenia en algun lugar del pc pero no me acuerdo :laugh: ;-)
gracias de todos modos ;)
ya que estas busca
MID ()
INSTR()
TRIM()
Y todas las otras funciones de manejo de strings :P ::)
Ademas de las funciones de strings, que si bien... son utiles, yo lo haria algo asi :P
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
:P
Lo hice mucho mas simple :P
solo 1 linea de code
saludos ;D
Cita de: VanX en 13 Julio 2011, 18:03 PM
Lo hice mucho mas simple :P
solo 1 linea de code
Asi? :P
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 :P