poussin38
Messages postés29Date d'inscriptionmardi 11 janvier 2005StatutMembreDernière intervention25 janvier 2005
-
18 janv. 2005 à 14:46
cs_Douns
Messages postés100Date d'inscriptionlundi 16 septembre 2002StatutMembreDernière intervention19 septembre 2005
-
20 janv. 2005 à 17:14
Bonjour,
Mon problème :
J'ouvre un lien avec le navigateur par défaut, cependant il s'ouvre en arrière plan !!!
Et je sais pas comment on fait pour le mettre en premier plan !
quelqu'un peu m'aider ?
poussin38
Messages postés29Date d'inscriptionmardi 11 janvier 2005StatutMembreDernière intervention25 janvier 2005 18 janv. 2005 à 15:08
Salut,
Voici ce que j'utilise pour lancer le navigateur par défaut :
WebBrowser1.Navigate "mon adresse de page web", 1
j'ai essayer AppActivate ...
mais ça marche pô !
poussin38
Messages postés29Date d'inscriptionmardi 11 janvier 2005StatutMembreDernière intervention25 janvier 2005 19 janv. 2005 à 10:54
on se remet ...
le problème vient pas de ma form mais du navigateur par défaut...
quand il se lance il est en arrière plan et les 2 forms ouverte précédement ouverte en premier plan !
donc mon soucis est d'ouvrir en premier plan le navigateur par défaut avec la fonction WebBrowser1
poussin38
Messages postés29Date d'inscriptionmardi 11 janvier 2005StatutMembreDernière intervention25 janvier 2005 20 janv. 2005 à 15:22
Voila le code
Private Sub arc_Click()
Dim IE As Object
'crée un objet internet Explorer
'Set IE = CreateObject("InternetExplorer.Application")
'IE.Visible = True
'ouvre la page factorielle
'IE.navigate "c:\factorielles\2_conduire\default.htm?i=2&j=1"
WebBrowser1.Navigate "c:\factorielles\2_conduire\default.htm?i=2&j=1", 1
End Sub
Et je voudrais que ça s'affiche en premier plan et non en second ...
poussin38
Messages postés29Date d'inscriptionmardi 11 janvier 2005StatutMembreDernière intervention25 janvier 2005 20 janv. 2005 à 15:56
le WebBrowser1 est dans la form, et la form est au premier plan, cependant le navigateur ne s'ouvre pas dans la form !
donc pourquoi mettre la form en premier plan puisque j'aimerai avoir le navigateur que le WebBroser1 ouvre au premier plan ?
cs_Douns
Messages postés100Date d'inscriptionlundi 16 septembre 2002StatutMembreDernière intervention19 septembre 20051 20 janv. 2005 à 16:37
Ok... J'avais pas compris.
Essaye avec ça plutot, c'ets sans webbrowser ca passe par une api.
'déclaration de l'api
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'la fonction pour ouvrir la page, il suffit de l'appeler de cette facon ouvrir_ie http://www.google.fr private function ouvrir_ie(url as string)
Call ShellExecute(0&, vbNullString, url ,vbNullString, vbNullString, vbNormalFocus)
end function
cs_Douns
Messages postés100Date d'inscriptionlundi 16 septembre 2002StatutMembreDernière intervention19 septembre 20051 20 janv. 2005 à 17:14
Ie était un exemple, mais si je me souviens bien, ce code t'ouvre le navigateur par défaut.
Tu mets cette partie tout en haut de ta form, hors d'un sub :
'déclaration de l'api
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Tu mets cette partie où tu veux mais hors d'un sub ou d'une fonction :
'la fonction pour ouvrir la page
private function ouvrir_url(url as string)
Call ShellExecute(0&, vbNullString, url ,vbNullString, vbNullString, vbNormalFocus)
end function
Tu modifies ton élément arc :
Private Sub arc_Click()
'appele la fonction ouvrir_url et lui pass l'url
ouvrir_url "c:\factorielles\2_conduire\default.htm?i=2&j=1"
End Sub