Mensajes

Lo que te dice Hendrix esta bien explicado aca e agrego un pequeño codigo viejo ,haber si lo entendes mejor:

Código [Seleccionar] Expandir



If bola.Top < linea.Top + linea.Height And bola.Top > linea.Top - linea.Height And bola.Left > linea.Left And bola.Left < linea.Left + linea.Width Then
yy = -50'sale para arriba
xx = 35
End If


Razonalo parece complicado pero es simple .-.

Tendrias que hacer algo asi ,si un cliente selecciona el color verde por ejemplo cuando envia la data por el winsock deberia enviar algo asi :
Winsock1.SendData "Verde" + lo que quieras enviar
al Recibir la Data tu winsock debe separar la cadena "Verde" de la data y ahi traducir "Verde" por VbGreen o por su correspondiente Nº hexadecimal del color.

If Left(datos,5)="verde" then
RichTextBox1.SelColor = vbGreen
RichTextBox1.SelText = (RichTextBox1.SelText +  datos )
end if


If Left(datos,5)="&HFF&" then
RichTextBox1.SelColor = &HFF&'=rojo
RichTextBox1.SelText = (RichTextBox1.SelText +  datos )
end if

esa es la idea .
Podes hacer que envie el Nº en hexadecimal de los colores o Numerar los colores ,eso idealo vos ,pero la idea es que tenes que desglosar lo que llega por el Winsock ahi separar el color ,para asi poder asignarle al RichTextBox el color que te enviaron .
No se si quedo claro,saludos .-.

SI, NO-IP funciona de maravilla ,lo que hace es esto,por ejemplo vos te conectas a NOIP y te llamas JUANCITO cuando te registras en NOIP te dan a elegir como un dominio sera Ejemplo JUANCITO.sytes.net .
Lo que hace es que cuando vos te conectas a NOIP con IP dinamica ,este programita redirecciona y asocia tu ip con tu nombre .
Si yo o cualquier persona se conecta a  JUANCITO.Sytes.net me enviara hasta tu ip verdadera .
Fijate en el foro que hay Info sobre este tema.

PD. sircid yo me he conectado a maquinas de ciber todas con la misma ip ,sin que el dueño del ciber se entere NI configure el Router . Saludos .-.

Mira para pasar al listbox los resultados de (getwindowstext) solo se debe hacer asi
supongamos que lo que te tira el (getwindowstext) lo guardas en la variable "Nombre_Ventana"
List1.AddItem Nombre_Ventana asi lo agregas al listbox.
Ahora para Eliminar Duplicados (No es mio este code) pero funciona joya,debes agregar un Modulo al proyecto  y pega este code :

Código [Seleccionar] Expandir

'MODULO
Public Sub xListKillDupes(listbox As listbox)
'Elimina duplicado en ListBox
        Dim Search1 As Long
        Dim Search2 As Long
        Dim KillDupe As Long
KillDupe = 0
For Search1& = 0 To listbox.ListCount - 1
For Search2& = Search1& + 1 To listbox.ListCount - 1
KillDupe = KillDupe + 1
If listbox.List(Search1&) = listbox.List(Search2&) Then
listbox.RemoveItem Search2&
Search2& = Search2& - 1
End If
Next Search2&
Next Search1&

End Subpara llamarlo esto en el Formulario  debes colcoar asi : 

Código [Seleccionar] Expandir


'FORMULARIO
' Nombre_Ventana aca guardas los nombres de las ventanas
List1.AddItem Nombre_Ventana'carga los resultados
Call xListKillDupes(List1)'elimina duplicados


Espero te sirva ,si no entendes postea ,saludos .-.

Ponelo asi : tu mismo codigo solo agregas los colores

Código [Seleccionar] Expandir

socket.

'recibo datos de esta manera.

Dim datos As String
   Winsock1.GetData datos
   RichTextBox1.SelColor = vbBlue
   RichTextBox1.SelText = (RichTextBox1.SelText +  datos )

'envio datos de esta manera.

Dim enviar As String
   enviar = Text1.Text
   RichTextBox1.SelColor = vbRed
   RichTextBox1.SelText = (RichTextBox1.SelText+Text1.Text)
   Winsock1.SendData enviar


Funciona asi ??? .-.

Haber si esto te sirve :
colocas en un form un timer con Intervalo a 100 (Timer1)
colocas la imagen en el centro del form (Image1)
colocas el Text1(text1) colcoale text1.text=20

Copia y pega este code .la imagen deberia desplazarse a la izquierda hasta llegar al limite "20" (es la distancia que hay entre la imagen y el borde del Formulario) que pusiste en el text1 .
Y asi si queres agregas text y le pones los demas limites que vos quieras.

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()
'Cuando la imagen llega a la orden que pusiste en el Text1
If Image1.Left > Text1 Then
Image1.Left = Image1.Left - 40
Else
'podes colocar para donde queres que se mueva
'la imagen ,yo le puse que Salga del Proceso.
Exit Sub
End If
End Sub

Espero te sirva ,un saludo  .-.

Proba asi

Código [Seleccionar] Expandir



RichTextBox1.SelText = RichTextBox1.Text + Text1.Text & vbCrLf


Tene en cuenta que los cambios relizados en un rich se aplican al "Texto seleccionado" ,se entendio ?? .-.

["Del extasis a la agonia,oscila nuestara historia ,podemos ser lo mejor y tambien lo peor con la misma facilidad"]

Hola amigo aca te dejo un ejemplo simple :
Abris un proyecto nuevo y vas a "PROYECTO" de ahi "COMPONENTES" y ahi elegis "Microsoft Rich Textbox Control 6.0" y lo agregas a la caja de herramientas ,pegalo al formulario y colocale tres botones y pega este codigo :

Código [Seleccionar] Expandir


Private Sub Command1_Click()

RichTextBox1.SelColor = vbRed
RichTextBox1.SelText = "Hola esto esta en rojo" & vbCrLf

End Sub

Private Sub Command2_Click()

RichTextBox1.SelColor = vbBlue
RichTextBox1.SelText = "Hola esto esta en azul" & vbCrLf

End Sub

Private Sub Command3_Click()

RichTextBox1.SelBold = True
RichTextBox1.SelColor = vbBlack
RichTextBox1.SelText = "Hola esto esta en NEGRITA" & vbCrLf

End Sub

Ahi te saldran las frases en rojo ,en azul y en Negrita ,hay muchas mas opciones ,pero creo que esto es lo que queres vos .
Por las dudas el "vbCrLf" es para que pase a la linea de abajo y si distribuis tu proyecto debes agregar el control RichTextBox .
Espero te sirva .-.

"Del extasis a la agonia,oscila nuestara historia ,podemos ser lo mejor y tambien lo peor con la misma facilidad"

Bersuit Vergarabat

Fijate si esto es lo que buscas ,lo probe y funciona

http://www.recursosvisualbasic.com.ar/htm/listado-api/api-16.htm

Tenes razon sircid ,nunca habia visto eso de programar sobre el moden.Pero en Google esta.