Sauvegarder action avec colorDialog

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

Answer 1

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.

Answer 2

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

Answer 3

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.

Answer 4

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

Answer 5

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.

Answer 6

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

---

 

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.