我遇到的问题是,当项目结束时,我的设置似乎没有保存。
我的项目包括FrmMain和FrmSettings
代码如下:
FrmMain:主表单加载时应加载设置
Private Sub FrmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'//Load Settings\\
My.Settings.Reload()
FrmSettings.settingsTXTsearch.Text = My.Settings.SettingSearchTerm
'\\Load Settings//
End Sub
FrmSettings:
Private Sub SettingsButtonApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SettingsButtonApply.Click
My.Settings.SettingSearchTerm = settingsTXTsearch.Text
End Sub
我还添加了一个按钮,显示My.Settings.SettingsSearchTerm的值是什么,并且正确存储,但是一旦项目结束,则不会保存该值。 (使用me.close()和END)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(My.Settings.SettingSearchTerm)
End Sub
如果您需要我提供更多信息或代码示例,请与我们联系。
答案 0 :(得分:0)
从表单关闭事件中删除END命令似乎已解决了这些问题。感谢原帖中的评论。
已移除代码:
Private Sub Main_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Me.Close()
End
End Sub