Save Settings

I was saving RadioButtons and CheckBox so i got that error :

Every time i delete the targeted line with error give me error with the line after it.

I don't recognize ReadValue(), does it return a boolean? Check intellisense?
- Try CBool(iniFile.ReadValue("NsRadioButton", "1"))

Maybe try echoing out the value it returns..from the Exception it looks like it's returning an empty string?

Change
NsRadioButton1.Checked = iniFile.ReadValue("NsRadioButton", "1") to
MsgBox("Return Value: " & iniFile.ReadValue("NsRadioButton", "1")

Originally Posted by abuckau907

I don't recognize ReadValue(), does it return a boolean? Check intellisense?
- Try CBool(iniFile.ReadValue("NsRadioButton", "1"))

Maybe try echoing out the value it returns..from the Exception it looks like it's returning an empty string?

Change
NsRadioButton1.Checked = iniFile.ReadValue("NsRadioButton", "1") to
MsgBox("Return Value: " & iniFile.ReadValue("NsRadioButton", "1")

Look, i was use the same code i mean the ReadValue and didn't give me that codes, but when i added more features to save it gave me that error, so i don't think the problem in the codes.

Code:

iniFile.WriteValue("NsRadioButton", "1", NsRadioButton1.Text)

Code:

NsRadioButton1.Checked = iniFile.ReadValue("NsRadioButton", "1")

^Maybe you saved the text instead of the state?

Oh and please use

Code:

Option Strict On

Originally Posted by Biesi

Code:

iniFile.WriteValue("NsRadioButton", "1", NsRadioButton1.Text)

Code:

NsRadioButton1.Checked = iniFile.ReadValue("NsRadioButton", "1")

^Maybe you saved the text instead of the state?

Oh and please use

Code:

Option Strict On

Well, i saved the both, the checked and text.

Code:

iniFile.WriteValue("NsRadioButton", "1", NsRadioButton1.Checked) iniFile.WriteValue("NsRadioButton", "2", NsRadioButton2.Checked) iniFile.WriteValue("NsTextBox", "1", NsTextBox1.Text) iniFile.WriteValue("NsComboBox", "1", NsComboBox1.Text) iniFile.WriteValue("NsTextBox", "2", NsTextBox2.Text) iniFile.WriteValue("NsButton", "1", NsButton1.Text) iniFile.WriteValue("NsButton", "2", NsButton2.Text) iniFile.WriteValue("NsButton", "3", NsButton3.Text) iniFile.WriteValue("NsButton", "4", NsButton4.Text) iniFile.WriteValue("NsButton", "5", NsButton5.Text) iniFile.WriteValue("NsButton", "6", NsButton6.Text) iniFile.WriteValue("NsButton", "7", NsButton7.Text) iniFile.WriteValue("NsLabel", "1", NsLabel1.Value1) iniFile.WriteValue("NsRadioButtonText", "1", NsRadioButton1.Text) iniFile.WriteValue("NsRadioButtonText", "2", NsRadioButton2.Text) iniFile.WriteValue("NsCheckBoxText", "1", NsCheckBox1.Text)

Code:

NsRadioButton1.Checked = iniFile.ReadValue("NsRadioButton", "1") NsRadioButton2.Checked = iniFile.ReadValue("NsRadioButton", "2") NsTextBox1.Text = iniFile.ReadValue("NsTextBox", "1") NsComboBox1.Text = iniFile.ReadValue("NsComboBox", "1") NsTextBox2.Text = iniFile.ReadValue("NsTextBox", "2") NsButton1.Text = iniFile.ReadValue("NsButton", "1") NsButton2.Text = iniFile.ReadValue("NsButton", "2") NsButton3.Text = iniFile.ReadValue("NsButton", "3") NsButton4.Text = iniFile.ReadValue("NsButton", "4") NsButton5.Text = iniFile.ReadValue("NsButton", "5") NsButton6.Text = iniFile.ReadValue("NsButton", "6") NsButton7.Text = iniFile.ReadValue("NsButton", "7") NsLabel1.Value1 = iniFile.ReadValue("NsLabel", "1") NsRadioButton1.Text = iniFile.ReadValue("NsRadioButtonText", "1") NsRadioButton2.Text = iniFile.ReadValue("NsRadioButtonText", "2") NsCheckBox1.Text = iniFile.ReadValue("NsCheckBoxText", "1")

And still gives me that error.

Originally Posted by Exorcist

And still gives me that error.

[Oops, just checked the source again -> nvm]

Try to output the value it returns like said above

Originally Posted by Biesi

[Oops, just checked the source again -> nvm]

Try to output the value it returns like said above

I will try to reset them and reset the dlls save source and put them again.

Originally Posted by -[Exorcist]-

I will try to reset them and reset the dlls save source and put them again.

Can you post the source of the ReadValue and WriteValue?

Originally Posted by Biesi

Can you post the source of the ReadValue and WriteValue?

Code:

Dim iniFile As New Setting.IniFile("C:\LoadSettings.ini") Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Dim w As New IO.StreamWriter("C:\Dlls.txt") Dim i As Integer For i = 0 To ListBox1.Items.Count - 1 w.WriteLine(ListBox1.Items.Item(i)) Next w.Close() iniFile.WriteValue("NsTextBox", "1", NsTextBox1.Text) iniFile.WriteValue("NsComboBox", "1", NsComboBox1.Text) iniFile.WriteValue("NsTextBox", "2", NsTextBox2.Text) iniFile.WriteValue("NsButton", "1", NsButton1.Text) iniFile.WriteValue("NsButton", "2", NsButton2.Text) iniFile.WriteValue("NsButton", "3", NsButton3.Text) iniFile.WriteValue("NsButton", "4", NsButton4.Text) iniFile.WriteValue("NsButton", "5", NsButton5.Text) iniFile.WriteValue("NsButton", "6", NsButton6.Text) iniFile.WriteValue("NsButton", "7", NsButton7.Text) iniFile.WriteValue("NsLabel", "1", NsLabel1.Value1) iniFile.WriteValue("NsRadioButton", "1", NsRadioButton1.Text) iniFile.WriteValue("NsRadioButton", "2", NsRadioButton2.Text) iniFile.WriteValue("NsCheckBox", "1", NsCheckBox1.Text) MsgBox("Saved cookies and Dlls.") End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() Timer2.Start() Timer3.Start() If My.Computer.FileSystem.FileExists("C:\LoadSettings.ini") = True Then NsTextBox1.Text = iniFile.ReadValue("NsTextBox", "1") NsComboBox1.Text = iniFile.ReadValue("NsComboBox", "1") NsTextBox2.Text = iniFile.ReadValue("NsTextBox", "2") NsButton1.Text = iniFile.ReadValue("NsButton", "1") NsButton2.Text = iniFile.ReadValue("NsButton", "2") NsButton3.Text = iniFile.ReadValue("NsButton", "3") NsButton4.Text = iniFile.ReadValue("NsButton", "4") NsButton5.Text = iniFile.ReadValue("NsButton", "5") NsButton6.Text = iniFile.ReadValue("NsButton", "6") NsButton7.Text = iniFile.ReadValue("NsButton", "7") NsLabel1.Value1 = iniFile.ReadValue("NsLabel", "1") NsRadioButton1.Text = iniFile.ReadValue("NsRadioButton", "1") NsRadioButton2.Text = iniFile.ReadValue("NsRadioButton", "2") NsCheckBox1.Text = iniFile.ReadValue("NsCheckBox", "1") Else Dim sw As New System****.StreamWriter("C:\LoadSettings.ini") sw.WriteLine("") sw.Close() End If Dim r As New IO.StreamReader("C:\Dlls.txt") While (r.Peek() > -1) ListBox1.Items.Add(r.ReadLine) End While r.Close() MsgBox("Loaded cookies and saved Dlls successfully.", "Loaded", MsgBoxStyle.Information) End Sub

First Imports Setting.IniFile before these codes

Originally Posted by Exorcist

First Imports Setting.IniFile before these codes

http://www.mpgh.net/forum/290-crossf...or-vb-net.html

Originally Posted by Biesi

http://www.mpgh.net/forum/290-crossf...or-vb-net.html

What's all that :S I will try later.

@Biesi

@OP Did you try to use CBool?

CheckBox.Checked is A BOOLEAN , so if you assign a value to it, it BETTER be a boolean.

If ReadValue() doesn't return a Boolean, THATS A PROBLEM.

Please try
NsRadioButton1.Checked = CBool( inFIle.ReadValue("NsRadioButton", "1"))
NsRadioButton2.Checked = CBool( inFIle.ReadValue("NsRadioButton", "2"))

If that doesn't work, message out the values that are getting read from the file --- it looks like they are empty!
I'm not sure of this "Settings.IniFile" class, don' recognize it. Namespace ?

hey demon, there is a easier way to save things, you can use this for .dlls too, this saves to memory

:: hope i helped

add string/object :

now to get basic idea add this to form :

last of all add the codes which is pretty much self explanatory...
Button1 :

Code:

'// save settings
        Dim savesettings As String = My.Settings.TestString
        My.Settings.TestString = TextBox1.Text
        My.Settings.Save()

Button2 :

Code:

'// load save settings
        TextBox2.Text = My.Settings.TestString

@OP Lucas is right -> Since you're using VB, you could use the "Settings" class that's built-in. The cool thing is that you must declare the type of each data, so type-safety is enforced (ie. Boolean must == a boolean, not a string, etc)

To get to the "Settings" panel (...there is an interactive GUI for adding new properties), double click on "My Project" in the Solution Explorer window.

On the left side is a tab for Settings, click it.

Adding New Items to the Settings Class

To add a new item, just give it a name, and select the appropriate data type. (Boolean for CheckBox.Checked). And save the project (Ctrl+Shift+S).

Now you can "access" those variables via My.Settings. [variable name here]

Once you have set the values to what you want, just call My.Settings.Save().

This totally avoids the issue of having a separate config file.

Save Settings

Post a Reply

Similar Threads

Tags for this Thread