cualkier ayuda?
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úPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
With WebBrowser1.Document.images
For i = 0 To .length - 1
If .Item(i).FileSize = -1 Then
If .Item(i).src = "http://imagen.gif" Then
MsgBox "la imagen nose cargo"
End If
Else
If .Item(i).src = "http://imagen.giff" Then
MsgBox "la imagen sise cargo"
End If
End If
Next
End With
End Sub
Private Sub Timer1_Timer()
With WebBrowser1.Document.images
For i = 0 To .length - 1
If .Item(i).FileSize = -1 Then
If .Item(i).src = "http://imagen.gif" Then
MsgBox "la imagen nose cargo"
End If
Else
If .Item(i).src = "http://imagen.gif" Then
MsgBox "la imagen sise cargo"
End If
End If
Next
End With
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://paginadondetaimagen.gif.htm"
End Sub
CitarError '91' en tiempo de ejecución:y me señala en amarillo esta parte
La variable de tipo Object o la variable de bloque With no
está establecida.
With WebBrowser1.Document.images