你想知道你的機器當前電池使用情況嗎？系統電池如電壓不足將導致系統時間變慢等後果。所以你應該知道電池現在的狀態，如電壓不足則應該盡快去更換電池。用系統測試軟件可以辦到，但如果你沒有也沒關系，我們可以用VB編程來幫我們找到答案,具體做法如下：
首先,新建一個工程,在其FORM1上新建二個COMMAND命令按鈕(如COMMAND1和COMMAND2),再放上二個LABEL控件(如LABEL1和LABEL2),再裝載一個WINDOWSSYSINFOCONTROL5.0(請從工程菜單下部件對話框中選擇並裝載),其NAME為SYSINFO1,其他都不變,然後輸入以下代碼程序:
OptionExplicit′要求聲明所有變量
－－－－－－－－－－－－－
PrivateSubForm_Load()′做初始化設置
Form1.Caption=″檢測電池狀態演示程序″
Command1.Caption=″檢測電池″
Command2.Caption=″退出″
Label1.Caption=″″
Label1.AutoSize=True
EndSub
－－－－－－－－－－－－－
PrivateSubCommand1_Click()′檢測當前電池狀態
SelectCaseSysInfo1.BatteryStatus
Case1:Label1.Caption=″當前電池狀態:電池電壓足″
Case2:Label1.Caption=″當前電池狀態:電池電壓不足″
Case4:Label1.Caption=″當前電池狀態:電池快用完了″
Case128:Label1.Caption=″當前電池狀態:無電池″
Case255:Label1.Caption=″當前電池狀態:不知名″
EndSelect
EndSub
－－－－－－－－－－－－－
PrivateSubCommand2_Click()
UnloadMe′結束程序
End
EndSub
運行該程序，不用調用任何的API函數就實現了這個功能。以上程序在中文WINDOWS98，中文VB5.0專業版中調試通過。->
