Save settings VB.net[Solved]

I was trying to make it where if textbox1.text and textbox2.text is not saved under my.settings.rememberme then a MsgBox would popup everytime the form opens..Otherwise it would not show the Msgbox if they are saved.
I tried different ways of doing this, but none work..Any ideas?

save settings saves all try this

Originally Posted by Hassan

Question:
Solution:

Add the following sub-procedure to your program:

[php]Sub SaveInfo()
Dim file As String = My.Computer.FileSystem.SpecialDirectories.MyDocume nts & "\Settings.txt"
Dim strB As New StringBuilder
For Each n As Object In Me.Controls
If n.GetType.Name = "CheckBox" Then
strB.AppendLine(n.Name & ":" & n.checked)
ElseIf n.GetType.Name = "RadioButton" Then
strB.AppendLine(n.Name & ":" & n.checked)
ElseIf n.GetType.Name = "TextBox" Then
strB.AppendLine(n.Name & ":" & n.text)
End If
Next
My.Computer.FileSystem.WriteAllText(file, strB.ToString, False)
End Sub[/php]Then call it from where ever you want. As an example, call it from the Form's Closing event:

Code:

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing SaveInfo() End Sub

Then, to retrieve the saved settings add the following sub:

[php]Sub RetrieveInfo()
Dim file As String = My.Computer.FileSystem.SpecialDirectories.MyDocume nts & "\Settings.txt"
Dim x As New IO.StreamReader(file)
While Not x.EndOfStream
Dim curLine As String = x.ReadLine.Trim
If Not curLine = vbNullString Then
If curLine.Contains(":") Then
Dim sp() As String = curLine.Split(":")
If Me.Controls.ContainsKey(sp(0)) Then
Dim C_Obj As Object = Me.Controls(sp(0))
If C_Obj.GetType.Name = "CheckBox" Or C_Obj.GetType.Name = "RadioButton" Then
If sp(1) = "False" Then
C_Obj.checked = False
Else
C_Obj.checked = True
End If
ElseIf C_Obj.GetType.Name = "TextBox" Then
C_Obj.text = sp(1)
End If
End If
End If
End If
End While
x.Dispose()
End Sub[/php]Again, you can call it from where ever you want. As an example, call it on the Form's Load event:

Code:

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

And you're done xD.

Originally Posted by willrulz188

save settings saves all try this

I wasn't trying to do it like that..

Originally Posted by HiddenoO

I wasn't trying to do it like that..

well that is one way to look into /

Originally Posted by willrulz188

well that is one way to look into /

I'm using the option under properties>>Settings..Lol

Originally Posted by HiddenoO

I'm using the option under properties>>Settings..Lol

ohh now I understand lol my bad

[php]
If My.Settings.RememberMe = String.Empty Then
MsgBox("No settings are saved")
Else
TextBox1.Text = my.settings.RememberMe
End if
[/php]

Originally Posted by Jason

[php]
If My.Settings.RememberMe = String.Empty Then
MsgBox("No settings are saved")
Else
TextBox1.Text = my.settings.RememberMe
End if
[/php]

Awesome, it worked..You're like a God now..
/

Originally Posted by HiddenoO

You're like a God now..

Tell me something I don't know

Originally Posted by Jason

Tell me something I don't know

Compress IP address to 4 characters, like:

192.168.0.1

To Something Like;

RUJF

Originally Posted by Hassan

Compress IP address to 4 characters, like:

192.168.0.1

To Something Like;

RUJF

Weren't you gone? Please stay that way

Originally Posted by Jason

Weren't you gone? Please stay that way

Nigga, you mad cause I gonna rule the sections again ? + I just told a thing you can't do !!

Originally Posted by Hassan

Nigga, you mad cause I gonna rule the sections again ? + I just told a thing you can't do !!

So? You have 6 years of VB/Programming knowledge, I have 7 months...

Originally Posted by Jason

So? You have 6 years of VB/Programming knowledge, I have 7 months...

I just read the following and felt like posting :P

Originally Posted by Jason

Tell me something I don't know

Save settings VB.net[Solved]

Tags for this Thread