Question

VB如何使变量在赋值之后关闭程序再打开时变量赋值依旧存在

比如 有一个变量a 我们打开程序后 赋值a=3 然后关闭程序 下一次打开程序的时候 a依然等于3 希望给我详细的答案 谢谢

Answer 1

新建一个xml文件，每次改值之后放到这里面，用的时候从里面读取数据就行。

追问

能告诉我详细的程序吗

追答

'xml信息存储、读取
Public Class XML
Dim mXmlDoc As New System.Xml.XmlDocument
Public XmlFile As String

'加载配置文件
Public Sub New(ByVal File As String)
MyClass.XmlFile = File
MyClass.mXmlDoc.Load(MyClass.XmlFile)
End Sub

'读数据
Public Function GetElement(ByVal node As String, ByVal element As String) As String
Dim mXmlNode As System.Xml.XmlNode = mXmlDoc.SelectSingleNode("//" + node)
Dim xmlNode As System.Xml.XmlNode = mXmlNode.SelectSingleNode(element)
Return xmlNode.InnerText.ToString
End Function

'存数据
Public Function SaveElement(ByVal node As String, ByVal element As String, ByVal val As String) As Boolean
Dim mXmlNode As System.Xml.XmlNode = mXmlDoc.SelectSingleNode("//" + node)
Dim xmlNodeNew As System.Xml.XmlNode
xmlNodeNew = mXmlNode.SelectSingleNode(element)
xmlNodeNew.InnerText = val
mXmlDoc.Save(MyClass.XmlFile)
Return True
End Function
End Class
这是在vb后面加的

程序里面调用的话就是

Dim xmltype As New XML("Login.xml")

Dim strtype As String = xmltype.GetElement("User", "Type")
Dim strname As String = xmltype.GetElement("User", "Name")
这是取值

Dim strtype As Boolean = xmltype.SaveElement("User", "Type", UTComboBox.Text)
Dim strname As Boolean = xmltype.SaveElement("User", "Name", UserNMTextBox.Text)

这是存值

然后再bin文件夹下 debug中新建个Login.xml

输入这个

0(总经理)
000000

读取和存储的东西就是0(总经理) 和 000000