dotNETportal.cz

Zdravím, v mojí aplikaci můžu měnit barvu pozadí a tlačítek pomocí výběru schématu z ComboBoxu. Všechno je v pořádku, ale nevím jak uložit barvu, aby byla stejná i při opětovném spuštění aplikace.

Dim dlg As New Dialog3
        If dlg.ShowDialog = DialogResult.OK Then
            Dim VyberSchematu As Object = dlg.ComboBox1.SelectedItem 'vybrat item z combo boxu

            Select Case VyberSchematu
                Case "Modrá"    'změnit schéma na modré
                    Me.ForeColor = Color.Blue
                    Me.BackColor = Color.Blue

                Case "Červená"
                    Me.ForeColor = Color.Red    'změnit schéma na červené
                    Me.BackColor = Color.Red

                Case "Zelená"
                    Me.ForeColor = Color.Green  'změnit schéma na zelené
                    Me.BackColor = Color.Green

                Case "Žlutá"
                    'změnit schéma na žluté
                    Me.BackColor = Color.Yellow

                Case "Šedá"
                    Me.ForeColor = Color.Gray   'změnit schéma na šedé
                    Me.BackColor = Color.Gray

Poradíte mi někdo prosím?

Děkuji za odpověď

Problém je v tom, že neumím s my.settings

Tak se to naučte...žádná jiná odpověď na to není ;-)

Možná bych se to naučil, kdyby jste mi napsali, jak to má být.

To nepochopíš lidi jsou kr_ni místo toho aby poradili tak dají negativní hodnocení.

Chcete programovat? Bez učení to nejde. Radu jste dostal: "My.Setting" ve vlastnostech projektu. Stačí trochu vlastní snahy. Úvod je pro kritika:

Autor: neregistrovaný

(213.226.234.242)

Tedy otevřete si "My Project" buď přes Solution Explorer nebo přes nabídku Project, na konci ... Properties

Tam otevřete Setting, v tabulce přidejte proměnnou např. Schema typu Integer a nastavte mu výchozí hodnotu, např. 0

Před ukončením aplikace do proměnné zapište číslo aktuálního barevného schematu, např. "Modrá" bude č. 1

  My.Settings("Schema") = 1

A třeba v Load formuláře hodnotu proměnné a k ní příslušné barevné schema načtete

 ' ukázka načtení prom. Schema  
   MsgBox("Schema: " & My.Settings("Schema"))
  ' ....