MESSAGE DE BIENVENUE (INFO DU JOUR) QUI PEUT ETRE SUPPRIMER
cs_Pingouin
Messages postés
262
Date d'inscription
lundi 26 août 2002
Statut
Membre
Dernière intervention
24 août 2005
-
12 juil. 2004 à 00:38
quiaimeflash Messages postés 270 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 11 juillet 2007 - 14 juil. 2004 à 23:05
quiaimeflash Messages postés 270 Date d'inscription samedi 29 novembre 2003 Statut Membre Dernière intervention 11 juillet 2007 - 14 juil. 2004 à 23:05
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/24468-message-de-bienvenue-info-du-jour-qui-peut-etre-supprimer
https://codes-sources.commentcamarche.net/source/24468-message-de-bienvenue-info-du-jour-qui-peut-etre-supprimer
14 juil. 2004 à 23:05
c clair que c'est mieux, mais c'était le coter astuces du code que je voulait mettre en avant, je suis sur que personne n'a pensser a renommer un fichier pour faire un "autorun" de logiciel !!
C'est sur que si quelqu'un voulait utiliser ce code pour un programme "commerciale" vaut mieux qu'il le passe dans le registre, mais bon...
13 juil. 2004 à 20:20
pour inscrire une clé qui dit que ton messge doit s'afficher:
SaveSetting App.ProductName, "Bienvenu", "Vérif", "Vrai"
ou pas s'afficher:
SaveSetting App.ProductName, "Bienvenu", "Vérif", "Faux"
et pour tester:
If GetSetting(App.ProductName, "Bienvenu", "Vérif") = Vrai Then
. . .
End If
c'est vraiment une fonction pratique sans risque d'erreur et plus pro :-)... essai ça en vaux la peine :-)
A Peluche.
13 juil. 2004 à 17:12
12 juil. 2004 à 11:49
Pour ce qui est de la geston d'erreur, j'ai essayer de faire un truc vraiment tout simple.
Au début j'en avais mis pour bloquer les erreurs mais je les ai supprimer quand g vu que sa fonctionnant très bien sans.
12 juil. 2004 à 10:21
Pour le reste? fait attention à la gestion d'erreur :
- Si ton fichier n'existe pas.
- S'il est en lecture seul.
- ?
un simple :
On Error GoTo Err_TXT
If Dir(App.Path & "/info.txt") = "info.txt" Then
?
Résoud ce problême
A+
12 juil. 2004 à 08:03
C'est pareceque, juste avant de le publier je voulait renommer toute les form pour que ce soit très claire et pis après je me suis dit que c'était pas la peine, et pis j'ai oublier une partie du code...
"C BON LE ZIP EST CORRIGER"
12 juil. 2004 à 00:38
En effet le systeme est simple tres simple bref. Menfin quand une source est aussi simple on essae d'eviter les erreurs...
Private Sub Form_Load()
' Nous detectons la présence du fichier info.txt
' Si le fichier est présent, on affiche la fenetre de bienvenue
If Dir(App.Path & "/info.txt") = "info.txt" Then
Welcome.Show
Unload Me
' Sinon on ouvre directement le logiciel (Log.frm)
Else
Form1.Show
Unload Me
End If
End Sub
Ce code est dans Form1 donc kan elle s'ouvre et que 'lon ne veut pas afficher le message de bienvenue elle ferme tout plutot que d'afficher l'eventuel logiciel. remplacons plutot form1.show par log.show. Bref ya pas de koi fouter un chat moi je crois que je prefere mettre ca dans un ini puisk les progs sont svt demarrés par un sub main ...Bref c pas inutile. Pas sur kil y ait bcp de rigolade la dessus...
Pingouin