テキストボックスへの文字の貼り付けを禁止

	public class NoPasteTextBox : System.Windows.Forms.TextBox
	{
		protected override void WndProc(ref Message m)
		{
			const int WM_PASTE = 0x0302;
			if(m.Msg != WM_PASTE)
				base.WndProc (ref m);
		}
		/* その他のカスタムコントロールを作成したときに自動で作られるコード */
	}
}

    Option Strict On

    Public Class JnTextBox : Inherits System.Windows.Forms.TextBox

      #Region "　このクラスのメンバ　"

        Private components As System.ComponentModel.IContainer

      #End Region

      #Region "　コンストラクタ　"

        Public Sub New()
            MyBase.New()
            Me.components  = New System.ComponentModel.Container()
            Me.ContextMenu = New ContextMenu()
        End Sub

      #End Region

      #Region "　Dispose メソッド　"

        Protected Overloads Overrides Sub Dispose(ByVal bDisposing As Boolean)
            If bDisposing = True Then
                If Not Me.components Is Nothing Then
                    Me.components.Dispose()
                End If
            End If

            MyBase.Dispose(bDisposing)
        End Sub

      #End Region

      #Region "　WndProc メソッド (Overrides)　"

        Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
            Const WM_PASTE As Integer = &H0302

            If m.Msg = WM_PASTE Then
                Return
            End If

            MyBase.WndProc(m)
        End Sub

      #End Region

    End Class