用VB5设置墙纸

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