none
Comment sauvegarder les options ?

    Question

  • Bonjour tout le monde ;-D
    J 'ai mis un menu "Options" et j'y ai mis des options mais je voudrai quelle se sauvegarde pour la deuxième utilisation du logicielle.
    Cordialement.
    Ziiro The programmer 98
    C / C++ Programmer HTML / CSS Programmer PHP & MySQL Lover Adom corporation administrator :D
    jeudi 18 février 2010 10:06

Réponses

  • Bonjour Zida,

    Tiens, un exemple testé :

    Option Explicit On
    Public Class Form1
      Dim plusDune As Boolean = False
      Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If System.IO.File.Exists(My.Application.Info.DirectoryPath & "\ouvre2.txt") = False Then
          Dim pointeur As New System.IO.StreamWriter(CStr(My.Application.Info.DirectoryPath & "\ouvre2.txt"))
          pointeur.Close()
          pointeur.Dispose()
          pointeur = Nothing
          Exit Sub
        End If
        plusDune = True
      End Sub
      Sub OptionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionsToolStripMenuItem.Click
        If plusDune = False Then
          MsgBox("Première ouverture  ", vbExclamation)
          Exit Sub
        End If
        MsgBox("Plus d'une ouverture  ", vbExclamation)
      End Sub
    End Class
    Cordialement.
    Joe ___ Romans et Logiciels ___ http://irolog.free.fr
    • Proposé comme réponse EhJoe jeudi 18 février 2010 13:57
    • Marqué comme réponse Zida Ziiro dimanche 21 février 2010 21:12
    jeudi 18 février 2010 13:56
  • Bonjour,

    en plus des solutions proposées par fred75, dans un contexte winform vous pouvez également utiliser les "Paramètres d'application" ( Settings.vb ) qui peuvent vous permettre de sauvegarder facilement des informations au niveau application et/ou utilisateur. voir ici

    Cordialement

    • Marqué comme réponse Zida Ziiro dimanche 21 février 2010 21:12
    jeudi 18 février 2010 12:59
  • Bonjour,

    Tu peux les sauvegarder soit dans la base de registre soit dans un fichier  texte ou ini ou autre avec une commande comme:

      str_lignes(i1) = "option1=toto"
      str_lignes(i2) = "option2=titi"
     
      File.WriteAllLines("c:\options.ini", str_lignes)

    fred
    • Marqué comme réponse Zida Ziiro dimanche 21 février 2010 21:12
    jeudi 18 février 2010 12:29

Toutes les réponses

  • Up !
    Personne ?
    C / C++ Programmer HTML / CSS Programmer PHP & MySQL Lover Adom corporation administrator :D
    jeudi 18 février 2010 12:08
  • Bonjour,

    Tu peux les sauvegarder soit dans la base de registre soit dans un fichier  texte ou ini ou autre avec une commande comme:

      str_lignes(i1) = "option1=toto"
      str_lignes(i2) = "option2=titi"
     
      File.WriteAllLines("c:\options.ini", str_lignes)

    fred
    • Marqué comme réponse Zida Ziiro dimanche 21 février 2010 21:12
    jeudi 18 février 2010 12:29
  • Bonjour,

    en plus des solutions proposées par fred75, dans un contexte winform vous pouvez également utiliser les "Paramètres d'application" ( Settings.vb ) qui peuvent vous permettre de sauvegarder facilement des informations au niveau application et/ou utilisateur. voir ici

    Cordialement

    • Marqué comme réponse Zida Ziiro dimanche 21 février 2010 21:12
    jeudi 18 février 2010 12:59
  • Bonjour Zida,

    Tiens, un exemple testé :

    Option Explicit On
    Public Class Form1
      Dim plusDune As Boolean = False
      Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If System.IO.File.Exists(My.Application.Info.DirectoryPath & "\ouvre2.txt") = False Then
          Dim pointeur As New System.IO.StreamWriter(CStr(My.Application.Info.DirectoryPath & "\ouvre2.txt"))
          pointeur.Close()
          pointeur.Dispose()
          pointeur = Nothing
          Exit Sub
        End If
        plusDune = True
      End Sub
      Sub OptionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionsToolStripMenuItem.Click
        If plusDune = False Then
          MsgBox("Première ouverture  ", vbExclamation)
          Exit Sub
        End If
        MsgBox("Plus d'une ouverture  ", vbExclamation)
      End Sub
    End Class
    Cordialement.
    Joe ___ Romans et Logiciels ___ http://irolog.free.fr
    • Proposé comme réponse EhJoe jeudi 18 février 2010 13:57
    • Marqué comme réponse Zida Ziiro dimanche 21 février 2010 21:12
    jeudi 18 février 2010 13:56
  • Bonjour :-D
    M erci vous tousse pour vos réponses et à la prochaine ;)

    Cordialement.
    The programmer 98 Oussama Moutaoikil @liass Zida Ziiro
    C / C++ Programmer HTML / CSS Programmer PHP & MySQL Lover Adom corporation administrator :D
    dimanche 21 février 2010 21:12
  • Bonjour,

     

    Joe, Nikho et Fred, merci pour les réponses.

     

    Cordialement,

    Alex


    Alex Petrescu - MSFT
    lundi 22 février 2010 09:43