2
Contributors
3
Replies
5
Views
5 Years
Discussion Span
Last Post by Jx_Man
Featured Replies
  • 3

    You can use SysInfo Component to get information about battery status. Project->Component->Microsoft SysInfo Control Add it to Form and use this following codes : [CODE]Private Sub Form_Load() List1.AddItem "BatteryFullTime = " & _ Format$(SysInfo1.BatteryFullTime) List1.AddItem "BatteryLifeTime = " & _ Format$(SysInfo1.BatteryLifeTime) List1.AddItem "BatteryLifePercent = " & _ Format$(SysInfo1.BatteryLifePercent / 100, … Read More

  • 1

    You're Welcome Read More

3

You can use SysInfo Component to get information about battery status.
Project->Component->Microsoft SysInfo Control
Add it to Form and use this following codes :

Private Sub Form_Load()
    List1.AddItem "BatteryFullTime = " & _
    Format$(SysInfo1.BatteryFullTime)
    List1.AddItem "BatteryLifeTime = " & _
    Format$(SysInfo1.BatteryLifeTime)
    List1.AddItem "BatteryLifePercent = " & _
    Format$(SysInfo1.BatteryLifePercent / 100, _
    "Percent")
    Select Case SysInfo1.BatteryStatus
    Case 1
    List1.AddItem "BatteryStatus = HIGH"
    Case 2
    List1.AddItem "BatteryStatus = LOW"
    Case 4
    List1.AddItem "BatteryStatus = CRITICAL"
    Case 128
    List1.AddItem "BatteryStatus = NO BATTERY"
    Case 255
    List1.AddItem "BatteryStatus = UNKNOWN"
    End Select
End Sub
Comments
I appreciated it too :)
Thank you sir. This code working so well. I really appreciated this
really appreceate that.
This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.