Créer un savefiledialog a partir de VB 2005
Résolu
haris44
Messages postés
2419
Date d'inscription
Statut
Contributeur
Dernière intervention
-
haris44 Messages postés 2419 Date d'inscription Statut Contributeur Dernière intervention -
haris44 Messages postés 2419 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je voudrait créer un save file dialog pour que l'utilisateur de mon logiciel qui est en VB 2005 puissent enregistrer un text box
le ,lien serait en :EnregistrerToolStripMenuItem_Click: menu strip
ensuite qu'il puissent l'ouvrir a partir d'un openfiledialog pour ouvrir le tezxtbox précédents une autre fois
le lien serait en OuvrirToolStripMenuItem_Click
je suis sous windows vista
j'utilise visual basic 2005 version express
et enfin merci de faire simple
merci de votre reponse qui,j'espere, sera tres rapide
@+
je voudrait créer un save file dialog pour que l'utilisateur de mon logiciel qui est en VB 2005 puissent enregistrer un text box
le ,lien serait en :EnregistrerToolStripMenuItem_Click: menu strip
ensuite qu'il puissent l'ouvrir a partir d'un openfiledialog pour ouvrir le tezxtbox précédents une autre fois
le lien serait en OuvrirToolStripMenuItem_Click
je suis sous windows vista
j'utilise visual basic 2005 version express
et enfin merci de faire simple
merci de votre reponse qui,j'espere, sera tres rapide
@+
A voir également:
- Créer un savefiledialog a partir de VB 2005
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Money 2005 - Télécharger - Comptabilité & Facturation
- Créer un compte google - Guide
- Créer un lien pour partager des photos - Guide
- Créer un compte gmail - 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
