In meinem Tipp Ich habe den betreffenden Code nach langem Suchen im Internet bei einem Forum gefunden und stelle ihn nun hier zur Verfügung. Wie man in obengenannter Lösung den Timer elimiert und durch die neue Klasse ersetzt, kann man als gute Übung selbst einprogrammieren...! Hier der Code: Imports System.Runtime.InteropServices Public Class ClipboardWatcher : Inherits NativeWindow : Implements IDisposable <DllImport("user32", EntryPoint:="SetClipboardViewer")> _ Private Shared Function SetClipboardViewer(ByVal hWnd As IntPtr) As IntPtr End Function Public Event Changed As EventHandler Private _hview As IntPtr ' nur eine globale Instanz zulassen Public Shared SingleInst As New ClipboardWatcher Private Sub New() MyBase.CreateHandle(New CreateParams) _hview = SetClipboardViewer(Handle) End Sub Protected Overrides Sub WndProc(ByRef m As Message) Const WM_DRAWCLIPBOARD As Integer = &H308 Select Case m.Msg Case WM_DRAWCLIPBOARD RaiseEvent Changed(Me, EventArgs.Empty) 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 disposing As Boolean) If Not disposedValue Then If disposing Then ' TODO: Verwaltete Ressourcen freigeben, wenn sie explizit ' aufgerufen werden End If MyBase.DestroyHandle() Dim H As IntPtr = SetClipboardViewer(_hview) End If Me.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) GC.SuppressFinalize(Me) End Sub Protected Overrides Sub Finalize() MyBase.Finalize() Dispose(False) End Sub #End Region End Class Und die Anwendung im Programm: Vereinbarung in der Form: Private WithEvents theClipWatcher As ClipboardWatcher = ClipboardWatcher.SingleInst Private clipData As IDataObject Das Event (an Stelle Timer_Tick) Private Sub theClipWatcher_Changed(sender As Object, e As EventArgs) _ Handles theClipWatcher.Changed ... End Sub Anmerkung: theClipWatcher.Dispose() Dieser Tipp wurde bereits 2.814 mal aufgerufen.
Anzeige
![]() ![]() ![]() Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevGraph (VB/VBA) ![]() Grafische Auswertungen Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Tipp des Monats ![]() Dieter Otter PopUp-Menü wird nicht angezeigt :-( In diesem Tipp verraten wir Ihnen, wie Sie Probleme mit PopUp-Menüs umgehen können, wenn diese unter bestimmten Umständen einfach nicht angezeigt werden. Access-Tools Vol.1 ![]() Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |