hola a todos ;D
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 :rolleyes:
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
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:
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 ;)
Yeeeeess!!
HaDes te admiro xD
Larga vida a HaDes :o
...
Me funciono de maravilla el codigo
Te pasaste compadre
Gracias!!!!!
Chauuz ;)