MESSAGE DE BIENVENUE (INFO DU JOUR) QUI PEUT ETRE SUPPRIMER

Commentaire de Pingouin le 12/07/2004 00:38:54

Ben c parti pour la rigolade...lol
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

Commentaire de RcrivelliNET le 12/07/2004 10:21:21

Honnêtement moi, pour des petit trucs comme ça j?utiliserait SaveSetting() et GetSetting() qui créer une clé de ton prog dans la base de registre.
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+

Commentaire de Scalpweb le 13/07/2004 17:12:51

En plus, moi j'ais vb5, et ya une option toute prête pour créer un truc du genre automatiquement... Sans erreur, et avec SaveSettings...