[Help]savefile dialog[Solved]
[Help]savefile dialog[Solved]
hi i was wondering if anyone could help me im making a program it got 5 textboxes and 3 combo boxes and 2 radiobuttons
well i want to know how to use the savefiledialog to save all the info in those things
thanks
well i want to know how to use the savefiledialog to save all the info in those things
thanks
Why would you need a savefiledialog for that?
Use My.settings for this.
Use My.settings for this.
because savedialog would be easier
any way do u have the code?
any way do u have the code?
You wouldn't use SaveDialog at all for saving settings. Use My.settings , simple really.
Originally Posted by NextGen1
You wouldn't use SaveDialog at all for saving settings. Use My.settings , simple really.
Now you just need to go Project-> (projectname)Properties
Then go to the settings tab and add 5 string settings and 2 booleans. There's a tut somewhere in NG's tut sticky about settings saving.
Yea, I even added a how to easily modify settings in application by adding a settings area for your application. pretty straight forward.
I DONT WANT TO SAVE THE SETTING THO I WANT TO SAVE WHATS IN THE TEXTBOXES AND SAVE THE RADIOBUTTON THATS CLICKED INTO A TXT FILE
You can do that using the settings 
Originally Posted by Lolland
You can do that using the settings
Originally Posted by bayley60
I DONT WANT TO SAVE THE SETTING THO I WANT TO SAVE WHATS IN THE TEXTBOXES AND SAVE THE RADIOBUTTON THATS CLICKED INTO A TXT FILE
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
Originally Posted by Hassan
Here you go:
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
yes bt i dont want to save the setting i want to save the info in a txt file using a savefiledialog and all i need plz is the code to get the savefiledailog to do that plz
Originally Posted by bayley60
yes bt i dont want to save the setting i want to save the info in a txt file using a savefiledialog and all i need plz is the code to get the savefiledailog to do that plz
Originally Posted by bayley60
yes bt i dont want to save the setting i want to save the info in a txt file using a savefiledialog and all i need plz is the code to get the savefiledailog to do that plz
Still credits to Xscapism, I just editted it a little:
[php]
Sub SaveInfo(ByVal WhereTo As String)
Dim file As String = WhereToSave
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
Sub RetrieveInfo(ByVal WhereFrom As String)
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]
Now add a button to your form, change it's text to "Save Settings" and add the following code
[php]
Dim SaveDialog as New SaveFileDialog
If SaveDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
SaveInfo(SaveDialog.FileName)
End If
[/php]
Then on another button called "Load Settings" add this
[php]
Dim OFD As New OpenFileDialog
If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
RetrieveInfo(OFD.FileName)
End If
[/php]
But you'll need like some kind of identifier so the user can't just grab any file and attempt to load it.
EDIT
In case all you wanted it to do was save 3 textboxes ONLY
Add this to a button:
[php]
Dim SaveDialog as New SaveFileDialog
If SaveDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Using sWrite as New IO.StreamWriter(SaveDialog.FileName)
sWrite.WriteLine(TextBox1.Text)
sWrite.WriteLine(TextBox2.Text)
sWrite.WriteLine(TextBox3.Text)
End Using
End If
[/php]
And to retrieve it again add this to another button
[php]
Dim OFD As New OpenFileDialog
If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
Using sRead As New IO.StreamReader(OFD.FileName)
TextBox1.Text = sRead.ReadLine
TextBox2.Text = sRead.ReadLine
TextBox3.Text = sRead.ReadLine
End Using
End If
[/php]
String-Slave is obviously back.
Originally Posted by Blubb1337
String-Slave is obviously back.
This thread is closed for replies.
