begin process at 2012 02 12 16:28:40
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Trucs & Astuces

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

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


 Information sur la source

Note :
Aucune note
Catégorie :Trucs & Astuces Niveau :Débutant Date de création :11/07/2004 Date de mise à jour :12/07/2004 08:04:15 Vu / téléchargé :4 401 / 264

Auteur : quiaimeflash

Ecrire un message privé
Site perso
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Bon, j'en entend déjà rigoler... A la vu du code, mais c'est pas grave...

Cet source va donc vous permettre d'afficher un message de bienvenue comme les messages infos du jour (cf. CAPTURE D'ECRAN), mais la particularité de cet source c'est que le système est tout bête....
JE  RECOMMANDE CET SOURCE POUR LES DEBUTANTS (mais pas seulement)

J'attend vos commentaire, pour qu'on rigole ensemble

Source

  • Je code est dans le ZiP.
Je code est dans le ZiP.

 Conclusion

alors ?

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

12 juillet 2004 08:04:15 :
Correction du zip, une minuscule erreur...

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) EXPORTER LES IMAGES DE WORD ET D' EXCEL par Le Pivert
Source avec Zip Source avec une capture JEUX DE VERITÉ ET DE FIDELITÉ par billatosco
Source avec Zip IMAGELOARDER par vkitumaini
Source avec Zip Source avec une capture Source .NET (Dotnet) CREER UN CALENDRIER DE POCHE par Le Pivert
Source avec Zip RECHERCHE D'UN ENREGISTREMENT DANS UNE DATATABLE ET POSITION... par erdna

Commentaires et avis

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 quiaimeflash le 12/07/2004 08:03:12

ha oui exact...
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"

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 quiaimeflash le 12/07/2004 11:49:35

Je sais que vaut mieux mettre dans le base de registre, mais c'est tellement plus simple (et exclusif) de mettre sa par détection de fichier, que je n'ai pu résister.

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.

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...

Commentaire de RcrivelliNET le 13/07/2004 20:20:23

En fait c'est tout simple

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.

Commentaire de quiaimeflash le 14/07/2004 23:05:07

oui oui, je sais pour le registre...
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...

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,468 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales