Liens relatifs et absolus, rep courant
lechabin
Messages postés
8
Date d'inscription
lundi 24 mars 2003
Statut
Membre
Dernière intervention
17 mai 2004
-
2 avril 2003 à 11:14
fredlynx Messages postés 662 Date d'inscription mercredi 16 janvier 2002 Statut Modérateur Dernière intervention 16 octobre 2010 - 2 avril 2003 à 11:27
fredlynx Messages postés 662 Date d'inscription mercredi 16 janvier 2002 Statut Modérateur Dernière intervention 16 octobre 2010 - 2 avril 2003 à 11:27
A voir également:
- Liens relatifs et absolus, rep courant
- Obfuscation de liens - Forum PHP
- L'obfuscation en .net - Conseils pratiques -Visual Basic / VB.NET
- Verificateur de liens - Forum PHP
- Le mois courant ✓ - Forum C# / .NET
- Liens clip - Forum Flash
1 réponse
fredlynx
Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010
3
2 avril 2003 à 11:27
2 avril 2003 à 11:27
Pour le lien de ton prog c : App.path
Pour lancer Internet explorer je te conseille d'utiliser ça ... comme ça ça marche avec tous les navigateur quelque soit celui installé ...
Private Declare Function GetDesktopWindow Lib "user32" () As Long
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
Private Const SW_SHOWNORMAL As Long = 1
Private Const SW_SHOWMAXIMIZED As Long = 3
Private Const SW_SHOWDEFAULT As Long = 10
Dim sURL As String
sURL = App.Path & "\Aide\Index.html"
Call ShellExecute(GetDesktopWindow(), "open", sURL, 0&, 0&, SW_SHOWNORMAL)
<center>http://www.fredlynx.com
</center>
Pour lancer Internet explorer je te conseille d'utiliser ça ... comme ça ça marche avec tous les navigateur quelque soit celui installé ...
Private Declare Function GetDesktopWindow Lib "user32" () As Long
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
Private Const SW_SHOWNORMAL As Long = 1
Private Const SW_SHOWMAXIMIZED As Long = 3
Private Const SW_SHOWDEFAULT As Long = 10
Dim sURL As String
sURL = App.Path & "\Aide\Index.html"
Call ShellExecute(GetDesktopWindow(), "open", sURL, 0&, 0&, SW_SHOWNORMAL)
<center>http://www.fredlynx.com
</center>
