Problème WebBrowser, API

Question

Salut.
Dans mon evenement LinkError de mon WebBrowser, j'ai mis le code suivant :

Private Sub WebBrowser_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
Dim Taille As Integer, Tamp As String
Tamp = Space(255)
Taille = Len(Tamp)
GetCurrentDirectory Taille, Tamp
WebBrowser.Navigate (GetCurrentDirectory & "error.html")
End Sub

error.html est la page qui s'affiche en cas d'erreur, je me suis servi de l'API GetCurrentDirectory pour combiner le chemin d'accès de l'application avec le nom de la page HTML se situant dans ce dossier. Pourtant que je teste, il me met l'erreur suivante :

"Erreur de compilation, cet argument n'est pas facultatif".

Please,help me.

Merci d'avance.

cs_bultez · Answer

bonjour,
WebBrowser.Navigate (tamp & "error.html")
peut-être ?
Cordialement    Bul. [Site] [[mailto:marcelBultez@Tiscali.fr Mail]]

link78180 · Answer

Ca me met :

Erreur 453 : Point d'entrée GetCurrentDirectory d'une DLL introuvable dans kernel32.

cs_bultez · Answer

Private [ou Public] Declare Function GetCurrentDirectory _
Lib "kernel32" Alias "GetCurrentDirectory" ( _
ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
c'est déclaré comme ça ?
Cordialement    Bul. [Site] [[mailto:marcelBultez@Tiscali.fr Mail]]

link78180 · Answer

Oui, exactement.

cs_bultez · Answer

Private Declare Function GetCurrentDirectory _
    Lib "kernel32" Alias "GetCurrentDirectoryA" _
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
je viens de tester, ça marche.
Cordialement    Bul. [Site] [[mailto:marcelBultez@Tiscali.fr Mail]]

link78180 · Answer

Hum, maintenant à la place de m'afficher la page d'erreur, ca m'affiche juste le dossier courant (comme-ci j'avais juste mis : WebBrowser.Navigate ("error.html"). Bizarre.

link78180 · Answer

Euh, oups, jme suis trompé !
Je voulais dire : Comme-ci j'avais juste mis 

WebBrowser.Navigate (tamp)

Problème WebBrowser, API

7 réponses

Discussions similaires