Créer un savefiledialog a partir de VB 2005
Résolu/Fermé
haris44
Messages postés
2418
Date d'inscription
vendredi 23 novembre 2007
Statut
Contributeur
Dernière intervention
13 août 2014
-
26 mars 2008 à 10:13
haris44 Messages postés 2418 Date d'inscription vendredi 23 novembre 2007 Statut Contributeur Dernière intervention 13 août 2014 - 18 nov. 2008 à 18:31
haris44 Messages postés 2418 Date d'inscription vendredi 23 novembre 2007 Statut Contributeur Dernière intervention 13 août 2014 - 18 nov. 2008 à 18:31
A voir également:
- Créer un savefiledialog a partir de VB 2005
- Créer un compte gmail - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Créer un compte google - Guide
- Créer un compte instagram - Guide
- Créer un organigramme - Guide
4 réponses
attends voila:
pour la save filedialog:
private sub enregister_click()
dim retour as integer
savefiledialog1.filter = "tous les fichiers textes |*.txt"
'on fais altGR + 6 pour les |
Retour = savefiledialog1.showdialog()
if retour = 1 then
FileOpen(1,savefiledialog1.filename,openmode.binary)
Fileput (1,Text1.text)
Fileclose(1)
End if
end sub
pour la openfiledialog
private sub ouvrir_click
dim retour as integer
openfiledialog.filter = "tous les fichiers textes |*.txt"
retour = openfiledialog.ShowDialog()
if retour = 1 then
dim contenu as new string ("",FileLen(openfiledialog.Filename))
Fileopen(1,openfiledialog.filename,OpenMode.Binary)
FileGet(1, Contenu)
FileClose(1)
Text1.Text = Contenu
end if
end sub
je programme en VB6 et je touche peut le 2005, c'est le code d'un livre que j'ai recopier
pour la save filedialog:
private sub enregister_click()
dim retour as integer
savefiledialog1.filter = "tous les fichiers textes |*.txt"
'on fais altGR + 6 pour les |
Retour = savefiledialog1.showdialog()
if retour = 1 then
FileOpen(1,savefiledialog1.filename,openmode.binary)
Fileput (1,Text1.text)
Fileclose(1)
End if
end sub
pour la openfiledialog
private sub ouvrir_click
dim retour as integer
openfiledialog.filter = "tous les fichiers textes |*.txt"
retour = openfiledialog.ShowDialog()
if retour = 1 then
dim contenu as new string ("",FileLen(openfiledialog.Filename))
Fileopen(1,openfiledialog.filename,OpenMode.Binary)
FileGet(1, Contenu)
FileClose(1)
Text1.Text = Contenu
end if
end sub
je programme en VB6 et je touche peut le 2005, c'est le code d'un livre que j'ai recopier
haris44
Messages postés
2418
Date d'inscription
vendredi 23 novembre 2007
Statut
Contributeur
Dernière intervention
13 août 2014
191
26 mars 2008 à 11:06
26 mars 2008 à 11:06
merci beaucoup de ta reponse
je vais regarder si elle marche et jte donne des nouvelle
je vais regarder si elle marche et jte donne des nouvelle
haris44
Messages postés
2418
Date d'inscription
vendredi 23 novembre 2007
Statut
Contributeur
Dernière intervention
13 août 2014
191
21 juil. 2008 à 16:09
21 juil. 2008 à 16:09
merci merci et encore merci
haris44
Messages postés
2418
Date d'inscription
vendredi 23 novembre 2007
Statut
Contributeur
Dernière intervention
13 août 2014
191
18 nov. 2008 à 18:31
18 nov. 2008 à 18:31
bon en faite j'ai un petit problème