VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB保存程序设置
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:13176, 日期:2001-02-08
《 {用VB保存程序设置} 》

{  注册登记表、ini初始化文件、文本文件等,均可保存程序运行中的一些设置。本人因常用VB编写数据库程序,发现用数据库来保存程序的设置非常简单、实用。下面就以保存窗体的背景色为例,介绍其实现方法。
  新建一个Accesee数据库PrgSet.mdb(其它形式数据库均可),在数据库中创建表ColorSet,表中建一长整型(Long)字段FormBC;从VB标准EXE 中建窗体Form1,在窗体上添加命令按钮Command1、公共对话框CommonDialog1(从工具箱部件中选择Microsoft Common Dialog Control 6.0)、Data控件Data1。程序代码如下:
  Private Sub Command1_Click()
  CommonDialog1.ShowColor
  On Error GoTo ErrDeal
  Data1.Recordset.Edit
  ErrDeal:′空记录时添加新记录
  If Err.Number = 3021 Then Data1.Recordset.AddNew
  Data1.Recordset.Fields(“FormBC”) = CommonDialog1.Color
  Data1.Recordset.Update
  Form1.BackColor = CommonDialog1.Color
  End Sub
  -----------------
  Private Sub Form_Activate()
  On Error Resume Next
  Form1.BackColor = Data1.Recordset.Fields(“FormBC”)
  Resume
  End Sub
---------------------
  Private Sub Form_Load()
  Data1.DatabaseName = “C:\Temp\PrgSet.mdb”
  Data1.RecordSource = “ColorSet”
  End Sub
  运行:按F5运行程序,单击命令按钮,从颜色框中选择适当的颜色,确认后,即可发现窗体的颜色变化,退出程序,重新进入程序又可发现窗体的颜色与退出前一样。
  你不仅能用此法保存窗体上文本框的前景色和背景色,还能用此法保存程序的其它设置,赶快行动吧,让它为你的程序添加新光彩。
  技巧:1.数据库最好只保留一个记录,用多个字段保存多个设置为佳,省得使用Find去定位查找;
  2.数据库表中字段的类型需根据欲保存的数据类型来确定,一般可选择长整型、字节型、字符型等。
  本程序在Win98、Vb6运行通过。}