vb.net カスタムコントロールで作成したボタンからonClickでイベントを発生させたい

Question

前提・実現したいこと

vb.netで電卓を作成しています。
電卓のボタンをクリックした時にフォーカスが発生してまうのを防ぐため、
フォーカスをとらないボタンを作成しました。
するとそれまで受け付けていたキー入力もうけとらなくなってしまいました。
調べたところ、PerformClick()を使っていることが原因だと判明し、OnClick()を使えばよいことがわかったのですが
どう継承してつかったらいいのかがわかりません。
初歩的な質問だと思うのですがよろしくお願い致します。

該当のソースコード

カスタムコントロール部分
Public Class CustomControl1
	Inherits Button

	Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)

		MyBase.OnPaint(e)

		Me.SetStyle(ControlStyles.Selectable, False)

	End Sub

End Class

フォーム部分　
''' <summary>
	''' キーボード割り当て
	''' </summary>
	Public Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown

		Select Case e.KeyCode

			'Enterキー
			Case Keys.Enter

				btnEcho.PerformClick()

				'BackSpaceキー
			Case Keys.Back

				btnBack.PerformClick()

				'Deleteキー
			Case Keys.Delete

				btnCre.PerformClick()

				'小数点キー
			Case Keys.Decimal

				btnDots.PerformClick()
...

--以下キー割り当てと電卓機能処理

補足情報（FW/ツールのバージョンなど）

visual studio 2013

Answer 1

多分、ボタンを押した時にフォーカスがボタンに移動し、FormのKeyDownイベントが発生しなくなるという問題の回避のためにCustomControlを作成されたのだと思います。

そのようなことをしなくとも、FormのKeyPreviewプロパティをTrueにすれば
フォーム上のコントロールにフォーカスがあっても、FormのKeyDOwnイベントが発生します。

追記

UserControlに下記のようにPerformClickをオーバーロードしてやれば、UserControlのClickイベントが発生しました。

Public Overloads Sub PerformClick()
    MyBase.OnClick(New EventArgs)
End Sub

Comments

[_ali]

回答ありがとうございます。
確かにそうなのですが、その場合ボタンをクリックしたままエンターキーを押した時の動作がエンターキーに紐づけられたイベントではなく、ボタンに紐づけされたイベントが発生してしまいます。
この現象に対応するためにフォーカスをなくすという判断をしました。
普通に使っていればそんな使い方はしない思うのですが...
そのため、フォーカスが当たっていなくてもイベントを発生させるonClick（）を使用してみようということになりました。　説明不足ですみません。

[YAmaGNZ]

すみません、少し整理させてください。
提示されたコードにて試してみましたがForm.KeyPrevew=Trueの状態で
Form.KeyDownイベントが発生しましたが(EnterキーはKeyUpのみでした)、PerformClickをコールしてもClickイベントが発生しませんでした。

なので、UserControlの何かを呼び出し、Clickイベントを起こさせたいということでしょうか？

[_ali]

おっしゃる通りです。
その状態でもキーを押したときにClickイベントを発生させたいということです。

Answer 2

回答ありがとうございました。
課題としては
・ボタンのフォーカスを無効にすること
・その状態でキーボード入力した時にフォームのボタンと同じ動作をすること
（フォーム上の＋ボタンをクリックした時の動作　＝　キーから＋を入力した時の動作）
でしたので、クリックした時とキーを入力した時とで同一のプロシージャを呼び出すことで、
自己解決致しました。
わかりにくい質問で申し訳ございません。

例

'キー入力判定
Public Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown

		Select Case e.KeyCode

				'+キー
			Case Keys.Add

				Operator_Click("+")

               End Case
End Sub

'ボタン入力判定
''' <summary>
	''' 演算子ボタンが押されたら
	''' </summary>
	Private Sub btnOperator_Click(sender As Object, e As EventArgs) Handles  btnAdd.Click

		Dim btnOpe As Button = DirectCast(sender, Button)			'senderをButton型に変換

		Operator_Click(btnOpe.Text)

	End Sub

'実際の処理
''' <summary>
	''' 演算子処理
	''' </summary>
	''' <param name="strOpe">入力された演算子</param>
	''' <remarks></remarks>
	Private Sub Operator_Click(ByVal strOpe As String)

'演算子処理　略

End　Sub