ANGEL-2 (NAVIGUATEUR INTERNET) AVEC BARRE DE CHARGEMENT
cs_BeCaSiNe
Messages postés80Date d'inscriptiondimanche 23 février 2003StatutMembreDernière intervention16 juin 2008
-
19 mars 2003 à 15:15
nicky_toribic
Messages postés4Date d'inscriptionjeudi 7 octobre 2004StatutMembreDernière intervention12 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.
nicky_toribic
Messages postés4Date d'inscriptionjeudi 7 octobre 2004StatutMembreDernière intervention12 juin 2005 28 sept. 2005 à 18:07
C pas mal!!! Javou!! assez cool!! Mais si tu l'améliores encore ca deviendra génial!!!
yoman64
Messages postés962Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 2 août 20102 20 mars 2003 à 18:14
Kelke bug mais c'Est super ,rien d'innovent sof pour les ignet et pour le design. tré bien
cs_revo
Messages postés70Date d'inscriptionsamedi 21 décembre 2002StatutMembreDernière intervention 7 juin 2006 19 mars 2003 à 19:18
waw c bien tout ca (sauf les bugs à corriger soit meme...).
bravo pour le travail déja réalisé!
crossblade
Messages postés113Date d'inscriptiondimanche 14 avril 2002StatutMembreDernière intervention 3 février 2007 19 mars 2003 à 19:02
j'ai découvert un petit problème :
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
crossblade
Messages postés113Date d'inscriptiondimanche 14 avril 2002StatutMembreDernière intervention 3 février 2007 19 mars 2003 à 18:06
encore merci shaoni (je n'avais pas vu ton message)...En revanche j'ai toujours trouvé que les erreurs les plus simples étaient les plus difficiles à déceler et je ne sais pas si tu peut juger un programme à cause de trois malheures lignes fausses
a+
(((((( crossblade (avec toute ma sympathie)
crossblade
Messages postés113Date d'inscriptiondimanche 14 avril 2002StatutMembreDernière intervention 3 février 2007 19 mars 2003 à 17:45
c'est un oublit de ma part.. je l'ai réparé et j'ai rajouté le contenu au-dessus pour éviter de le retélécharger.....
a+
(((((( crossblade
cs_shaoni
Messages postés186Date d'inscriptionmercredi 11 avril 2001StatutMembreDernière intervention12 septembre 2007 19 mars 2003 à 16:04
non en fait c'est pas bien fait du tout !
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 !
JeanFrancis68
Messages postés32Date d'inscriptionvendredi 3 mai 2002StatutMembreDernière intervention 3 juin 2003 19 mars 2003 à 15:56
Je dirais pas que c pas bien fait... C un super début..Moi je suis très optimiste... C juste des conseils ... et c vraiment sans prétentions... car le boulot, c crossblade qui ce l'ai tapé !!! Je répete bêtement ce que mon directeur informatique me disait il y a quatre ans !
Sirocooo
Messages postés412Date d'inscriptionmercredi 19 décembre 2001StatutMembreDernière intervention 7 avril 20081 19 mars 2003 à 15:50
en somme si j'écoute JeanFrancis68, c'est pas bien fait !
JeanFrancis68
Messages postés32Date d'inscriptionvendredi 3 mai 2002StatutMembreDernière intervention 3 juin 2003 19 mars 2003 à 15:29
Salut.. Petite remarque :
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.
cs_BeCaSiNe
Messages postés80Date d'inscriptiondimanche 23 février 2003StatutMembreDernière intervention16 juin 2008 19 mars 2003 à 15:15
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