用数据库保存VB程序的用户设置

【 tulaoshi.com - 编程语言 】

很多软件都有保存用户设置的功能，以便用户下一次启动时其程序界面及相关设置都是自己最中意和习惯的，这使得软件具有人性化，用户用起来感到亲切。用VB编写的软件可以通过多种途径实现此功能，这里介绍用数据库方法来保存用户的个性化设置。
　　假设我们已经完成了一个用TextBox做编辑栏的字处理程序，该程序提供了让用户对编辑栏背景色和字体的设置菜单，现在我们想让用户所作的设置能保存下来。怎么办呢？
　　第一步：给窗体添加一个Data控件。
　　第二步：用Access建立一个名为Pad的数据库，在库中建立一个表Myset，给表添加四个字段：backcolor（数据），forecolor(文本），fontname(文本）,fontsize（文本）。注意：请将库文件存入程序所在目录。
　　如果你的机器没安装有Access，可通过VB建库。
　　第三步：编写如下代码：
　　
　　在Form_Load事件添加：
　　'定位库文件路径
　　Data1.DatabaseName=App.Path "tSet.mdb"
　　Data1.RecordSource="MySet"
　　
　　'设置背景色
　　PrivateSubmnuBackColorSetting_Click()
　　CommonDialog1.Flags=cdlCCFullOpen
　　CommonDialog1.ShowColor
　　OnErrorGoToerr
　　Data1.Recordset.Edit
　　err:
　　Iferr.Number=3021Then
　　Data1.Recordset.AddNew
　　EndIf
　　Data1.Recordset.Fields("backcolor")=CommonDialog1.Color
　　Data1.Recordset.Update
　　Text1.BackColor=CommonDialog1.Color
　　EndSub
　　
　　'设置字体
　　PrivateSubmnuFontSetting_Click()
　　CommonDialog1.Flags=cdlCFEffectsOrcdlCFBoth
　　CommonDialog1.ShowFont
　　OnErrorGoToFontErr
　　Data1.Recordset.Edit
　　FontErr:
　　Iferr.Number=3021Then
　　Data1.Recordset.AddNew
　　EndIf
　　Data1.Recordset.Fields("fontsize")=CommonDialog1.FontSize
　　Data1.Recordset.Fields("forecolor")=CommonDialog1.Color
　　Data1.Recordset.Fields("fontname")=CommonDialog1.FontName
　　Data1.Recordset.Update
　　
　　Text1.ForeColor=CommonDialog1.Color
　　Text1.Font.Name=CommonDialog1.FontName
　　Text1.Font.Size=CommonDialog1.FontSize
　　
　　'窗体的Activate事件
　　PrivateSubForm_Activate()
　　OnErrorResumeNext
　　Text1.BackColor=Data1.Recordset.Fields("backcolor")
　　Text1.Font.Size=Data1.Recordset.Fields("fontsize")
　　Text1.ForeColor=Data1.Recordset.Fields("forecolor")
　　Text1.Font.Name=Data1.Recordset.Fields("fontname")
　　EndSub
　　
　　至此，我们的程序就能把用户的个性化设置保存下来了。应当注意，只有编译成可执行文件后才有效,在VB状态中运行会提示找不到库文件的。->