使用sysinfo监视笔记本电脑的电池信息.txt

VB技巧问答10000例 VB技巧问答10000例

Visual Basic中 一 个 最 不 经 常 被 使 用 的 控 件 SysInfo控 件 ， 这 个 控 件 可 以 在 “ 部 件 ” 对 话 框 中 显 示 为 Microsoft SysInfo Control Version 6.0 (在 VB 5.0中 为 5.0)。 SysInfo控 件 使 你 可 以 获 得 关 于 操 作 系 统 属 性 的 信 息 、 即 插 即 用 事 件 、 系 统 事 件 和 电 池 状 态 。 正 如 你 知 道 的 ， 对 于 大 多 数 笔 记 本 电 脑 ， 电 池 是 基 石 ， 虽 然 有 的 桌 面 系 统 也 包 括 电 池 。 借 助 于 SysInfo的 三 个 属 性 的 帮 助 ， 你 可 以 在 Visual Basic中 监 视 PC的 电 池 状 态 。 
    控 件 的 ACStatus属 性 让 你 可 以 决 定 当 前 AC电 源 或 电 池 电 源 是 否 正 在 被 使 用 。 这 个 属 性 返 回 三 个 值 之 一 : 0, 1和 255。 
    下 面 的 代 码 片 段 显 示 了 三 个 值 的 含 义 ： 
    Select Case SysInfo1.ACStatus 
    Case 0 
     MsgBox "没 有 使 用 AC电 源 " 
    Case 1 
     MsgBox "使 用 AC电 源 " 
    Case 255 
     MsgBox "未 知 AC电 源 状 态 " 
    End Select 
    BatteryLifePercent属 性 可 以 让 你 监 视 电 池 充 电 状 态 。 这 个 属 性 返 回 一 个 百 分 比 ， 指 示 电 池 中 剩 余 电 量 。 你 可 以 使 用 ： 
    Dim PerCentLeft As String 
    If SysInfo1.BatteryLifePercent <> 255 Then 
     PerCentLeft = SysInfo1.BatteryLifePercent 
     MsgBox PerCentLeft & "%" 
    Else 
     MsgBox "电 源 电 量 未 知 " 
    End If 
    如 果 你 的 笔 记 本 电 脑 运 行 在 一 个 电 池 电 源 的 情 况 下 ， 你 需 要 一 个 方 法 来 决 定 电 池 还 能 持 续 多 长 时 间 。 这 个 值 可 以 使 用 BatteryLifeTime属 性 获 得 ， 如 下 : 
    If SysInfo1.BatteryLifeTime <> &HFFFFFFFF Then 
     MsgBox Format((TimeSerial(0, 0, _ 
     SysInfo1.BatteryLifeTime)), "h:mm") 
    Else 
     MsgBox "无 法 决 定 剩 余 电 池 时 间 " 
    End If 
    正 如 你 看 到 的 ， 这 个 代 码 片 段 当 获 得 BatteryFullTime属 性 时 使 用 过 。 
<END>