Hola. A todos.
*****************************************
Try this:
myServer="192.168.1.15:110"
My class000
Dim myclass as class001
myclass=new class001
class.ref=me
class.GetAddressAndPort(myServer as string)
msgbox "my port="+port+chr(13)+"my address="+addres
class000 properties
port as string
address as string
end class000
-----------------------------------------
My class001
Sub GetAddressAndPort(Server as string)
referer.Port=nthfield(Server,":",2)
referer.address=nthfield(Server,":",1)
end sub
Class001 property
ref as class000
end class001
*****************************************
Saludos.
Adios. GJJB.
--
------------------------------------
(.^_^.) Aqui estoy. (.^v^.)
http://www.geocities.com/aprometeo/
Einstein dijo:
"No entiendes algo hasta que se lo explicas a tu abuela".
Gerald Jose Juarez Bonilla dice:
"No entiendes algo, hasta que tu abuela entiende lo que le explicas".
"Si pequeña es la patria, uno grande la sueña".
Ruben Dario, poeta Nicaraguense.
Usuario APPLE Y NINTENDO de corazón.
------------------------------------
|