home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 May / VPR0005A.BIN / PROGRAM / VB / frmPowerEvent.frm (.txt) < prev    next >
Visual Basic Form  |  2000-03-01  |  4KB  |  87 lines
  1. VERSION 5.00
  2. Begin VB.Form frmPowerEvent 
  3.    Caption         =   "Power Event test program"
  4.    ClientHeight    =   4620
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   3930
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4620
  10.    ScaleWidth      =   3930
  11.    StartUpPosition =   3  'Windows 
  12.    Begin VB.CheckBox ckbAllowSuspend 
  13.       Caption         =   "
  14.       BeginProperty Font 
  15.          Name            =   "Terminal"
  16.          Size            =   9.75
  17.          Charset         =   128
  18.          Weight          =   400
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   375
  24.       Left            =   120
  25.       TabIndex        =   1
  26.       Top             =   120
  27.       Value           =   1  '
  28.       Width           =   3615
  29.    End
  30.    Begin VB.ListBox lstPowerEventLog 
  31.       Height          =   3840
  32.       Left            =   120
  33.       TabIndex        =   0
  34.       Top             =   600
  35.       Width           =   3615
  36.    End
  37. Attribute VB_Name = "frmPowerEvent"
  38. Attribute VB_GlobalNameSpace = False
  39. Attribute VB_Creatable = False
  40. Attribute VB_PredeclaredId = True
  41. Attribute VB_Exposed = False
  42. Option Explicit
  43. Private WithEvents oPowerEvent As CPowerEvent
  44. Attribute oPowerEvent.VB_VarHelpID = -1
  45. Private m_colMessage As New Collection
  46. Private Sub Form_Initialize()
  47.     m_colMessage.Add "PBT_APMQUERYSUSPEND", Str(PBT_APMQUERYSUSPEND)
  48.     m_colMessage.Add "PBT_APMQUERYSTANDBY", Str(PBT_APMQUERYSTANDBY)
  49.     m_colMessage.Add "PBT_APMQUERYSUSPENDFAILED", Str(PBT_APMQUERYSUSPENDFAILED)
  50.     m_colMessage.Add "PBT_APMQUERYSTANDBYFAILED", Str(PBT_APMQUERYSTANDBYFAILED)
  51.     m_colMessage.Add "PBT_APMSUSPEND", Str(PBT_APMSUSPEND)
  52.     m_colMessage.Add "PBT_APMSTANDBY", Str(PBT_APMSTANDBY)
  53.     m_colMessage.Add "PBT_APMRESUMECRITICAL", Str(PBT_APMRESUMECRITICAL)
  54.     m_colMessage.Add "PBT_APMRESUMESUSPEND", Str(PBT_APMRESUMESUSPEND)
  55.     m_colMessage.Add "PBT_APMRESUMESTANDBY", Str(PBT_APMRESUMESTANDBY)
  56.     m_colMessage.Add "PBT_APMBATTERYLOW", Str(PBT_APMBATTERYLOW)
  57.     m_colMessage.Add "PBT_APMPOWERSTATUSCHANGE", Str(PBT_APMPOWERSTATUSCHANGE)
  58.     m_colMessage.Add "PBT_APMOEMEVENT", Str(PBT_APMOEMEVENT)
  59.     m_colMessage.Add "PBT_APMRESUMEAUTOMATIC", Str(PBT_APMRESUMEAUTOMATIC)
  60. End Sub
  61. Private Sub Form_Load()
  62.     Set oPowerEvent = New CPowerEvent
  63.     oPowerEvent.Hook Me
  64. End Sub
  65. Private Sub Form_Unload(Cancel As Integer)
  66.     oPowerEvent.UnHook
  67.     Set oPowerEvent = Nothing
  68. End Sub
  69. Private Sub oPowerEvent_PowerEvent(ByVal plt As PowerEventType, ByVal lDetailData As Long, lReturn As Long)
  70.     With lstPowerEventLog
  71.         .AddItem m_colMessage(Str(plt)) & Format(plt, "(00)")
  72.         Select Case plt
  73.                Case PBT_APMPOWERSTATUSCHANGE
  74.                     .AddItem vbTab & "ACLineStatus=" & oPowerEvent.ACLineStatus
  75.                     .AddItem vbTab & "BatteryFlag=" & oPowerEvent.BatteryFlag
  76.                     .AddItem vbTab & "BatteryLifePercent=" & oPowerEvent.BatteryLifePercent
  77.                     .AddItem vbTab & "BatteryLifeTime=" & oPowerEvent.BatteryLifeTime
  78.                     .AddItem vbTab & "BatteryFullLifeTime=" & oPowerEvent.BatteryFullLifeTime
  79.                Case PBT_APMQUERYSUSPEND
  80.                     lReturn = IIf(ckbAllowSuspend.Value = vbChecked, _
  81.                                   BROADCAST_QUERY_ALLOW, _
  82.                                   BROADCAST_QUERY_DENY)
  83.         End Select
  84.         .ListIndex = .NewIndex
  85.     End With
  86. End Sub
  87.