VB中访问API函数之防错技巧

AsInteger)

Dimres%，s$

s$=Str$(ValInt)

res%=WriteprivateProfileString(SectionName，KeyWord，s$，AppProfileName())

EndSub

SectionName为每一部分的标题，KeyWord为关键词，GetIniS和GetIniN中的DefValue为关键词的缺省值，SetIniS和SetIniN的ValStr和ValInt为要写入INI文件的关键词的值。为了能更好地说明如何使用以上函数和过程，下面举两个实例。

实例1:

开发应用程序通常要使用数据库和其它一些文件，这些文件的目录(包括路径和文件名)不应在程序中固定，而是保存在INI文件中，程序运行时由INI文件中读入。读入数据库文件的代码如下:

DimDatabasenameAsString

Databasename=GetIniS(“数据库”，“职工”，“”)

IfDatabaseName=“”ThenDatabaseName=InputBox(“请输入数据库《职工》的目录”)，

App.Title)’也可通过“文件对话框”进行选择

OnErrorResumeNext

Setdb=OpenDatabas(DatabaseName)

IfErr＜＞0Then

MsgBox“打开数据库失败!”，MB-

ICONSTOP，App.Title:GotoErrorProcessing

Else

SetIniS“数据库”，“职工”，DatabaseName

EndIf

OnErrorGoTo0

……

实例2:

为了方便用户操作，有时需要保存用户界面的某些信息，例如窗口的高度和宽度等。装载窗体时，从INI文件中读入窗体高度和宽度，卸载窗体时将窗体当前高度和宽度存入INI文件，代码如下:

Sub Form1_Load()

……

Forml.Height=GetIniN(“窗体1”，“高度”，6000)

Form1.Width=GetIniN(“窗体1”，“高度”，4500)

EndSub

……

Sub Form1_Unload()

……

SetIniN“窗体1”，“高度”，Me.Height

SetIniN“窗体1，”宽度“，Me.Width

……

End Sub

如何用VB编辑windows注册表中的"(默认)"键值

读取注册表键值的函数是：RegQueryValueEx，而写入键值的函数是：RegSetValueEx，只要将这两个函数的lpValueName 参数设置为空字符串就可以了，例如下面的范例：

Dim hKey

Dim astr As String

RegOpenKey HKEY_CURRENT_USER, "software", hKey

Debug.Print RegQueryValueExString(hKey, "", 0, REG_SZ, astr, 256)

RegSetValueEx hKey, "", 0, REG_SZ, "abcdefg", 7