Home › Forum › Programming › Other Programming › Visual Basic Programming › Save settings VB.net[Solved]
Save settings VB.net[Solved]
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?
I tried different ways of doing this, but none work..Any ideas?
save settings saves all try this
Originally Posted by Xscapism
Originally Posted by Xscapism
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:
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:
And you're done xD.
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
[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
