Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
SaveSetting("TEST06", "TEXTBOX1", "TEXT", TextBox1.Text)
SaveSetting("TEST06", "TEXTBOX2", "TEXT", TextBox2.Text)
SaveSetting("TEST06", "TEXTBOX3", "TEXT", TextBox3.Text)
SaveSetting("TEST06", "TEXTBOX3", "TEXT", TextBox4.Text)
SaveSetting("TEST06", "TEXTBOX3", "TEXT", TextBox5.Text)

SaveSetting("TEST06", "TrackBar1", "VALUE", TrackBar1.Value)

SaveSetting("TEST06", "CheckBox1", "Checked", CheckBox1.Checked)
SaveSetting("TEST06", "CheckBox1", "Checked", CheckBox2.Checked)
SaveSetting("TEST06", "Checkbox2", "Checked", CheckBox3.Checked)

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = GetSetting("TEST06", "TEXTBOX1", "TEXT")
TextBox2.Text = GetSetting("TEST06", "TEXTBOX2", "TEXT")
TextBox3.Text = GetSetting("TEST06", "TEXTBOX3", "TEXT")
TextBox4.Text = GetSetting("TEST06", "TEXTBOX4", "TEXT")
TextBox5.Text = GetSetting("TEST06", "TEXTBOX5", "TEXT")

TrackBar1.Value = GetSetting("TEST06", "TrackBar", "VALUE", 0)

CheckBox1.Checked = GetSetting("TEST06", "CheckBox1", "Checked", False)
CheckBox2.Checked = GetSetting("TEST06", "CheckBox2", "Checked", False)
CheckBox3.Checked = GetSetting("TEST06", "CheckBox3", "Checked", False)

End Sub



数据恢复后和保存时候不一样。。大家帮我看下是咋回事？谢谢

[此贴子已经被作者于2006-3-15 16:40:12编辑过]