CheckBox SaveSetting

[ makisiki @ 15.09.2009. 16:21 ] @

Pozdrav

Necu da pravim module, ini, txt, itd ... (komplikovano za mene) :)
Ako je moguce da ovo proradi ili kako da direktno upisuje u registry !?

Code:
Public Class Form1
    Private Check = "CheckBox1.Checked"

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            SaveSetting(Check, "Settings", "Key", CheckBox1.Checked = True)
        Else
            SaveSetting(Check, "Settings", "Key", CheckBox1.Checked = False)
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CheckBox1.Checked = GetSetting(Check, "Settings", "Key", vbNullString)
    End Sub

End Class

p.s. Ovo je iz TextBox primera pa pokusavam za CheckBox ! :)

[ Aleksandar Vasic @ 15.09.2009. 16:25 ] @

Zasto se meni cini da je ovo VB .NET ?

[ captPicard @ 15.09.2009. 16:47 ] @

Je .net, ali ovo ne kužim:

Citat:

Necu da pravim module, ini, txt, itd ... (komplikovano za mene) :)
Ako je moguce da ovo proradi ili kako da direktno upisuje u registry !?

Pa di ćeš jednostavnije od ini-a? :-) Bolje ini nego brljati po registri-u... Iz više razloga...

Probaj ovako, ako baš želiš:

Code:
Public Class Form1
    Private Check = "CheckBox1.Checked"

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            SaveSetting(Check, "Settings", "Key", "True")
        Else
            SaveSetting(Check, "Settings", "Key", "False")
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CheckBox1.Checked = GetSetting(Check, "Settings", "Key", vbNullString)
    End Sub

End Class

[ makisiki @ 15.09.2009. 16:55 ] @

... ako mislis da je tema promasila forum premesti je tamo gde treba da bude (vidim da ima 3 .NET-a i nemam pojma sta je sta)!

A to sto se tebi nesto cini meni nista ne pomaze !!!

Ako hoces da mi pomognes oko ovoga - Ok, ako neces opet Ok.

Zdravo.

[ captPicard @ 15.09.2009. 17:26 ] @

Citat:

makisiki: ... ako mislis da je tema promasila forum premesti je tamo gde treba da bude (vidim da ima 3 .NET-a i nemam pojma sta je sta)!

A to sto se tebi nesto cini meni nista ne pomaze !!!

Ako hoces da mi pomognes oko ovoga - Ok, ako neces opet Ok.

Zdravo.

Nisi niti došao na forum, a već vičeš na moderatore. Nije baš lijepo... A mogao si i sam vidjeti gdje da postaš.

By the way, dao sam ti odgovor.

[ dusty @ 15.09.2009. 17:44 ] @

Citat:

makisiki: A to sto se tebi nesto cini meni nista ne pomaze !!!

Pa nece ti pomoci ni ton kojim tazis pomoc

Uglavnom, batali registry, imas jednu stvar koja se zove Settings (zapravo je to strong-typed app.config fajl).

Code:
<tvoj_namespace>.Properties.Settings.Default

Tu su izlozena sva tvoja podesavanja kao properties, a izmedju ostalog ima i metoda Save().

[ makisiki @ 15.09.2009. 18:37 ] @

Pa ton kojim sam zatrazio pomoc po meni je bio sasvim u redu :)

Probacu ovo sa Settings ... da kazem samo da se ne bavim programiranjem (totalni pocetnik). Instalirao sam
visual studio 2008 i pravim neke buttone i kopiram kodove koji mi se uklapaju u formu (uz malu prepravku) :)

I jos jednom ako je moguce ... kako najprostije to zapamtiti u registry ...

A za to sta je bolje ... dok se malo uvezbam :)

Hvala.

[ markopadjen @ 15.09.2009. 19:54 ] @

Registri ti je bolji samo ako hoćeš da razdvajaš podešavanja po korisnicima, tj da ono što uradi jedan korisnik računara ne važi za drugog:

Za upisivanje:

Code:

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\ImePrograma", "CheckBox1", CheckBox1.Checked)

Za čitanje:

Code:

Dim ImeProgramaReg As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("Software\ImePrograma")

CheckBox1.Checked = ImeProgramaReg.GetValue("CheckBox1")
...