add Modules.Windows
This commit is contained in:
Jonathan Jenne
parent
8a8b286c77
commit
74527690cd
27
Windows/Drawing.vb
Normal file
27
Windows/Drawing.vb
Normal file
@ -0,0 +1,27 @@
|
||||
Imports System.Drawing
|
||||
Imports DigitalData.Modules.Logging
|
||||
|
||||
Public Class Drawing
|
||||
Private _Logger As Logger
|
||||
|
||||
Public Sub New(LogConfig As LogConfig)
|
||||
_Logger = LogConfig.GetLogger()
|
||||
End Sub
|
||||
|
||||
Public Sub DrawRectangle(Bounds As Rectangle)
|
||||
Dim oContext As IntPtr
|
||||
oContext = NativeMethods.GetDC(IntPtr.Zero)
|
||||
|
||||
Try
|
||||
Dim g As Graphics
|
||||
g = Graphics.FromHdc(oContext)
|
||||
Try
|
||||
g.DrawRectangle(Pens.Red, Bounds)
|
||||
Finally
|
||||
g.Dispose()
|
||||
End Try
|
||||
Finally
|
||||
NativeMethods.ReleaseDC(IntPtr.Zero, oContext)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
@ -2,6 +2,15 @@
|
||||
Imports System.Text
|
||||
|
||||
Public Class NativeMethods
|
||||
<DllImport("user32.dll")>
|
||||
Public Shared Function GetDC(ByVal hwnd As IntPtr) As IntPtr
|
||||
End Function
|
||||
<DllImport("user32.dll")>
|
||||
Public Shared Function ReleaseDC(ByVal hwnd As IntPtr, ByVal hdc As IntPtr) As IntPtr
|
||||
End Function
|
||||
<DllImport("user32.dll")>
|
||||
Public Shared Function GetWindowRect(ByVal hWnd As HandleRef, ByRef lpRect As RectangleAPI) As Boolean
|
||||
End Function
|
||||
<DllImport("user32.dll")>
|
||||
Public Shared Function AttachThreadInput(ByVal idAttach As IntPtr, ByVal idAttachTo As IntPtr, fAttach As Boolean) As Boolean
|
||||
End Function
|
||||
@ -9,6 +18,9 @@ Public Class NativeMethods
|
||||
Public Shared Function GetFocus() As IntPtr
|
||||
End Function
|
||||
<DllImport("user32.dll")>
|
||||
Public Shared Function WindowFromPoint(ByVal p As PointAPI) As IntPtr
|
||||
End Function
|
||||
<DllImport("user32.dll")>
|
||||
Public Shared Function GetForegroundWindow() As IntPtr
|
||||
End Function
|
||||
<DllImport("user32.dll")>
|
||||
@ -63,6 +75,9 @@ Public Class NativeMethods
|
||||
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
|
||||
Public Shared Function RegisterWindowMessage(ByVal lpString As String) As Integer
|
||||
End Function
|
||||
<DllImport("user32.dll", ExactSpelling:=True, SetLastError:=True)>
|
||||
Public Shared Function GetCursorPos(ByRef lpPoint As PointAPI) As <MarshalAs(UnmanagedType.Bool)> Boolean
|
||||
End Function
|
||||
|
||||
Public Const STANDARD_RIGHTS_REQUIRED As Integer = &HF0000
|
||||
Public Const SECTION_QUERY As Short = &H1
|
||||
@ -99,4 +114,29 @@ Public Class NativeMethods
|
||||
NoCache = &H200
|
||||
WriteCombine = &H400
|
||||
End Enum
|
||||
|
||||
Public Enum ChildWindowFromPointFlags As UInteger
|
||||
CWP_ALL
|
||||
CWP_SKIPINVISIBLE
|
||||
CWP_SKIPDISABLED
|
||||
CWP_SKIPTRANSPARENT
|
||||
End Enum
|
||||
|
||||
Public Structure RectangleAPI
|
||||
Public Left As Integer
|
||||
Public Top As Integer
|
||||
Public Right As Integer
|
||||
Public Bottom As Integer
|
||||
End Structure
|
||||
|
||||
<System.Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)>
|
||||
Public Structure PointAPI
|
||||
Public X As Integer
|
||||
Public Y As Integer
|
||||
|
||||
Public Sub New(ByVal X As Integer, ByVal Y As Integer)
|
||||
Me.X = X
|
||||
Me.Y = Y
|
||||
End Sub
|
||||
End Structure
|
||||
End Class
|
||||
|
||||
@ -1,9 +1,30 @@
|
||||
Imports System.Text
|
||||
Imports System.Drawing
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.Text
|
||||
Imports System.Windows.Forms
|
||||
Imports DigitalData.Modules.Logging
|
||||
|
||||
Public Class Window
|
||||
Private _Logger As Logger
|
||||
|
||||
Public Enum Anchor
|
||||
TopLeft
|
||||
BottomLeft
|
||||
TopRight
|
||||
BottomRight
|
||||
End Enum
|
||||
|
||||
Public Class RectangleInfo
|
||||
Public Top As Integer = 0
|
||||
Public Left As Integer = 0
|
||||
Public Right As Integer = 0
|
||||
Public Bottom As Integer = 0
|
||||
|
||||
Public Overrides Function ToString() As String
|
||||
Return String.Format("Top:{0},Left:{1},Bottom:{2},Right:{3}", Top, Left, Bottom, Right)
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Public Class WindowInfo
|
||||
Public WindowTitle As String = ""
|
||||
Public ProcessName As String = ""
|
||||
@ -14,7 +35,7 @@ Public Class Window
|
||||
End Class
|
||||
|
||||
Public Sub New(LogConfig As LogConfig)
|
||||
_Logger = LogConfig.getLogger()
|
||||
_Logger = LogConfig.GetLogger()
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
@ -62,20 +83,6 @@ Public Class Window
|
||||
}
|
||||
End Function
|
||||
|
||||
Public Function FocusedControlinActiveWindow(WindowHandle As IntPtr) As IntPtr
|
||||
Try
|
||||
Dim oActiveWindowHandle As IntPtr = NativeMethods.GetForegroundWindow
|
||||
Dim oActiveWindowThread As IntPtr = NativeMethods.GetWindowThreadProcessId(oActiveWindowHandle, 0)
|
||||
Dim oThisWindowThread As IntPtr = NativeMethods.GetWindowThreadProcessId(WindowHandle, 0)
|
||||
NativeMethods.AttachThreadInput(oActiveWindowThread, oThisWindowThread, True)
|
||||
Dim oFocusedControlHandle As IntPtr = NativeMethods.GetFocus()
|
||||
NativeMethods.AttachThreadInput(oActiveWindowThread, oThisWindowThread, False)
|
||||
Return oFocusedControlHandle
|
||||
Catch ex As Exception
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Returns the currently focused control
|
||||
''' </summary>
|
||||
@ -118,4 +125,144 @@ Public Class Window
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Returns Bounds of `ControlHandle`. Relative to `WindowHandle` and `Anchor` value.
|
||||
''' </summary>
|
||||
Public Function GetControlLocation(ControlHandle As IntPtr, WindowHandle As IntPtr, Optional Anchor As Anchor = Anchor.TopLeft) As RectangleInfo
|
||||
Dim oWindowRect As New NativeMethods.RectangleAPI
|
||||
Dim oControlRect As New NativeMethods.RectangleAPI
|
||||
Dim oResult As New RectangleInfo
|
||||
|
||||
Try
|
||||
If NativeMethods.GetWindowRect(New HandleRef(Me, WindowHandle), oWindowRect) = False Then
|
||||
Return Nothing
|
||||
End If
|
||||
|
||||
If NativeMethods.GetWindowRect(New HandleRef(Me, ControlHandle), oControlRect) = False Then
|
||||
Return Nothing
|
||||
End If
|
||||
|
||||
Dim oRect As New NativeMethods.RectangleAPI
|
||||
|
||||
' Calculate Coordinates relative to parent window
|
||||
oRect = GetRelativeRectangle(oControlRect, oWindowRect, Anchor)
|
||||
|
||||
oResult.Left = oRect.Left
|
||||
oResult.Right = oRect.Right
|
||||
oResult.Top = oRect.Top
|
||||
oResult.Bottom = oRect.Bottom
|
||||
|
||||
Return oResult
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Returns Bounds of the focused control. Relative to current form and `Anchor` value.
|
||||
''' </summary>
|
||||
Public Function GetFocusedControlLocation(Optional Anchor As Anchor = Anchor.TopLeft) As RectangleInfo
|
||||
Dim oWindowRect As New NativeMethods.RectangleAPI
|
||||
Dim oControlRect As New NativeMethods.RectangleAPI
|
||||
Dim oForegroundWindow As IntPtr
|
||||
Dim oFocusedControl As IntPtr
|
||||
Dim oResult As New RectangleInfo
|
||||
|
||||
Try
|
||||
oForegroundWindow = NativeMethods.GetForegroundWindow()
|
||||
oFocusedControl = NativeMethods.GetFocus()
|
||||
|
||||
Return GetControlLocation(oFocusedControl, oForegroundWindow, Anchor)
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Returns Bounds of the control under the cursor. Relative to current form and `Anchor` value.
|
||||
''' </summary>
|
||||
Public Function GetHoveredControlLocation(Optional Anchor As Anchor = Anchor.TopLeft) As RectangleInfo
|
||||
Dim oPoint As New NativeMethods.PointAPI
|
||||
Dim oWindowRect As New NativeMethods.RectangleAPI
|
||||
Dim oControlRect As New NativeMethods.RectangleAPI
|
||||
Dim oForegroundWindow As IntPtr
|
||||
Dim oControlUnderCursor As IntPtr
|
||||
Dim oResult As New RectangleInfo
|
||||
|
||||
Try
|
||||
If NativeMethods.GetCursorPos(oPoint) = False Then
|
||||
Return Nothing
|
||||
End If
|
||||
|
||||
oForegroundWindow = NativeMethods.GetForegroundWindow()
|
||||
oControlUnderCursor = NativeMethods.WindowFromPoint(oPoint)
|
||||
|
||||
Return GetControlLocation(oControlUnderCursor, oForegroundWindow, Anchor)
|
||||
Catch ex As Exception
|
||||
_Logger.Error(ex)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function GetWindowRect(Handle As IntPtr)
|
||||
Dim oWindowRect As New NativeMethods.RectangleAPI
|
||||
|
||||
If NativeMethods.GetWindowRect(New HandleRef(Me, Handle), oWindowRect) = False Then
|
||||
Return Nothing
|
||||
End If
|
||||
|
||||
Return oWindowRect
|
||||
End Function
|
||||
|
||||
Private Function GetRelativeRectangle(ControlRect As NativeMethods.RectangleAPI, WindowRect As NativeMethods.RectangleAPI, Anchor As Anchor) As NativeMethods.RectangleAPI
|
||||
Dim oScreenRect As Rectangle = Screen.PrimaryScreen.Bounds
|
||||
Dim oLeft, oBottom, oTop, oRight As Integer
|
||||
|
||||
Select Case Anchor
|
||||
Case Anchor.TopLeft
|
||||
oLeft = ControlRect.Left - WindowRect.Left
|
||||
oTop = ControlRect.Top - WindowRect.Top
|
||||
Case Anchor.BottomLeft
|
||||
oLeft = ControlRect.Left - WindowRect.Left
|
||||
oBottom = ControlRect.Bottom - WindowRect.Bottom
|
||||
Case Anchor.TopRight
|
||||
oRight = ControlRect.Right - WindowRect.Right
|
||||
oTop = ControlRect.Top - WindowRect.Top
|
||||
Case Anchor.BottomRight
|
||||
oRight = ControlRect.Right - WindowRect.Right
|
||||
oBottom = ControlRect.Bottom - WindowRect.Bottom
|
||||
End Select
|
||||
|
||||
Return New NativeMethods.RectangleAPI() With {
|
||||
.Top = oTop,
|
||||
.Bottom = oBottom,
|
||||
.Left = oLeft,
|
||||
.Right = oRight
|
||||
}
|
||||
End Function
|
||||
|
||||
Private Function GetRect(Rect As NativeMethods.RectangleAPI, ParentRect As NativeMethods.RectangleAPI) As Rectangle
|
||||
Dim oX, oY, oWidth, oHeight As Integer
|
||||
|
||||
oWidth = Rect.Right - Rect.Left
|
||||
oHeight = Rect.Bottom - Rect.Top
|
||||
oX = Rect.Left - ParentRect.Left
|
||||
oY = Rect.Top - ParentRect.Top
|
||||
|
||||
Return New Rectangle(oX, oY, oWidth, oHeight)
|
||||
End Function
|
||||
|
||||
Private Function GetRect(Rect As NativeMethods.RectangleAPI, ParentRect As Rectangle) As Rectangle
|
||||
Dim oX, oY, oWidth, oHeight As Integer
|
||||
|
||||
oWidth = Rect.Right - Rect.Left
|
||||
oHeight = Rect.Bottom - Rect.Top
|
||||
oX = Rect.Left - ParentRect.X
|
||||
oY = Rect.Top - ParentRect.Y
|
||||
|
||||
Return New Rectangle(oX, oY, oWidth, oHeight)
|
||||
End Function
|
||||
End Class
|
||||
|
||||
@ -50,10 +50,12 @@
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Configuration" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.IO.Compression" />
|
||||
<Reference Include="System.Runtime.Serialization" />
|
||||
<Reference Include="System.ServiceModel" />
|
||||
<Reference Include="System.Transactions" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
<Reference Include="System.Core" />
|
||||
<Reference Include="System.Xml.Linq" />
|
||||
@ -72,6 +74,7 @@
|
||||
<Import Include="System.Threading.Tasks" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="Drawing.vb" />
|
||||
<Compile Include="NativeMethods.vb" />
|
||||
<Compile Include="Utils.vb" />
|
||||
<Compile Include="Window.vb" />
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user