Angel-2 (naviguateur internet) avec barre de chargement

Soyez le premier à donner votre avis sur cette source.

Vue 6 809 fois - Téléchargée 744 fois

Description

Aucune description n'est fournie pour ce projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_BeCaSiNe
Messages postés
80
Date d'inscription
dimanche 23 février 2003
Statut
Membre
Dernière intervention
16 juin 2008
-
Pas de ZiP lOl
JeanFrancis68
Messages postés
32
Date d'inscription
vendredi 3 mai 2002
Statut
Membre
Dernière intervention
3 juin 2003
-
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.
Sirocooo
Messages postés
412
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
7 avril 2008
1 -
en somme si j'écoute JeanFrancis68, c'est pas bien fait !
JeanFrancis68
Messages postés
32
Date d'inscription
vendredi 3 mai 2002
Statut
Membre
Dernière intervention
3 juin 2003
-
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 !
cs_shaoni
Messages postés
186
Date d'inscription
mercredi 11 avril 2001
Statut
Membre
Dernière intervention
12 septembre 2007
-
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 !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.