VB程序保存设置
VB怎样保存设置?例如我用VB编写了一个程序,里面有设置的功能.例如有可以设置程序可见或不可见.假如我设置了不可见并希望下一次打开程序的时候界面就不可见.假如又设置回可见...
VB怎样保存设置?例如我用VB编写了一个程序,里面有设置的功能.例如有可以设置程序可见或不可见.假如我设置了不可见并希望下一次打开程序的时候界面就不可见.假如又设置回可见并下一次打开的时候就可见.请问怎样设置?重点是设置了以后怎样保存设置?上网看说用INI文件保存起一,在下一次打开程序的时候就读回那个INI文件就可以...请问怎样实现?谢谢
展开
展开全部
给你写个VB操作INI文件的例子吧,很简单,照着改改就行了。
form_load的时候用读取,点击设置按钮的时候用写入,然后用的时候直接用LocBuff的值就OK了,简单吧?
读取INI文件:
Dim LocBuff As String
Dim ret As Long
LocBuff = String(255, " ")
ret = GetPrivateProfileString("[KeyName]", "KeyValue", "", LocBuff, 256, App.Path & "\INI\Config.ini")
LocBuff = Trim(LocBuff)
LocBuff = Left(LocBuff, Len(LocBuff) - 1)
写入INI文件:
WritePrivateProfileString "[KeyName]", "KeyValue", UserValue, App.Path & "\INI\Config.ini"
INI文件格式:
[KeyName]
KeyValue=UserValue
form_load的时候用读取,点击设置按钮的时候用写入,然后用的时候直接用LocBuff的值就OK了,简单吧?
读取INI文件:
Dim LocBuff As String
Dim ret As Long
LocBuff = String(255, " ")
ret = GetPrivateProfileString("[KeyName]", "KeyValue", "", LocBuff, 256, App.Path & "\INI\Config.ini")
LocBuff = Trim(LocBuff)
LocBuff = Left(LocBuff, Len(LocBuff) - 1)
写入INI文件:
WritePrivateProfileString "[KeyName]", "KeyValue", UserValue, App.Path & "\INI\Config.ini"
INI文件格式:
[KeyName]
KeyValue=UserValue
展开全部
Private Sub Command1_Click() '可见
SaveSetting "MyApp", "Setting", "Visible", True
End Sub
Private Sub Command2_Click() '不可见
SaveSetting "MyApp", "Setting", "Visible", False
End Sub
Private Sub Form_Load()
Debug.Print GetSetting("MyApp", "Setting", "Visible")
End Sub
SaveSetting "MyApp", "Setting", "Visible", True
End Sub
Private Sub Command2_Click() '不可见
SaveSetting "MyApp", "Setting", "Visible", False
End Sub
Private Sub Form_Load()
Debug.Print GetSetting("MyApp", "Setting", "Visible")
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你可以搜索 "vb配置文件" 看看如何操作 .ini文件 恰时则可用ini来保存程序的设置
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
把相关信息写到注册表里面。具体注册表操作在网上搜素以下
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询