用VB编程检测当前电池使用情况

你想知道你的机器当前的电池使用情况吗？如果电池电压不足，系统时间会变慢。所以你应该知道电池的当前状态。如果电压不足，应尽快更换电池。有系统测试软件就可以，没有也没关系。我们可以用VB编程来帮我们找到答案。具体方法如下:

首先，创建一个新项目，在其FORM1上创建两个新的命令按钮(如COMMAND1和COMMAND2)，放置两个标签控件(如LABEL1和LABEL2)，然后加载一个Windows SYSINFO控件5.0(请从项目菜单下的组件对话框中选择并加载)，名称为SYSINFO1，其他保持不变，然后输入下面的代码程序:

“Option Explicit”要求声明所有变量。

-

Privateform _ load()'进行初始化设置

1.caption = "检测电池状态的演示程序"

1.命令。caption = "测试电池"

命令。caption = "退出"

标签1。Caption = ""

标签1。AutoSize = True

末端接头

-

PrivateCommand1 _ click()'检测当前电池状态

选择案例SysInfo1。电池状态

1: label1.caption = "当前电池状态:电池电压充足"

2: label1.caption = "当前电池状态:电池电压不足"

Case: label1.caption = "当前电池状态:电池即将耗尽"

案例128: label1.caption = "当前电池状态:无电池"

案例255: label1.caption = "当前电池状态:未知"

结束选择

末端接头

-

私有子命令2_Click()

“卸载我”结束程序

目标

末端接头

运行程序，实现这个功能，不需要调用任何API函数。以上程序已在中文Windows98和中文VB5.0专业版中调试通过。