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