Boite ouvrir sans bug quand on l'annule

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 546 fois - Téléchargée 38 fois

Contenu du snippet

j'avais trouver quelque part sur se site un code pour ouvrir et il avait un bug il plantais quand on annulais c'est pas pratique je sait qui doit avoir une dizaine de code de ce genre mais quand j'ais cherche je trouvais pas de source pour mes besions a part une mais avec ce bug mais résolu je veut pas de vos commentaire en dissant que c'est pas la premiere source de ce genre ,......
et lavantage de cette source c,est qui ouvre complement le fichier pas juste la 1er ligne de celle si

Source / Exemple :


il faut d'abord un CommonDialog dans notre feuille de projet et lui donné comme nom " cd "
ensuite sur un bouton ecriver .

---------------------------------
cd.Filter = "Fichiers *.TXT|*.txt"
cd.ShowOpen
Dim CheminFichier As String
Dim a
If cd.FileName = "" Then
Form1.Show
Else
CheminFichier = cd.FileName
a = FreeFile()
Open CheminFichier For Input As #a
Text4.Text = Input(LOF(a), a)
Close #a
End If
End Sub

---------------------------------------------------

A voir également

Ajouter un commentaire

Commentaires

cs_wbr
Messages postés
110
Date d'inscription
dimanche 11 août 2002
Statut
Membre
Dernière intervention
21 juillet 2006
-
heu ya encore moins compliker..
if not commondialog1.filename = "" then
'enregistrer
end if

tk ca peut tjours servir a ceux ki connaisse pas les common dialog

a+
cs_diablotin
Messages postés
84
Date d'inscription
samedi 25 mai 2002
Statut
Membre
Dernière intervention
19 janvier 2004
-
oui je le tester il marche asseye avant de parler
cs_diablotin
Messages postés
84
Date d'inscription
samedi 25 mai 2002
Statut
Membre
Dernière intervention
19 janvier 2004
-
oui je le tester il marche asseye avant de parler
cs_6Po
Messages postés
105
Date d'inscription
jeudi 16 mai 2002
Statut
Membre
Dernière intervention
22 janvier 2009
-
lol.. vi
y une erreur qui est générée quand on click sur annuler c'est normal... :D
cv aide de vb sur Dialogbox.ShowOpen
faut utilise on error ... goto to ... avant le open.

Ton exemple ne doit pas fonctionner si on selectionne un fichier et qu'on fasse annuler... a tester...

Mais ta solution n'est pas trés propre.
hvb
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
1 -
lol..

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.