notify.vb

来自「清华大学出版社出版的 移动应用开发宝典 张大威（2008）的附书源代码」· VB 代码 · 共 47 行

Imports System.Runtime.InteropServices

Public Class Notify
    ' Methods
    Public Shared Sub RegisterNamedEvent(ByVal whichEvent As NotificationEvent, ByVal eventName As String)
        NativeMethods.CeRunAppAtEvent(("\\.\Notifications\NamedEvents\" & eventName), whichEvent)
    End Sub

    Public Shared Sub UnregisterNamedEvent(ByVal eventName As String)
        NativeMethods.CeRunAppAtEvent(("\\.\Notifications\NamedEvents\" & eventName), NotificationEvent.None)
    End Sub

End Class

Public Enum NotificationEvent
    None = 0
    TimeChange = 1
    SyncEnd = 2
    OnACPower = 3
    OffACPower = 4
    NetConnect = 5
    NetDisconnect = 6
    DeviceChange = 7
    IrDiscovered = 8
    RS232Detected = 9
    RestoreEnd = 10
    Wakeup = 11
    TZChange = 12
    MachineNameChange = 13
End Enum






Friend Class NativeMethods

    <DllImport("coredll")> _
    Friend Shared Function CeRunAppAtEvent(ByVal pwszAppName As String, ByVal lWhichEvent As NotificationEvent) As Boolean
    End Function

    Friend Const EventPrefix As String = "\\.\Notifications\NamedEvents\"
End Class