Ｗｉｎｄｏｗｓ
由许多动态链接库（ＤＬＬ）组成，这些ＤＬＬ中包含成百上千个用于访问Ｗｉｎｄｏｗｓ 操作系统自身的函数（称之为ＡＰＩ
函数）。
这些ＡＰＩ 函数能解决不少高级语言解决不了或解决不好的问题。
在ＶＢ程序中适当使用ＡＰＩ 函数，可以为应用程序增添不少色彩。下面以设置墙纸为例，对ＡＰＩ 函数的使用做些说明。ＡＰＩ
函数ＳｙｓｔｅｍＰａｒａｍｅｔｅｒｓＩｎｆｏ 的格式为：ＳｙｓｔｅｍＰａｒａｍｅｔｅｒｓＩｎｆｏ ｕＡｃｔｉｏｎ
，ｕＰ—ａｒａｍ，ｌｐｖＰａｒａｍ，ｆｕＷｉｎＩｎｉ
将参数ｕＡｃｔｉｏｎ 设为２０，ｕＰａｒａｍ 设为０，ｌｐｖＰａｒａｍ 设为ｂｍｐ 图片的文件名（含路径）。ｆｕＷｉｎＩｎｉ
设为“＆Ｈ１”，表示更新ＩＮＩ 文件。在ＶＢ５中设置墙纸的操作步骤如下：
１、创建新工程，选择“标准．ｅｘｅ”。
２、向该工程添加一个标准模块Ｍｏｄｕｌｅ１，并将以下代码加入到Ｍｏｄｕｌｅ１的“通用声明”中（通过ＡＰＩ
文本查看器）：
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ ＳｙｓｔｅｍＰａｒａｍｅｔｅｒｓＩｎｆｏＬｉｂ″ｕｓｅｒ３２″Ａｌｉａｓ″ＳｙｓｔｅｍＰａｒａｍｅｔｅｒｓＩｎｆｏＡ″（ＢｙＶａｌ
ｕＡｃｔｉｏｎ Ａｓ Ｌｏｎｇ ，ＢｙＶａｌ ｕＰａｒａｍ ＡｓＬｏｎｇ ，ＢｙＶａｌ ｌｐｖＰａｒａｍ Ａｓ Ａｎｙ，ＢｙＶａｌｆｕＷｉｎＩｎｉ
Ａｓ Ｌｏｎｇ）Ａｓ Ｌｏｎｇ
３、向Ｍｏｄｕｌｅ１中添加一公用子程序，其代码如下：Ｐｕｂｌｉｃ Ｓｕｂ Ｓｅｔｂｍｐ（）ＳｙｓｔｅｍＰａｒａｍｅｔｅｒｓＩｎｆｏ２０，０，Ｆｏｒｍ１．Ｔｅｘｔ１．Ｔｅｘｔ
，＆Ｈ１Ｅｎｄ Ｓｕｂ
４、向窗体Ｆｏｒｍ１添加一标签控件Ｌａ—ｂｅｌ１，并设置以下属性：Ｃａｐｔｉｏｎ
＝″请输入墙纸名称：″
Ｔｏｐ ＝６００Ｌｅｆｔ ＝６００
５、向窗体Ｆｏｒｍ１添加一文本框控件Ｔｅｘｔ１，并设置以下属性：
Ｔｅｘｔ ＝″″
Ｔｏｐ ＝９６０Ｌｅｆｔ ＝６００Ｈｅｉｇｈｔ ＝３７５Ｗｉｄｔｈ ＝３０１５
６、向窗体Ｆｏｒｍ１添加一通用对话框控件Ｃｏｍｍｏｎｄｉａ。
７、向窗体Ｆｏｒｍ１添加二个按钮控件，并设置以下属性：Ｃｏｍｍａｎｄ１：Ｃａｐｔｉｏｎ ＝″浏览″
Ｔｏｐ ＝９６０Ｌｅｆｔ ＝３９６０将以下代码添加到Ｃｏｍｍａｎｄ１的Ｃｌｉｃｋ 事件中：Ｐｒｉｖａｔｅ
Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）Ｃｏｍｍｏｎｄｉａ．Ｆｉｌｔｅｒ ＝″Ｐｉｃｔｕｒｅ（＊．ｂｍｐ）｜＊．ｂｍｐ″Ｃｏｍｍｏｎｄｉａ．ＳｈｏｗＯｐｅｎＴｅｘｔ１．Ｔｅｘｔ
＝Ｃｏｍｍｏｎｄｉａ．ｆｉｌｅｎａｍｅＥｎｄ ＳｕｂＣｏｍｍａｎｄ２：Ｃａｐｔｉｏｎ ＝″确定″
Ｔｏｐ ＝２４００Ｌｅｆｔ ＝１６８０将以下代码添加到Ｃｏｍｍａｎｄ２的Ｃｌｉｃｋ事件中：Ｐｒｉｖａｔｅ
Ｓｕｂ Ｃｏｍｍａｎｄ２＿Ｃｌｉｃｋ（）Ｉｆ Ｔｅｘｔ１．Ｔｅｘｔ ＝″″ＴｈｅｎＭｓｇＢｏｘ″墙纸名称不能为空！″Ｅｌｓｅ
ＳｅｔｂｍｐＭｓｇＢｏｘ″墙纸已设置完成！″
Ｅｎｄ ＩｆＥｎｄ Ｓｕｂ运行该程序，通过“浏览”按钮选定图片，单击“确定”，选定的图片即成为桌面的墙纸。
（浙江省温岭市太平镇兰田新村３—２号陈小勇３１７５００）