Créer un savefiledialog a partir de VB 2005

Résolu
haris44 Messages postés 2690 Statut Contributeur -  
haris44 Messages postés 2690 Statut Contributeur -
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
@+
Configuration: Windows Vista
Internet Explorer 7.0

4 réponses

  1. vb58
     
    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
    4
  2. haris44 Messages postés 2690 Statut Contributeur 191
     
    merci beaucoup de ta reponse
    je vais regarder si elle marche et jte donne des nouvelle
    0
  3. haris44 Messages postés 2690 Statut Contributeur 191
     
    merci merci et encore merci
    0
  4. haris44 Messages postés 2690 Statut Contributeur 191
     
    bon en faite j'ai un petit problème
    0