用VB5设置墙纸
添加时间: 2006-2-16 5:48:45 作者: VB教程 阅读次数:45 来源: http://www.d9soft.com
这些ＡＰＩ 函数能解决不少高级语言解决不了或解决不好的问题。
在ＶＢ程序中适当使用ＡＰＩ 函数，可以为应用程序增添不少色彩。下面以设置墙纸为例，对ＡＰＩ 函数的使用做些说明。ＡＰＩ 函数ＳｙｓｔｅｍＰａｒａｍｅｔｅｒｓＩｎｆｏ 的格式为：ＳｙｓｔｅｍＰａｒａｍｅｔｅｒｓＩｎｆｏ ｕＡｃｔｉｏｎ ，ｕＰ—ａｒａｍ，ｌｐｖＰａｒａｍ，ｆｕＷｉｎＩｎｉ
将参数ｕＡｃｔｉｏｎ 设为２０，ｕＰａｒａｍ 设为０，ｌｐｖＰａｒａｍ 设为ｂｍｐ 图片的文件名（含路径）。ｆｕＷｉｎＩｎｉ 设为“＆Ｈ１”，表示更新ＩＮＩ 文件。在ＶＢ５中设置墙纸的操作步骤如下：
１、创建新工程，选择“标准．ｅｘｅ”。
２、向该工程添加一个标准模块Ｍｏｄｕｌｅ１，并将以下代码加入到Ｍｏｄｕｌｅ１的“通用声明”中（通过ＡＰＩ 文本查看器）：
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ
Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ ＳｙｓｔｅｍＰａｒａｍｅｔｅｒｓＩｎｆｏＬｉｂ″ｕｓｅｒ３２″Ａｌｉａｓ″ＳｙｓｔｅｍＰａｒａｍｅｔｅｒｓＩｎｆｏＡ″（ＢｙＶａｌ ｕＡｃｔｉｏｎ Ａｓ Ｌｏｎｇ ，ＢｙＶａｌ ｕＰａｒａｍ ＡｓＬｏｎｇ ，ＢｙＶａｌ ｌｐｖＰａｒａｍ Ａｓ Ａｎｙ，ＢｙＶａｌｆｕＷｉｎＩｎｉ Ａｓ Ｌｏｎｇ）Ａｓ Ｌｏｎｇ
３、向Ｍｏｄｕｌｅ１中添加一公用子程序，其代码如下：Ｐｕｂｌｉｃ Ｓｕｂ Ｓｅｔｂｍｐ（）ＳｙｓｔｅｍＰａｒａｍｅｔｅｒｓＩｎｆｏ２０，０，Ｆｏｒｍ１．Ｔｅｘｔ１．Ｔｅｘｔ ，＆Ｈ１Ｅｎｄ Ｓｕｂ
４、向窗体Ｆｏｒｍ１添加一标签控件Ｌａ—ｂｅｌ１，并设置以下属性：Ｃａｐｔｉｏｎ ＝″请输入墙纸名称：″
Ｔｏｐ ＝６００Ｌｅｆｔ ＝６００
５、向窗体Ｆｏｒｍ１添加一文本框控件Ｔｅｘｔ１，并设置以下属性：
Ｔｅｘｔ ＝″″
Ｔｏｐ ＝９６０Ｌｅｆｔ ＝６００Ｈｅｉｇｈｔ ＝３７５Ｗｉｄｔｈ ＝３０１５
６、向窗体Ｆｏｒｍ１添加一通用对话框控件Ｃｏｍｍｏｎｄｉａ。
７、向窗体Ｆｏｒｍ１添加二个按钮控件，并设置以下属性：Ｃｏｍｍａｎｄ１：Ｃａｐｔｉｏｎ ＝″浏览″
Ｔｏｐ ＝９６０Ｌｅｆｔ ＝３９６０将以下代码添加到Ｃｏｍｍａｎｄ１的Ｃｌｉｃｋ 事件中：Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）Ｃｏｍｍｏｎｄｉａ．Ｆｉｌｔｅｒ ＝″Ｐｉｃｔｕｒｅ（＊．ｂｍｐ）｜＊．ｂｍｐ″Ｃｏｍｍｏｎｄｉａ．ＳｈｏｗＯｐｅｎＴｅｘｔ１．Ｔｅｘｔ ＝Ｃｏｍｍｏｎｄｉａ．ｆｉｌｅｎａｍｅＥｎｄ ＳｕｂＣｏｍｍａｎｄ２：Ｃａｐｔｉｏｎ ＝″确定″
Ｔｏｐ ＝２４００Ｌｅｆｔ ＝１６８０将以下代码添加到Ｃｏｍｍａｎｄ２的Ｃｌｉｃｋ事件中：Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ２＿Ｃｌｉｃｋ（）Ｉｆ Ｔｅｘｔ１．Ｔｅｘｔ ＝″″ＴｈｅｎＭｓｇＢｏｘ″墙纸名称不能为空！″Ｅｌｓｅ ＳｅｔｂｍｐＭｓｇＢｏｘ″墙纸已设置完成！″
Ｅｎｄ ＩｆＥｎｄ Ｓｕｂ运行该程序，通过“浏览”按钮选定图片，单击“确定”，选定的图片即成为桌面的墙纸。
上下文章:
上一篇文章: 在VB中判断Windows9x的运行模式 下一篇文章: 如何自动移动Mouse
相关文章: