Public Class EventedClipBoard
 
    'ein Timer
    Private WithEvents t As New Timer
 
    'verschiedene Events
    Public Event ClipIsText()
    Public Event ClipIsFile()
    'weitere events...
 
 
 
 
    Private _bolTimerEvents As Boolean = True
 
    ''' <summary>
    ''' Timer events ein/aus
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property TimerEvents() As Boolean
        Get
            Return _bolTimerEvents
        End Get
        Set(ByVal value As Boolean)
            _bolTimerEvents = value
            t.Enabled = value
        End Set
    End Property
 
    ''' <summary>
    ''' Clipb. löschen und Timer vorbereiten
    ''' </summary>
    ''' <param name="timerintervall"></param>
    ''' <remarks></remarks>
    Public Sub New(ByVal timerintervall As Integer)
 
        Clipboard.Clear()
        t.Enabled = False
        t.Interval = timerintervall
 
    End Sub
 
    ''' <summary>
    ''' Timer alle in New(int) def. Millisekunden
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub T_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles t.Tick
 
        'wenn CB Text enthält, event feuern
        If Clipboard.ContainsText Then
            t.Enabled = False
            RaiseEvent ClipIsText()
        End If
 
        'wenn CB Datei enthält, event feuern
        If Clipboard.ContainsFileDropList Then
            t.Enabled = False
            RaiseEvent ClipIsFile()
        End If
 
        'weitere Events
 
 
    End Sub
 
End Class

Public Class Form1
 
    Private WithEvents ecb As New EventedClipBoard(500)
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ecb.TimerEvents = True
    End Sub
 
    Private Sub cbevent() Handles ecb.ClipIsFile
        MsgBox("Datei in ClipBoard")
    End Sub
 
 
End Class

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]