CARNET D'ADRESSES AVEC IMAGE (TUTORIAL)
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
-
24 sept. 2004 à 09:17
Saros Messages postés 921 Date d'inscription vendredi 20 décembre 2002 Statut Membre Dernière intervention 23 septembre 2010 - 25 sept. 2004 à 10:30
Saros Messages postés 921 Date d'inscription vendredi 20 décembre 2002 Statut Membre Dernière intervention 23 septembre 2010 - 25 sept. 2004 à 10:30
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
https://codes-sources.commentcamarche.net/source/26368-carnet-d-adresses-avec-image-tutorial
25 sept. 2004 à 10:30
Essaie de redimensionner automatiquement les images à l'affichage, c'est plus pratique...
9/10
24 sept. 2004 à 12:30
@ +
BILALoch
24 sept. 2004 à 10:54
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.
@+
24 sept. 2004 à 09:17
Tu pourrais, par exemple, y expliquer pourquoi tu as choisi ce format d'écriture dans le fichier .car