66 lines
2.1 KiB
VB.net
66 lines
2.1 KiB
VB.net
Imports System.Runtime.InteropServices
|
|
Imports DigitalData.Modules.Windows
|
|
|
|
Namespace ClipboardWatcher
|
|
Public Class Watcher
|
|
Inherits NativeWindow
|
|
Implements IDisposable
|
|
|
|
Public Event ClipboardChanged As EventHandler(Of IDataObject)
|
|
Public Shared Singleton As New Watcher
|
|
|
|
Private _Handle As IntPtr
|
|
|
|
Private Sub New()
|
|
MyBase.CreateHandle(New CreateParams)
|
|
_Handle = NativeMethods.SetClipboardViewer(Handle)
|
|
End Sub
|
|
|
|
Protected Overrides Sub WndProc(ByRef m As Message)
|
|
Select Case m.Msg
|
|
Case NativeMethods.WM_DRAWCLIPBOARD
|
|
Dim oData As IDataObject = Clipboard.GetDataObject
|
|
RaiseEvent ClipboardChanged(Me, oData)
|
|
End Select
|
|
MyBase.WndProc(m)
|
|
End Sub
|
|
|
|
#Region "IDisposable Support"
|
|
' Für diese Klasse ist korrekte Ressourcenbereinigung besonders wichtig, da
|
|
' mit systemübergreifenden Ressourcen gearbeitet wird
|
|
|
|
' So ermitteln Sie überflüssige Aufrufe
|
|
Private _DisposedValue As Boolean = False
|
|
|
|
Protected Overridable Sub Dispose(ByVal pDisposing As Boolean)
|
|
If Not _DisposedValue Then
|
|
If pDisposing Then
|
|
' TODO: Verwaltete Ressourcen freigeben, wenn sie explizit
|
|
' aufgerufen werden
|
|
End If
|
|
MyBase.DestroyHandle()
|
|
Dim H As IntPtr = NativeMethods.SetClipboardViewer(_Handle)
|
|
End If
|
|
_DisposedValue = True
|
|
End Sub
|
|
|
|
' Dieser Code wird von Visual Basic hinzugefügt, um das Dispose-Muster
|
|
' richtig zu implementieren.
|
|
Public Sub Dispose() Implements IDisposable.Dispose
|
|
' Sie sollten diesen Code nicht ändern, sondern stattdessen ihren
|
|
' Bereinigungscode oben in
|
|
' Dispose(ByVal disposing As Boolean) einfügen.
|
|
Dispose(True)
|
|
System.GC.SuppressFinalize(Me)
|
|
End Sub
|
|
|
|
Protected Overrides Sub Finalize()
|
|
MyBase.Finalize()
|
|
Dispose(False)
|
|
End Sub
|
|
#End Region
|
|
End Class
|
|
|
|
End Namespace
|
|
|