LzmTW.uSystem.uWindows.Win32API+MessageStructure

最新推荐文章于 2007-02-07 14:01:00 发布

原创最新推荐文章于 2007-02-07 14:01:00 发布 · 1.0k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#api #structure #string #date #integer #object

辅助类代码专栏收录该内容

17 篇文章

订阅专栏

本文介绍了一个使用Win32API实现的结构体，用于获取窗口信息，并定义了一个类来监控键盘的状态变化，包括NumLock、CapsLock等特定按键的状态。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Author：水如烟

Namespace LzmTW.uSystem.uWindows.Win32API

     Public Structure WindowInfo
         Dim WindowText As String
         Dim ClassName As String
         Dim hWnd As Integer

         Public Function ToArray() As Object ()
             Return New Object () {WindowText, ClassName, hWnd}
         End Function

     End Structure

     Public Structure ActiveWindowInfo
         Dim WindowText As String
     End Structure

     Public Class KeyStatusWatcherEventArgs
         Inherits System.EventArgs

         Private gIsEnabled As Boolean
         Private gMsgKey As KeyWatcher
         Private gNow As Date

         Sub New ( ByVal now As Date )
            gNow = now
            gMsgKey = KeyWatcher.Time
         End Sub

         Sub New ( ByVal msgkey As KeyWatcher, ByVal isenabled As Boolean )
            gMsgKey = msgkey
            gIsEnabled = isenabled
         End Sub

         Public ReadOnly Property MsgKey() As KeyWatcher
             Get
                 Return gMsgKey
             End Get
         End Property

         Public ReadOnly Property IsEnabled() As Boolean
             Get
                 Return gIsEnabled
             End Get
         End Property

         Public ReadOnly Property Now() As Date
             Get
                 Return gNow
             End Get
         End Property
     End Class

     Public Enum KeyWatcher
        NumLock
        CapsLock
        ScrollLock
        Insert
        Time
        Other
     End Enum

End Namespace