none
Sauvegarder action avec colorDialog RRS feed

  • Question

  • Bonjour,

    Je voulais savoir si il était possible car j'ai fait un ColorDialog je fais les modification des coloris de police mais quand je quitte le programme sa ne garde pas mes modification

    comment faire?

    Cordialement

    Nicolas

    jeudi 9 février 2012 18:45

Réponses

  • Bonjour,

    Votre question est un peu vague. Si j'ai bien compris elle peut être resumer à comment persister des données d'une applicartion.

    Pour y arriver vous povez vous servir de l'application settings : http://msdn.microsoft.com/fr-fr/library/k4s6c3a0.aspx

    Vous pouvez aussi faire du plus basique en écrivant votre donnée dans un fichier texte car il est très facile avec le framework d'écrire et de lire dans un fichier : http://msdn.microsoft.com/fr-fr/library/system.io.file.aspx

    Cordialement.

    jeudi 9 février 2012 18:56
    Auteur de réponse
  • Bonjour,

    Modifier le handler de l'event Load de votre forme pour y inclure le code d'initialisation des couleur de font de vos contrôles comme suivnat :

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim color = Me.LoadColor()

    TextBox1.ForeColor = color TextBox2.ForeColor = color TextBox3.ForeColor = color TextBox4.ForeColor = color TextBox5.ForeColor = color TextBox6.ForeColor = color TextBox7.ForeColor = color TextBox8.ForeColor = color TextBox9.ForeColor = color TextBox10.ForeColor = color TextBox11.ForeColor = color TextBox12.ForeColor = color TextBox13.ForeColor = color TextBox14.ForeColor = color TextBox15.ForeColor = color TextBox16.ForeColor = color TextBox17.ForeColor = color TextBox18.ForeColor = color TextBox19.ForeColor = color TextBox20.ForeColor = color Planning_Ouvrier.Label1.BackColor = color End Sub


    Vous aurez remarque que j'ai choisi "White" comme couleur par défaut dans la méthode LoadColor (Color.FromName("White")) vous pouvez modifier l'instruction pour fixer une aute couleur comme étant celle par défaut.

    Cordialement.

    vendredi 10 février 2012 15:49
    Auteur de réponse

Toutes les réponses

  • Bonjour,

    Votre question est un peu vague. Si j'ai bien compris elle peut être resumer à comment persister des données d'une applicartion.

    Pour y arriver vous povez vous servir de l'application settings : http://msdn.microsoft.com/fr-fr/library/k4s6c3a0.aspx

    Vous pouvez aussi faire du plus basique en écrivant votre donnée dans un fichier texte car il est très facile avec le framework d'écrire et de lire dans un fichier : http://msdn.microsoft.com/fr-fr/library/system.io.file.aspx

    Cordialement.

    jeudi 9 février 2012 18:56
    Auteur de réponse
  • Bonjour Ould Mourad voici mon  code et en gros je voudrai que quand je modifier le coloris de la police que sa ne se remet pas par défaut quand je quitte mon programme

    Private

    Sub Button3_Click_1(sender As System.Object, e As System.EventArgs) Handles Button3.Click

    Dim MyDialog As New ColorDialog()

    ' Keeps the user from selecting a custom color.

    MyDialog.AllowFullOpen =

    True

    ' Allows the user to get help. (The default is false.)

    MyDialog.ShowHelp =

    True

    ' Sets the initial color select to the current text color,

    MyDialog.Color = TextBox1.ForeColor

    MyDialog.Color = TextBox2.ForeColor

    MyDialog.Color = TextBox3.ForeColor

    MyDialog.Color = TextBox4.ForeColor

    MyDialog.Color = TextBox5.ForeColor

    MyDialog.Color = TextBox6.ForeColor

    MyDialog.Color = TextBox7.ForeColor

    MyDialog.Color = TextBox8.ForeColor

    MyDialog.Color = TextBox9.ForeColor

    MyDialog.Color = TextBox10.ForeColor

    MyDialog.Color = TextBox11.ForeColor

    MyDialog.Color = TextBox12.ForeColor

    MyDialog.Color = TextBox13.ForeColor

    MyDialog.Color = TextBox14.ForeColor

    MyDialog.Color = TextBox15.ForeColor

    MyDialog.Color = TextBox16.ForeColor

    MyDialog.Color = TextBox17.ForeColor

    MyDialog.Color = TextBox18.ForeColor

    MyDialog.Color = TextBox19.ForeColor

    MyDialog.Color = TextBox20.ForeColor

    MyDialog.Color = Planning_Ouvrier.Label1.BackColor

    ' Update the text box color if the user clicks OK

    If (MyDialog.ShowDialog() = DialogResult.OK) Then

    TextBox1.ForeColor = MyDialog.Color

    TextBox2.ForeColor = MyDialog.Color

    TextBox3.ForeColor = MyDialog.Color

    TextBox4.ForeColor = MyDialog.Color

    TextBox5.ForeColor = MyDialog.Color

    TextBox6.ForeColor = MyDialog.Color

    TextBox7.ForeColor = MyDialog.Color

    TextBox8.ForeColor = MyDialog.Color

    TextBox9.ForeColor = MyDialog.Color

    TextBox10.ForeColor = MyDialog.Color

    TextBox11.ForeColor = MyDialog.Color

    TextBox12.ForeColor = MyDialog.Color

    TextBox13.ForeColor = MyDialog.Color

    TextBox14.ForeColor = MyDialog.Color

    TextBox15.ForeColor = MyDialog.Color

    TextBox16.ForeColor = MyDialog.Color

    TextBox17.ForeColor = MyDialog.Color

    TextBox18.ForeColor = MyDialog.Color

    TextBox19.ForeColor = MyDialog.Color

    TextBox20.ForeColor = MyDialog.Color

    Planning_Ouvrier.Label1.BackColor = MyDialog.Color

    End If

    End Sub 'button1_Click

     

     

    End

    Class

    jeudi 9 février 2012 19:04
  • Bonjour,

    La procédure suivante devrait vous permettre de gérer la pérsistance de votre color :

    1. Ajouter la méthode suivante à votre Form, elle permet de faire un load de la couleur :
       Private Function LoadColor() As Color
            Dim colorPathFile = "ColorDialog"
            Dim result = Color.FromName("White")
    
            If (System.IO.File.Exists(colorPathFile)) Then
                Dim argb = System.IO.File.ReadAllText(colorPathFile)
                Try
                    result = Color.FromArgb(Integer.Parse(argb))
                Catch ex As Exception
    
                End Try
            End If
    
            Return result
        End Function


    1. Ajouter la méthode suivante à votre Form, elle permet de persister la couleur choisi :
        Private Sub PersisteColor(color As Color)
            Dim colorPathFile = "ColorDialog"
            System.IO.File.WriteAllText(colorPathFile, color.ToArgb())
        End Sub


    1. Modificer votre code de la façon suivante :
    Sub Button3_Click_1(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    
    Dim MyDialog As New ColorDialog()
    
    ' Keeps the user from selecting a custom color.
    
    MyDialog.AllowFullOpen = True
    
    ' Allows the user to get help. (The default is false.)
    
    MyDialog.ShowHelp = True
    
    ' Sets the initial color select to the current text color,
    
    MyDialog.Color = Me.LoadColor()
    
    ' Update the text box color if the user clicks OK
    
    If (MyDialog.ShowDialog() = DialogResult.OK) Then
    
    'Persist the color
    Me.PersisteColor(MyDialog.Color)
    
    TextBox1.ForeColor = MyDialog.Color
    
    TextBox2.ForeColor = MyDialog.Color
    
    TextBox3.ForeColor = MyDialog.Color
    
    TextBox4.ForeColor = MyDialog.Color
    
    TextBox5.ForeColor = MyDialog.Color
    
    TextBox6.ForeColor = MyDialog.Color
    
    TextBox7.ForeColor = MyDialog.Color
    
    TextBox8.ForeColor = MyDialog.Color
    
    TextBox9.ForeColor = MyDialog.Color
    
    TextBox10.ForeColor = MyDialog.Color
    
    TextBox11.ForeColor = MyDialog.Color
    
    TextBox12.ForeColor = MyDialog.Color
    
    TextBox13.ForeColor = MyDialog.Color
    
    TextBox14.ForeColor = MyDialog.Color
    
    TextBox15.ForeColor = MyDialog.Color
    
    TextBox16.ForeColor = MyDialog.Color
    
    TextBox17.ForeColor = MyDialog.Color
    
    TextBox18.ForeColor = MyDialog.Color
    
    TextBox19.ForeColor = MyDialog.Color
    
    TextBox20.ForeColor = MyDialog.Color
    
    Planning_Ouvrier.Label1.BackColor = MyDialog.Color
    
    End If
    
    End Sub 'button1_Clic

    Cordialement.

    vendredi 10 février 2012 12:07
    Auteur de réponse
  • Bonjour,

    Merci par contre moi en faite je veut changer la couleur de la police d'un textbox tout sa c ok mais quand je quitte le programme il ne garde pas en mémoire mon changement de couleur moi je voudrai que sa reste bleu par exemple !

    Cordialement

    Nicolas

    vendredi 10 février 2012 13:14
  • Bonjour,

    Modifier le handler de l'event Load de votre forme pour y inclure le code d'initialisation des couleur de font de vos contrôles comme suivnat :

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim color = Me.LoadColor()

    TextBox1.ForeColor = color TextBox2.ForeColor = color TextBox3.ForeColor = color TextBox4.ForeColor = color TextBox5.ForeColor = color TextBox6.ForeColor = color TextBox7.ForeColor = color TextBox8.ForeColor = color TextBox9.ForeColor = color TextBox10.ForeColor = color TextBox11.ForeColor = color TextBox12.ForeColor = color TextBox13.ForeColor = color TextBox14.ForeColor = color TextBox15.ForeColor = color TextBox16.ForeColor = color TextBox17.ForeColor = color TextBox18.ForeColor = color TextBox19.ForeColor = color TextBox20.ForeColor = color Planning_Ouvrier.Label1.BackColor = color End Sub


    Vous aurez remarque que j'ai choisi "White" comme couleur par défaut dans la méthode LoadColor (Color.FromName("White")) vous pouvez modifier l'instruction pour fixer une aute couleur comme étant celle par défaut.

    Cordialement.

    vendredi 10 février 2012 15:49
    Auteur de réponse
  • Bonjour, Nicolas,

    Est-ce que vous avez testé la solution proposée ? Merci de tenir la communauté informée sur la suite de vos démarches.

    Cordialement,

    Cipri


    Suivez MSDN sur Twitter   Suivez MSDN sur Facebook


    Ciprian DUDUIALA, MSFT  
    •Nous vous prions de considérer que dans le cadre de ce forum on n’offre pas de support technique et aucune garantie de la part de Microsoft ne peut être offerte.

    lundi 13 février 2012 08:26