|
很多软件都有保存用户设置的功能,以便用户下一次启动时其程序界面及相关设置都是自己最中意和习惯的,这使得软件具有人性化,用户用起来感到亲切。用VB编写的软件可以通过多种途径实现此功能,这里介绍用数据库方法来保存用户的个性化设置。
假设我们已经完成了一个用TextBox做编辑栏的字处理程序,该程序提供了让用户对编辑栏背景色和字体的设置菜单,现在我们想让用户所作的设置能保存下来。怎么办呢?
第一步:给窗体添加一个Data控件。
第二步:用Access建立一个名为Pad的数据库,在库中建立一个表Myset,给表添加四个字段:backcolor(数据),forecolor(文本),fontname(文本),fontsize(文本)。注意:请将库文件存入程序所在目录。
如果你的机器没安装有Access,可通过VB建库。
第三步:编写如下代码:
->在Form_Load事件添加: 定位库文件路径 Data1.DatabaseName=App.Path \rtSet.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 -> |