用VB編程檢測當前電池使用情況

領測軟件測試網 你想知道你的機器當前電池使用情況嗎?系統電池如電壓不足將導致系統時間變慢等后果。所以你應該知道電池現在的狀態，如電壓不足則應該盡快去更換電池。用系統測試軟件可以辦到，但如果你沒有也沒關系，我們可以用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專業版中調試通過。

文章來源于領測軟件測試網 http://www.kjueaiud.com/