作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有以下代码:
Imports System.IO
Public Class Form2
Dim strInitialDirectory As String
Dim strInitialFile As String
Const strDefaultFileDirectory As String = "C:\Users\Sam\Desktop\Visual Basic\Test"
Const strDefaultFileName As String = "\test.txt"
Dim strFileJPath1 As String = strInitialDirectory + strInitialFile
Dim strFileJPath2 As String = strDefaultFileDirectory + strDefaultFileName
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If My.Settings.strInitialDirectory = Nothing Or My.Settings.strInitialFile = Nothing Then
My.Settings.strInitialDirectory = strDefaultFileDirectory
My.Settings.strInitialFile = strDefaultFileName
Else
MsgBox("Else executed") ' debug
strInitialDirectory = strDefaultFileDirectory
strInitialFile = strDefaultFileName
strInitialDirectory = My.Settings.strInitialDirectory
strInitialFile = My.Settings.strInitialFile
End If
End Sub
End Class
基本上,当表单加载时,我希望它检查 My.Settings 中是否有任何内容,如果没有,则将值设置为默认值,但是再次打开程序时,它不会执行 else 语句,让我相信我做错了什么并且设置没有保存。有什么意见吗?谢谢。
最佳答案
必须调用My.Settings中的save函数
My.Settings.Save()
您应该在更新设置函数的末尾添加它。这将保存下一个 session 的所有设置。
这里是一个 UpdateSettings 函数的例子:
Private Sub UpdateSettings()
Console.WriteLine("Saving Settings")
My.Settings.WO_imprevu = CheckBoxImprevu.Checked
My.Settings.WO_prevu = CheckBoxPrevu.Checked
My.Settings.Date_type = ComboBoxDateType.SelectedIndex
My.Settings.Date_debut = DateTimePickerDebut.Value
My.Settings.Save()
Console.WriteLine("Settings Saved")
End Sub
关于vb.net - My.Settings 不保存变量,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18984391/
我是一名优秀的程序员,十分优秀!