EditControlHook Class

Public Class EditControlHook
	Implements IDisposable

Dim instance As EditControlHook

public ref class EditControlHook : IDisposable

type EditControlHook = 
    class
        interface IDisposable
    end

No code example is currently available or this language may not be supported.

Friend WithEvents EditControlHook As New EditControlHook

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    ' Capture the Edit-Menu messages for TextBox1 and TextBox2
    Me.EditControlHook.Controls = {Me.TextBox1, Me.TextBox2}

    ' Enable the Hook
    Me.EditControlHook.Enabled = True

End Sub

Private Sub Form1_FormClosing() Handles MyBase.FormClosing

    Me.EditControlHook.Dispose()

End Sub

Private Sub EditControlHook_Copy(ByVal sender As Object, ByVal e As EventArgs) _
Handles EditControlHook.Copy

    MessageBox.Show(String.Format("Text copied in control: {0}", DirectCast(sender, Control).Name))

End Sub

Private Sub EditControlHook_Cut(ByVal sender As Object, ByVal e As EventArgs) _
Handles EditControlHook.Cut

    MessageBox.Show(String.Format("Text cutted in control: {0}", DirectCast(sender, Control).Name))

End Sub

Private Sub EditControlHook_Paste(ByVal sender As Object, ByVal e As EventArgs) _
Handles EditControlHook.Paste

    MessageBox.Show(String.Format("Text pasted in control: {0}", DirectCast(sender, Control).Name))

End Sub

Private Sub EditControlHook_Delete(ByVal sender As Object, ByVal e As EventArgs) _
Handles EditControlHook.Delete

    MessageBox.Show(String.Format("Text deleted in control: {0}", DirectCast(sender, Control).Name))

End Sub

Private Sub EditControlHook_Undo(ByVal sender As Object, ByVal e As EventArgs) _
Handles EditControlHook.Undo

    MessageBox.Show(String.Format("Text undone in control: {0}", DirectCast(sender, Control).Name))

End Sub

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.