Example: /Win/WindowsPowerState

Online Documentation   -   Statistics   -   FAQ   -   Plugin Parts (All, Dependencies)   -   Class hierarchy

New in Version 22.2 22.3 22.4 22.5 23.0 23.1 23.2 23.3 23.4 23.5 24.0 24.1

The list of the   topics,   classes,   interfaces,   controls,   modules,   global methods by category,   global methods by name,   screenshots,   licenses   and   examples.

Platforms to show: All Mac Windows Linux Cross-Platform

/Win/WindowsPowerState


Required plugins for this example: MBS Win Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Win/WindowsPowerState

This example is the version from Sun, 9th Sep 2023.

Project "WindowsPowerState.xojo_binary_project"
FileTypes
Filetype Text
End FileTypes
Class MainWindow Inherits Window
Control ListBox1 Inherits ListBox
ControlInstance ListBox1 Inherits ListBox
End Control
EventHandler Sub Open() c=New MyWindowsPowerState c.List = listbox1 c.ListenForBatteryCapacityChanged c.ListenForLidSwitchStateChanged c.ListenForPowerSourceChanged c.ListenForSuspendResumeNotification End EventHandler
Property Protected c As MyWindowsPowerState
End Class
MenuBar MenuBar1
MenuItem UntitledMenu1 = ""
MenuItem FileMenu = "&File"
MenuItem FileQuit = "Quit"
MenuItem UntitledMenu5 = ""
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem UntitledMenu0 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "Clear"
MenuItem UntitledMenu4 = ""
MenuItem UntitledMenu3 = ""
MenuItem UntitledMenu2 = ""
End MenuBar
Class App Inherits Application
End Class
Class MyWindowsPowerState Inherits WindowsPowerStateMBS
EventHandler Sub BatteryCapacityChanged(Percentage as Integer) w "BatteryCapacityChanged: "+Percentage.ToString End EventHandler
EventHandler Sub BatteryLow() w "BatteryLow" End EventHandler
EventHandler Sub LidSwitchStateChanged(LidState as Integer) w "LidSwitchStateChanged: "+LidState.ToString End EventHandler
EventHandler Sub OEMEvent(eventcode as integer) w "OEMEvent "+hex(eventcode) End EventHandler
EventHandler Sub PowerSettingChange(data as MemoryBlock) End EventHandler
EventHandler Sub PowerSourceChanged(power as Integer) w "PowerSourceChanged: "+Power.ToString End EventHandler
EventHandler Sub PowerStatusChange() w "PowerStatusChange" End EventHandler
EventHandler Function QueryStandby(PromptUser as boolean) As boolean // deprecated in Windows? w "QueryStandby" End EventHandler
EventHandler Sub QueryStandbyFailed() // deprecated in Windows? w "QueryStandbyFailed" End EventHandler
EventHandler Function QuerySuspend(PromptUser as boolean) As boolean w "QuerySuspend" End EventHandler
EventHandler Sub QuerySuspendFailed() w "QuerySuspendFailed" End EventHandler
EventHandler Sub ResumeAutomatic() w "ResumeAutomatic" End EventHandler
EventHandler Sub ResumeCritical() w "ResumeCritical" End EventHandler
EventHandler Sub ResumeStandby() // deprecated in Windows? w "ResumeStandby" End EventHandler
EventHandler Sub ResumeSuspend() w "ResumeSuspend" End EventHandler
EventHandler Sub Standby() // deprecated in Windows? w "Standby" End EventHandler
EventHandler Sub Suspend() w "Suspend" End EventHandler
Private Sub w(w as string) Dim d As New date Dim s As String = d.LongTime+": "+w System.DebugLog w list.AddRow s End Sub
Property list As listbox
End Class
End Project

The items on this page are in the following plugins: MBS Win Plugin.


💬 Ask a question or report a problem