MPGHThe Dark Arts
RegisterLog in

Save Settings

Posts 1–15 of 21 · Page 1 of 2
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.
#1 · edited ·
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")
#2 · edited ·
Quote Originally Posted by abuckau907 View Post
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.
#3 ·
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
#4 ·
Quote Originally Posted by Biesi View Post
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.
#5 ·
Quote Originally Posted by Nexero View Post
And still gives me that error.
[Oops, just checked the source again -> nvm]

Try to output the value it returns like said above
#6 · edited ·
Quote Originally Posted by Biesi View Post


[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.
#7 ·
Quote Originally Posted by -[Exorcist]- View Post

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?
#8 ·
Quote Originally Posted by Biesi View Post


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
#9 · edited ·
@Biesi
#12 ·
@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 ?
#13 · edited ·
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
GL
#14 ·
@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.
#15 · edited ·
Posts 1–15 of 21 · Page 1 of 2

Post a Reply

Similar Threads

Visual Basic Programming[Help] save settings.hopefordopehopefordope 12 Visual Basic Programming[TUT] Save Custom SettingsUglehUgleh 4 Call of Duty Modern Warfare 2 Help{help}My MW2 settings wont save >,<cashmoney950cashmoney950 13 Visual Basic ProgrammingSave settings VB.net[Solved]HiddenoOHiddenoO 13 Call of Duty Modern Warfare 2 Help[Help] Settings/Configuration will not save, along with other things...HOHosma293 4

Tags for this Thread

None

Talk with us