CARNET D'ADRESSES AVEC IMAGE (TUTORIAL)

Signaler
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
-
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010
-
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/26368-carnet-d-adresses-avec-image-tutorial

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
Messages postés
556
Date d'inscription
lundi 6 octobre 2003
Statut
Membre
Dernière intervention
31 octobre 2019

Bonne source. 8/10.

@ +

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

@+
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
21
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