necesito saber insertar en un richtextbox una cadena en la posicion que yo le ponga
Por favor necesitaria saber como se puede insertar en un richtextbox una cadena en la posicion que yo le diga, ya que mi problema es que estoy haciendo una aplicacion en red tipo messenger y a la hora de pasar los iconos cuando le digo que me inserte el icono en el richtextbox, lo mete pero luego al concatenarle el resto del mensaje, me lo borra.
Os pongo un ejemplo de lo que me pasa para que lo entendais mejor:
yo le paso esta cadena: :) hola, que tal?
y le digo al programa que cuando encuentre el simbolo :) me ponga el icono en el richtextbox
Este es el codigo que tengo
************************************************************************
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error GoTo ErrorImagen
Dim imgLaImagen As Picture
Dim strContenidoPortapapeles As String
Dim datos As String
Winsock1.GetData datos
'Hago un bucle for para saber cuando esta el simbolo de la imagen
For i = 1 To Len(datos)
c1 = Mid(datos, i, 1)
c2 = Mid(datos, i + 1, 1)
If c1 = ":" And c2 = ")" Then
i = i + 1
Set imgLaImagen = LoadPicture(App.Path & "
Os pongo un ejemplo de lo que me pasa para que lo entendais mejor:
yo le paso esta cadena: :) hola, que tal?
y le digo al programa que cuando encuentre el simbolo :) me ponga el icono en el richtextbox
Este es el codigo que tengo
************************************************************************
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error GoTo ErrorImagen
Dim imgLaImagen As Picture
Dim strContenidoPortapapeles As String
Dim datos As String
Winsock1.GetData datos
'Hago un bucle for para saber cuando esta el simbolo de la imagen
For i = 1 To Len(datos)
c1 = Mid(datos, i, 1)
c2 = Mid(datos, i + 1, 1)
If c1 = ":" And c2 = ")" Then
i = i + 1
Set imgLaImagen = LoadPicture(App.Path & "