-
Notifications
You must be signed in to change notification settings - Fork 0
/
Native.vb
213 lines (180 loc) · 10 KB
/
Native.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
Imports System.Runtime.InteropServices
Module Native
<DllImport("user32.dll")>
Public Function GetForegroundWindow() As IntPtr : End Function
<DllImport("user32.dll")>
Public Function GetWindowRect(ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Boolean : End Function
<DllImport("user32.dll")>
Public Function GetClientRect(ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Boolean : End Function
<DllImport("user32.dll")>
Public Function ShowCursor(bShow As Boolean) As Integer : End Function
<StructLayout(LayoutKind.Sequential)>
Public Structure RECT
Public left, top, right, bottom As Integer
Public Sub New(left As Integer, top As Integer, right As Integer, bottom As Integer)
Me.left = left
Me.top = top
Me.right = right
Me.bottom = bottom
End Sub
End Structure
<StructLayout(LayoutKind.Sequential)>
Public Structure CURSORINFO
Public cbSize As Int32
Public flags As Int32
Public hCursor As IntPtr
Public ptScreenpos As Point
End Structure
<DllImport("user32.dll")>
Public Function GetCursorInfo(ByRef pci As CURSORINFO) As Boolean : End Function
<DllImport("user32.dll")>
Public Function ClientToScreen(ByVal hWnd As IntPtr, ByRef lpPoint As Point) As Boolean : End Function
<Flags()>
Public Enum WindowStyles As Long
WS_BORDER = &H800000
WS_CAPTION = &HC00000
WS_CHILD = &H40000000
WS_CLIPCHILDREN = &H2000000
WS_CLIPSIBLINGS = &H4000000
WS_DISABLED = &H8000000
WS_DLGFRAME = &H400000
WS_GROUP = &H20000
WS_HSCROLL = &H100000
WS_MAXIMIZE = &H1000000
WS_MAXIMIZEBOX = &H10000
WS_MINIMIZE = &H20000000
WS_MINIMIZEBOX = &H20000
WS_OVERLAPPED = &H0
WS_OVERLAPPEDWINDOW = WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_SIZEFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
WS_POPUP = &H80000000UI
WS_POPUPWINDOW = WS_POPUP Or WS_BORDER Or WS_SYSMENU
WS_SIZEFRAME = &H40000
WS_SYSMENU = &H80000
WS_TABSTOP = &H10000
WS_VISIBLE = &H10000000
WS_VSCROLL = &H200000
End Enum
<Flags()>
Public Enum WindowStylesEx As UInteger
''' <summary>Specifies a window that accepts drag-drop files.</summary>
WS_EX_ACCEPTFILES = &H10
''' <summary>Forces a top-level window onto the taskbar when the window is visible.</summary>
WS_EX_APPWINDOW = &H40000
''' <summary>Specifies a window that has a border with a sunken edge.</summary>
WS_EX_CLIENTEDGE = &H200
''' <summary>
''' Specifies a window that paints all descendants in bottom-to-top painting order using double-buffering.
''' This cannot be used if the window has a class style of either CS_OWNDC or CS_CLASSDC. This style is not supported in Windows 2000.
''' </summary>
''' <remarks>
''' With WS_EX_COMPOSITED set, all descendants of a window get bottom-to-top painting order using double-buffering.
''' Bottom-to-top painting order allows a descendent window to have translucency (alpha) and transparency (color-key) effects,
''' but only if the descendent window also has the WS_EX_TRANSPARENT bit set.
''' Double-buffering allows the window and its descendents to be painted without flicker.
''' </remarks>
WS_EX_COMPOSITED = &H2000000
''' <summary>
''' Specifies a window that includes a question mark in the title bar. When the user clicks the question mark,
''' the cursor changes to a question mark with a pointer. If the user then clicks a child window, the child receives a WM_HELP message.
''' The child window should pass the message to the parent window procedure, which should call the WinHelp function using the HELP_WM_HELP command.
''' The Help application displays a pop-up window that typically contains help for the child window.
''' WS_EX_CONTEXTHELP cannot be used with the WS_MAXIMIZEBOX or WS_MINIMIZEBOX styles.
''' </summary>
WS_EX_CONTEXTHELP = &H400
''' <summary>
''' Specifies a window which contains child windows that should take part in dialog box navigation.
''' If this style is specified, the dialog manager recurses into children of this window when performing navigation operations
''' such as handling the TAB key, an arrow key, or a keyboard mnemonic.
''' </summary>
WS_EX_CONTROLPARENT = &H10000
''' <summary>Specifies a window that has a double border.</summary>
WS_EX_DLGMODALFRAME = &H1
''' <summary>
''' Specifies a window that is a layered window.
''' This cannot be used for child windows or if the window has a class style of either CS_OWNDC or CS_CLASSDC.
''' </summary>
WS_EX_LAYERED = &H80000
''' <summary>
''' Specifies a window with the horizontal origin on the right edge. Increasing horizontal values advance to the left.
''' The shell language must support reading-order alignment for this to take effect.
''' </summary>
WS_EX_LAYOUTRTL = &H400000
''' <summary>Specifies a window that has generic left-aligned properties. This is the default.</summary>
WS_EX_LEFT = &H0
''' <summary>
''' Specifies a window with the vertical scroll bar (if present) to the left of the client area.
''' The shell language must support reading-order alignment for this to take effect.
''' </summary>
WS_EX_LEFTSCROLLBAR = &H4000
''' <summary>
''' Specifies a window that displays text using left-to-right reading-order properties. This is the default.
''' </summary>
WS_EX_LTRREADING = &H0
''' <summary>
''' Specifies a multiple-document interface (MDI) child window.
''' </summary>
WS_EX_MDICHILD = &H40
''' <summary>
''' Specifies a top-level window created with this style does not become the foreground window when the user clicks it.
''' The system does not bring this window to the foreground when the user minimizes or closes the foreground window.
''' The window does not appear on the taskbar by default. To force the window to appear on the taskbar, use the WS_EX_APPWINDOW style.
''' To activate the window, use the SetActiveWindow or SetForegroundWindow function.
''' </summary>
WS_EX_NOACTIVATE = &H8000000
''' <summary>
''' Specifies a window which does not pass its window layout to its child windows.
''' </summary>
WS_EX_NOINHERITLAYOUT = &H100000
''' <summary>
''' Specifies that a child window created with this style does not send the WM_PARENTNOTIFY message to its parent window when it is created or destroyed.
''' </summary>
WS_EX_NOPARENTNOTIFY = &H4
''' <summary>
''' The window does not render to a redirection surface.
''' This is for windows that do not have visible content or that use mechanisms other than surfaces to provide their visual.
''' </summary>
WS_EX_NOREDIRECTIONBITMAP = &H200000
''' <summary>Specifies an overlapped window.</summary>
WS_EX_OVERLAPPEDWINDOW = WS_EX_WINDOWEDGE Or WS_EX_CLIENTEDGE
''' <summary>Specifies a palette window, which is a modeless dialog box that presents an array of commands.</summary>
WS_EX_PALETTEWINDOW = WS_EX_WINDOWEDGE Or WS_EX_TOOLWINDOW Or WS_EX_TOPMOST
''' <summary>
''' Specifies a window that has generic "right-aligned" properties. This depends on the window class.
''' The shell language must support reading-order alignment for this to take effect.
''' Using the WS_EX_RIGHT style has the same effect as using the SS_RIGHT (static), ES_RIGHT (edit), and BS_RIGHT/BS_RIGHTBUTTON (button) control styles.
''' </summary>
WS_EX_RIGHT = &H1000
''' <summary>Specifies a window with the vertical scroll bar (if present) to the right of the client area. This is the default.</summary>
WS_EX_RIGHTSCROLLBAR = &H0
''' <summary>
''' Specifies a window that displays text using right-to-left reading-order properties.
''' The shell language must support reading-order alignment for this to take effect.
''' </summary>
WS_EX_RTLREADING = &H2000
''' <summary>Specifies a window with a three-dimensional border style intended to be used for items that do not accept user input.</summary>
WS_EX_STATICEDGE = &H20000
''' <summary>
''' Specifies a window that is intended to be used as a floating toolbar.
''' A tool window has a title bar that is shorter than a normal title bar, and the window title is drawn using a smaller font.
''' A tool window does not appear in the taskbar or in the dialog that appears when the user presses ALT+TAB.
''' If a tool window has a system menu, its icon is not displayed on the title bar.
''' However, you can display the system menu by right-clicking or by typing ALT+SPACE.
''' </summary>
WS_EX_TOOLWINDOW = &H80
''' <summary>
''' Specifies a window that should be placed above all non-topmost windows and should stay above them, even when the window is deactivated.
''' To add or remove this style, use the SetWindowPos function.
''' </summary>
WS_EX_TOPMOST = &H8
''' <summary>
''' Specifies a window that should not be painted until siblings beneath the window (that were created by the same thread) have been painted.
''' The window appears transparent because the bits of underlying sibling windows have already been painted.
''' To achieve transparency without these restrictions, use the SetWindowRgn function.
''' </summary>
WS_EX_TRANSPARENT = &H20
''' <summary>Specifies a window that has a border with a raised edge.</summary>
WS_EX_WINDOWEDGE = &H100
End Enum
Public Const WM_DWMCOLORIZATIONCOLORCHANGED = &H320
End Module