中科新闻网荆轲新传山洞地图全亮:请教一个小问题（vb.net)
来源：百度文库 编辑：中科新闻网 时间：2024/05/02 14:59:50
很多软件都有一些功能设置选项让用户来设置，
用QQ来说吧。当我们进入QQ之后，我们设置以后的登陆方式为隐身登陆。设置以后，我 们再次打开QQ对话框，对话框上面就会自动在“隐身登陆”前打一个“钩”。
不知这个功能如何来实现。
我也请教了几个人，他们说，要先存入文件，下次启动该软件时，再从该文件调入。
再具体怎么写，没人会。
若有谁知道的，请写一个简单的代码。并稍微注明一下。
谢谢！
用QQ来说吧。当我们进入QQ之后，我们设置以后的登陆方式为隐身登陆。设置以后，我 们再次打开QQ对话框，对话框上面就会自动在“隐身登陆”前打一个“钩”。
不知这个功能如何来实现。
我也请教了几个人，他们说，要先存入文件，下次启动该软件时，再从该文件调入。
再具体怎么写，没人会。
若有谁知道的，请写一个简单的代码。并稍微注明一下。
谢谢！
VB.net已经不会了.不好意思啦，写个Delphi的给你参考吧！
简单的阐述一下原理，没有加入异常处理
procedure SaveConfig(sfileName:string);
var
slData :TStringList;
begin
//保存配置
slData := TStringList.Create;
if CheckBox1.Checked then
slData.Add('True')
else
slData.Add('False');
slData.SaveToFile(sfileName);
slData.Free;
end;
//////////////////////////////////////////////
procedure TForm1.LoadConfig(sfileName:string);
var
slData :TStringList;
begin
//读取配置
slData := TStringList.Create;
slData.LoadFromFile(sfileName);
//从文件读取设置，设置CheckBox是否打勾
if slData.Strings[0] = 'True' then
CheckBox1.Checked := True
else
CheckBox1.Checked := false;
slData.Free;
end;
然后在程序的初始化使用LoadConfig读取设置
在程序终止前使用SaveConfig保存设置