estaria re bueno que pongas la etiqueta CODE!!! para visualizar el codigo
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: jmiguel21 en 2 Julio 2008, 22:48 PM
No funciona el link, ¿puedes subir otro?
Gracias.
Cita de: Hans el Topo en 1 Julio 2008, 23:14 PM
yo me he perdido... has montado todo eso para comprobar si existe conexión a internet?
CitarEl sistema permite saber desde una pagina web si el programa esta corriendo (online), o no (offline).
Cita de: aum en 1 Julio 2008, 20:24 PM
me tira error el link!!!
gracias por la data!!
Cita de: cΔssiΔnі en 29 Junio 2008, 05:06 AM
Pero si tu mismo lo dices, utilizas ByVal para pasar un obeto como valor y ByRef para pasarlo como referencia
mira este ejemplo:
Private Sub Form_Load()
I = 3
MsgBox "Valor Inicial de I --> " & I
MsgBox MsnByRef(I) 'Pasandolo como referencia
'MsgBox MsnByVal(I) 'Pasandolo como valor
MsgBox "Valor final de I --> " & I
End Sub
Private Function MsnByRef(ByRef A As Byte) As Byte
A = A + 3
MsnByRef = A
End Function
Private Function MsnByVal(ByVal A As Byte) As Byte
A = A + 3
MsnByVal = A
End Function
Cuando lo pasas como referenca afectas a ese objeto desde la rutina, eso quiere decir, que si I valia 3, será afectada, aumentando su valor. Con ByVal eso NO sucede.
Serás tu de acuerdo a lo que quieras hacer, quien decida cual usar, pero es buena costumbre especificar como se le pasa el parametro a la rutina.