ZooFlow: Add Clipboard Watcher Class

GUIs.ZooFlow/ClassWin32.vb

@@ -1,6 +1,17 @@
 Imports System.Runtime.InteropServices
 
 Public Class ClassWin32
+    Public Const ULW_COLORKEY As Int32 = &H1
+    Public Const ULW_ALPHA As Int32 = &H2
+    Public Const ULW_OPAQUE As Int32 = &H4
+    Public Const AC_SRC_OVER As Byte = &H0
+    Public Const AC_SRC_ALPHA As Byte = &H1
+
+    Public Const WM_NCLBUTTONDOWN As Integer = &HA1
+    Public Const HTCAPTION As Integer = &H2
+
+    Public Const WM_DRAWCLIPBOARD As Integer = &H308
+
     Public Enum Bool
         [False] = 0
         [True]
@@ -44,40 +55,51 @@ Public Class ClassWin32
         Public AlphaFormat As Byte
     End Structure
 
-    Public Const ULW_COLORKEY As Int32 = &H1
-    Public Const ULW_ALPHA As Int32 = &H2
-    Public Const ULW_OPAQUE As Int32 = &H4
-    Public Const AC_SRC_OVER As Byte = &H0
-    Public Const AC_SRC_ALPHA As Byte = &H1
-
-    Public Const WM_NCLBUTTONDOWN As Integer = &HA1
-    Public Const HTCAPTION As Integer = &H2
-
     <DllImport("user32.dll", ExactSpelling:=True, SetLastError:=True)>
     Public Shared Function UpdateLayeredWindow(ByVal hwnd As IntPtr, ByVal hdcDst As IntPtr, ByRef pptDst As Point, ByRef psize As Size, ByVal hdcSrc As IntPtr, ByRef pprSrc As Point, ByVal crKey As Int32, ByRef pblend As BLENDFUNCTION, ByVal dwFlags As Int32) As Bool
     End Function
+
     <DllImport("user32.dll", ExactSpelling:=True, SetLastError:=True)>
     Public Shared Function GetDC(ByVal hWnd As IntPtr) As IntPtr
     End Function
+
     <DllImport("user32.dll", ExactSpelling:=True)>
     Public Shared Function ReleaseDC(ByVal hWnd As IntPtr, ByVal hDC As IntPtr) As Integer
     End Function
+
     <DllImport("gdi32.dll", ExactSpelling:=True, SetLastError:=True)>
     Public Shared Function CreateCompatibleDC(ByVal hDC As IntPtr) As IntPtr
     End Function
+
     <DllImport("gdi32.dll", ExactSpelling:=True, SetLastError:=True)>
     Public Shared Function DeleteDC(ByVal hdc As IntPtr) As Bool
     End Function
+
     <DllImport("gdi32.dll", ExactSpelling:=True)>
     Public Shared Function SelectObject(ByVal hDC As IntPtr, ByVal hObject As IntPtr) As IntPtr
     End Function
+
     <DllImport("gdi32.dll", ExactSpelling:=True, SetLastError:=True)>
     Public Shared Function DeleteObject(ByVal hObject As IntPtr) As Bool
     End Function
+
     <DllImport("User32.dll")>
     Public Shared Function ReleaseCapture() As Boolean
     End Function
+
     <DllImport("User32.dll")>
     Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
     End Function
+
+    <DllImport("user32", EntryPoint:="AddClipboardFormatListener")>
+    Public Shared Function AddClipboardFormatListener(ByVal hWnd As IntPtr) As Boolean
+    End Function
+
+    <DllImport("user32", EntryPoint:="RemoveClipboardFormatListener")>
+    Public Shared Function RemoveClipboardFormatListener(ByVal hWnd As IntPtr) As Boolean
+    End Function
+
+    <DllImport("user32", EntryPoint:="SetClipboardViewer")>
+    Public Shared Function SetClipboardViewer(ByVal hWnd As IntPtr) As IntPtr
+    End Function
 End Class