ANGEL-2 (NAVIGUATEUR INTERNET) AVEC BARRE DE CHARGEMENT
cs_BeCaSiNe
Messages postés
80
Date d'inscription
dimanche 23 février 2003
Statut
Membre
Dernière intervention
16 juin 2008
-
19 mars 2003 à 15:15
nicky_toribic Messages postés 4 Date d'inscription jeudi 7 octobre 2004 Statut Membre Dernière intervention 12 juin 2005 - 28 sept. 2005 à 18:07
nicky_toribic Messages postés 4 Date d'inscription jeudi 7 octobre 2004 Statut Membre Dernière intervention 12 juin 2005 - 28 sept. 2005 à 18:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6503-angel-2-naviguateur-internet-avec-barre-de-chargement
https://codes-sources.commentcamarche.net/source/6503-angel-2-naviguateur-internet-avec-barre-de-chargement
28 sept. 2005 à 18:07
20 mars 2003 à 18:14
19 mars 2003 à 19:18
bravo pour le travail déja réalisé!
19 mars 2003 à 19:02
double-cliquez sur un label22 et renommer dans la feuille de code (si ce n'est pas déjà fais
If Index = 1 Then Shell ("C:Program FilesInternet ExplorerIEXPLORE.EXE") en mettant 0 à la place du 1
et renommez If Index = 2 Then en mettant un 1 à la place du 2
19 mars 2003 à 18:06
a+
(((((( crossblade (avec toute ma sympathie)
19 mars 2003 à 17:45
a+
(((((( crossblade
19 mars 2003 à 16:04
au premier lancement il ne trouve pas le module1.bas
a l'execution Type mismatch sur
K = GetSetting("Angel-2", "Links", "counter")
For i = 0 To k
logique forcement si il ya pas de valeur par default ! il trouve rien !
apres avoir corriger le bug on tombe sur argument not optional sur
If Index 13 Then WebBrowser1.Navigate GetSetting("Angel- ", "Configuration", "HomePage")
meme avec des outils de developpement aussi facile que vb encore arriver a faire des erreurs pareil ils faut le vouloir !
19 mars 2003 à 15:56
19 mars 2003 à 15:50
19 mars 2003 à 15:29
Il semblerait qu'il manque un module.
L'élement navigate d'un webbrowser est une méthode : De ce fait, une méthode ne prends pas d'affectation... copie d'une de tes lignes de code :
Private Sub Label22_Click(Index As Integer)
...
If Index 13 Then WebBrowser1.Navigate GetSetting("Angel-2", "Configuration", "HomePage")
...
Exit sub
Le code exacte serait plutôt :
If Index = 13 Then WebBrowser1.Navigate GetSetting("Angel-2", "Configuration", "HomePage")
Si tu veux un petit coup de main, je veux bien t'aider pour la suite du programme...
SI je puis me permettre encore, il faudrait lui donner des noms de forms et des noms de contrôles plus conventionnels et ajouter une gestion d'erreur...
Voilà... J'espère que je suis pas trop dur...
@ +
Jeff.
19 mars 2003 à 15:15