Discussion :

[Maxgad]

Bonjour,
Je cherche sans succès à mettre à niveau une fonction vba vers vb.net mais ca ne marche pas.
Voici la fonction qui marche bien en vba et que je souhaite utiliser dans un programme en vb net

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Function WaitIE(oIE As InternetExplorer, Optional pTimeOut As Long = 0) As Boolean
Dim lTimer As Double
lTimer = Timer
Do
    DoEvents
   If oIE.readyState = READYSTATE_COMPLETE And Not oIE.Busy Then Exit Do
   If pTimeOut > 0 And Timer - lTimer > pTimeOut Then
       WaitIE = True
       Exit Do
   End If
Loop
End Function

Merci de votre aide

[prologic]

Est-ce que tu as un code erreur à nous fournir ou éventuellement la ligne qui bloque ?

WaitIE > Return True ?
Timer > variable ou fonction ? je crois que c'est une fonction réservé à VB.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Error	1	'Timer' is a type and cannot be used as an expression.

[Maxgad]

Bonjour prologic, le forum
En faite, c'est Timer qui pose probleme. Il me dit que c'est impossible de convertir timer en double !
Merci encore

'''le prinicipe de la fonction c'est de déclencher la fermeture de la page web au cas ou le chargement met plus de 8 secondes.

[prologic]

Essaye ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function WaitIE(oIE As InternetExplorer, Optional pTimeOut As Long = 0) As Boolean
Dim lTimer As Double = Now
 
 
Do
    DoEvents
   If oIE.readyState = READYSTATE_COMPLETE And Not oIE.Busy Then Exit Do
   If pTimeOut > 0 And DateDiff("s",lTimer,Now) > pTimeOut Then
       WaitIE = True
       Exit Do
   End If
Loop
End Function