正文

用VB编程检测笔记本电脑电量2006-07-28 15:38:00

【评论】 【打印】 【字体: 】 本文链接:http://blog.pfan.cn/accp123/16928.html

分享到:

你想知道你的机器当前电池使用情况吗?系统电池如电压不足将导致系统时间变慢等后果。所以你应该知道电池现在的状态,如电压不足则应该尽快去更换电池。用系统测试软件可以办到,但如果你没有也没关系,我们可以用VB编程来帮我们找到答案,具体做法如下:
  首先,新建一个工程,在其FORM1上新建二个COMMAND命令按钮(如COMMAND1和COMMAND2),再放上二个LABEL控件(如LABEL1和LABEL2),再装载一个WINDOWS SYSINFO CONTROL 5.0(请从工程菜单下部件对话框中选择并装载),其NAME为SYSINFO1,其他都不变,然后输入以下代码程序:
  Option Explicit ′要求声明所有变量
  -------------
  Private Sub Form_Load() ′做初始化设置
  Form1.Caption = ″检测电池状态演示程序″
  Command1.Caption = ″检测电池″
  Command2.Caption = ″退出″
  Label1.Caption = ″″ 
   Label1.AutoSize = True
  End Sub
  -------------
  Private Sub Command1_Click() ′检测当前电池状态
   Select Case SysInfo1.BatteryStatus 
  Case 1: Label1.Caption = ″当前电池状态 :电池电压足″
  Case 2: Label1.Caption = ″当前电池状态 :电池电压不足″
  Case 4: Label1.Caption = ″当前电池状态 :电池快用完了″
  Case 128: Label1.Caption = ″当前电池状态 :无电池″
  Case 255: Label1.Caption = ″当前电池状态 :不知名″
  End Select
  End Sub
  -------------
  Private Sub Command2_Click()
  Unload Me ′结束程序
  End
  End Sub
  运行该程序,不用调用任何的API函数就实现了这个功能。以上程序在中文WINDOWS98,中文VB5.0专业版中调试通过。  

阅读(7223) | 评论(1)


版权声明:编程爱好者网站为此博客服务提供商,如本文牵涉到版权问题,编程爱好者网站不承担相关责任,如有版权问题请直接与本文作者联系解决。谢谢!

评论

loading...
您需要登录后才能评论,请 登录 或者 注册