Carnet d'adresses avec image (tutorial)

Soyez le premier à donner votre avis sur cette source.

Vue 3 363 fois - Téléchargée 719 fois

Description

c'est code bien commenter pour les debutants il explique comment faire un carnet d'adresses
au niveau du code il montre comment utiliser une fonction, un procedure , des variables, le Common Dialog, Le menu....

bon voir le fichier (*.Doc ) avec le code

Source / Exemple :


sub AllInZip ()
      Open Zip to understand
      open Document Word to know how to do and what to write
End sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Saros
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010
-
J'ai bien aimé...
Essaie de redimensionner automatiquement les images à l'affichage, c'est plus pratique...
9/10
bilaloch
Messages postés
556
Date d'inscription
lundi 6 octobre 2003
Statut
Membre
Dernière intervention
31 octobre 2019
-
Bonne source. 8/10.

@ +

BILALoch
cs_NISANDSYSTEMS
Messages postés
179
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
9 janvier 2010
-
Petite parenthese:
dans la procedure suivante
'//====================================
Sub LireLeFichier()
On Error GoTo Er
Dim Ligne As String 'Variable pour stoker une ligne parmi les lignes du fichier
Open sFichier For Input As #1 'ouvrir le fichier en mode de soustraction de données et lui affetcté un numéro:1(#1)
Do While Not EOF(1) 'lecture du fichier ligne par ligne jusqu'à la fin
Line Input #1, Ligne 'lire la ligne du fichier vers la variable "Ligne"
'chaque ligne contient une fiche d'information
TousLesLignes.AddItem Ligne 'stocker tous les lignes dans une list
Loop
Close #1
'//====================================

evite de travail avec un numero predefini pour ton fichier
car tu risqueras de te retrouver avec une belle erreur
si y'a doublons
essaye ceci


'//====================================
Sub LireLeFichier()
Dim Ligne$
dim NumFich'//<=======
On Error GoTo Er
NumFich=FreeFile'//<=======

Open sFichier For Input As #NumFich
Do While Not EOF(1)
Line Input #NumFich, Ligne$
TousLesLignes.AddItem Ligne
Loop
Close #NumFich

sinon bien mais la base de donnee reste la meilleur solution si bien niveau securite que manipulation et execution.

@+
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
19 -
Note : Précises bien que le .doc ne sert que si on n'a pas le projet .vbp sous la main. Il n'apporte rien de plus.

Tu pourrais, par exemple, y expliquer pourquoi tu as choisi ce format d'écriture dans le fichier .car

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.