Settings onthouden

[Stress]

Hallo mensen,

Hier ben ik terug met.. Ja een vraag.

Ik ben bezig met een programma te maken en ik wil instellen als ze in een form Settings als ze daar aanklikken in een check box: Screenshot alert. Dit wilt zeggen: Dat een screenshot is gemaakt dat ze een alert moeten weergeven. Nu heb ik 2 checkboxes met On en Off.

Nu wil ik dat ze on/off aanklikken dat hij dit onthoud en altijd uitvoert als men het programma opstart, afsluit, ...

Wie kan me helpen?

Groeten,
Stress

 

[royb3]

Zal je morgen even mijn stukje sturen nu even geen tijd maar heb het al wel in mijn projecten gebruikt.

 

[The Mighty Atom]

Kan je niet beter radiobuttons gebruiken dan? Die zijn beter om voor zoiets te gebruiken aangezien je maar 1 radiobutton aan kan vinken. Het is of aan, of uit.

 

[Stress]

@ Mighty,

Ok, dat doe ik. Maar, hoe laat ik dit dan onthouden?

// EDIT

Laat maar, het is al opgelost!

// EDIT

Toch niet. Ik laat dit nu wel kiezen en dit lukt. Maar telkens als ik het programma afsluit gaan de settings weg. Hoe laat ik dit onthouden?

Bedankt!

 

[royb3]

ok, wil je een button gebruiken?

Public Class Form1

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
CheckBox2.Checked = False
Else

End If
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
CheckBox1.Checked = False
Else
End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sopt As New System.IO.StreamWriter("c:\opties.txt")

If CheckBox2.Checked = True Then
sopt.Write("2")
Else
sopt.Write("1")
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
System.IO.File.CreateText("c:\opties.txt")

Dim lopt As New System.IO.StreamReader("c:\opties.txt")
If lopt.Read = "1" Then
CheckBox1.Checked = True
Else
CheckBox2.Checked = True

End If
End Sub
End Class

 

[ReneDirks]

Dim sopt As New System.IO.StreamWriter("c:\opties.txt")

Moeilijke manier, maar het kan. Wel hopen dat de gebruiker rechten op c:\ heeft he?
Kijk eens naar het My.Settings object

 

[ReneDirks]

Even gegoogled, hier staat wat meer duidelijke info over My.Settings
http://www.devsource.com/c/a/Languages/VBNET-Using-MySettings-for-Application-Settings/

 

[royb3]

heb hem iets aangepast maar deze werkt helemaal prima... bij mij dan.
Public Class Form1

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
CheckBox2.Checked = False
Else

End If
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
CheckBox1.Checked = False
Else
End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sopt As New System.IO.StreamWriter("C:\test\opties.txt")

If CheckBox2.Checked = True Then
sopt.WriteLine("2")
Else
sopt.WriteLine("1")
End If
sopt.Dispose()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


If System.IO.Directory.Exists("C:\test\") Then
Else
System.IO.Directory.CreateDirectory("C:\test\")
End If
If System.IO.File.Exists("C:\test\opties.txt") Then
Else
System.IO.File.Create("C:\test\opties.txt")
End If

Dim lopt As New System.IO.StreamReader("C:\test\opties.txt")
If lopt.ReadLine = "1" Then
CheckBox1.Checked = True
Else
CheckBox2.Checked = True

End If
lopt.Dispose()

End Sub
End Class