[Solucionado =)] Separar informacion de un textbox

[CesarTkgo69]

hola a todos

intento hacer un control remoto...
recien estoy haciendo el control del mouse...
con winsock envio las cordenadas juntas al servidor
de esta forma: ejeX:ejeY

entonces en un textbox del servidor llegan las cordenadas
(520:352), (1024:768), (0:0)

y lo que necesito es poner el ejeX en otro textbox
y el ejeY en otro

----Cliente
remote.SendData ejeX & ":" & ejeY

-----Servidor
remote.GetData dat, vbString
Text1 = dat

necesito: ejeX en text2 y ejeY en text3

Porfavor, si alguien me pudiera ayudar
creo que no es un codigo largisimo
pero es muy necesario

De antemano MUCHISIMAS GRACIAS

P.d: cuando lo termine les posteo el codigo fuente

[HaDeS, -]

Es facil, utiliza el split para dividir el codigo en arrays delimitadas por un caracter, como estas separando la cadena con dos puntos, el delimitador son estos dos puntos, y la cadena es la que envias.
Ejemplo

Código (vb) [Seleccionar] Expandir


Private Sub Command3_Click()
Dim Coordenadas$, EjeX&, EjeY&
Coordenadas = "345:678"
EjeX = Split(Coordenadas, ":")(0)
EjeY = Split(Coordenadas, ":")(1)
Msgbox "Eje x = " & EjeX
msgbox "Eje y = " & EjeY
End Sub


O tambien podes hacer lo siguiente:

Código (vb) [Seleccionar] Expandir


Private Sub Command3_Click()
Dim Coordenadas$, Ejes, EjeX&, EjeY&
Coordenadas = "345:678"
Ejes = Split(Coordenadas, ":")
EjeX = Ejes(0)
EjeY = Ejes(1)
Msgbox "Eje x = " & EjeX
msgbox "Eje y = " & EjeY
End Sub


Saludos

[CesarTkgo69]

Yeeeeess!!
HaDes te admiro xD
Larga vida a HaDes
...

Me funciono de maravilla el codigo
Te pasaste compadre

Gracias!!!!!
Chauuz