ventana inmediato
Publicado por tavo_mos (14 intervenciones) el 27/02/2009 16:00:10
hola, me estoy iniciando en el mundillo de visual basic, y tengo una duda q no se como hacer
tengo el siguiente formulario :
Private Sub Command1_Click()
Dim Reply As ICMP_ECHO_REPLY
Dim lngSuccess As Long
Dim strIPAddress As String
If SocketsInitialize() Then
strIPAddress = "192.168.0.8"
lngSuccess = ping(strIPAddress, Reply)
Debug.Print "Dirección del Ping: " & strIPAddress
Debug.Print "Raw ICMP code: " & lngSuccess
Debug.Print "Mensaje respuesta Ping : " & EvaluatePingResponse(lngSuccess)
Debug.Print "Tiempo : " & Reply.RoundTripTime & " ms"
SocketsCleanup
Else
Debug.Print WINSOCK_ERROR
End If
End Sub
(es para hacer ping) y el resultado se me muestra en una ventana inmediato, pero yo quiero que se me vea en Label1.
Como puedo hacer???
tengo el siguiente formulario :
Private Sub Command1_Click()
Dim Reply As ICMP_ECHO_REPLY
Dim lngSuccess As Long
Dim strIPAddress As String
If SocketsInitialize() Then
strIPAddress = "192.168.0.8"
lngSuccess = ping(strIPAddress, Reply)
Debug.Print "Dirección del Ping: " & strIPAddress
Debug.Print "Raw ICMP code: " & lngSuccess
Debug.Print "Mensaje respuesta Ping : " & EvaluatePingResponse(lngSuccess)
Debug.Print "Tiempo : " & Reply.RoundTripTime & " ms"
SocketsCleanup
Else
Debug.Print WINSOCK_ERROR
End If
End Sub
(es para hacer ping) y el resultado se me muestra en una ventana inmediato, pero yo quiero que se me vea en Label1.
Como puedo hacer???
Valora esta pregunta


0