Overrides Sub WndProcについて

質問

こちらでは大変お世話になっております。

開発環境：Visual Studio 2012

Protected Overrides Sub WndProc(ByRef m As Message)
MyBase.WndProc(m)
End Sub

上記はよくあるメッセージ系のサブクラスで使うオーバーライトですが、
TextBoxのサブクラスでProtected Overrides Sub WndProc　を使った場合に
入力された文字を一切、オブジェクトに渡したくない場合、
（TextBoxには入力された文字は一切表示させない）

ByRef m As Message　の　m に対してどのようなプログラムを書けば、
この先のTextBoxに値を渡さなくできるでしょうか？
m = Nothing などでは無理のようですので
いろいろな加工を途中で行った文字列をプログラム側で代入したいなどを行いたいと
思っております。

何卒よろしくお願い申し上げます。

回答No.2

BarcodeMaster · ベストアンサー

ANo.1です。

Case &H2
_start = True
Str = ""
Return

では？

お礼

BarcodeMaster 様

本当にありがとうございました。
とても実りのあるご回答をいただけたと思っております。

ありがとうございました。

補足

BarcodeMaster 様　質問にお付き合いいただき
ありがとうございます。

ご指摘の箇所に Return 入れても　文字列は入ってしまいます。
ですが、どこかで Rerurnをいれれば成功するかもと思いまして、

Case Else
Str = Str & Chr(m.WParam)
Return ・・・・・・ここ
End Select

上記に入れたところ、思ったとおりの処理になりました。
いれた部分は実際のデータ（表示されるデータ）のところでリターンで処理されなかったのかなと思った次第であります。
文字コードではない制御コードの場合は表示できないから、TextBox1には文字が行かない？（本当はいってるんですかね？）のかなと思いました。

もしかしたら、Select Case の最後に全て Return をいれればまったく文字を通さない処理になるのかと理解できた次第であります。

回答No.1

BarcodeMaster

無視したいときには、MyBase.WndProc(m)を呼びださなければいいのではないでしょうか？
WM_KEYDOWNの例は以下の通りです。

Protected Overrides Sub WndProc(ByRef m As Message)
Const WM_KEYDOWN As Integer = &H100

Select Case m.Msg
Case WM_KEYDOWN
Return
End Select

MyBase.WndProc(m)
End Sub

補足

BarcodeMaster様、いつも大変お世話になっております。
ご回答の方、いつも大変ありがたく思っております。

詳細に質問をすれば　BarcodeMaster様に煩わしい思いをさせないですんだのではないかと反省しております。

実はバーコードリーダにてSTX-ETX形式（データの前後に特殊文字がつく）でデータを読み込んでいるのですが、 バーコードの場合だけ、読み取ったデータを加工して別の文字列として、表示させたいと思っておりました。
フォームには下記のサブクラスのTextBox1　と　通常のTextBox2を配置しまして、読み込んだ時に、TextBox2　のみ読み込んだデータが表示されれば成功なのですが、TextBox1にも同じデータ表示されてしまいます。
Returnを入れている箇所が問題なのか、別の原因で表示されてしまうのかまったくわからない次第でございます。もし良策がございましたら、何卒ご教授いただけますようよろしくお願い致します。

Public Class TESTTextBox

Inherits System.Windows.Forms.TextBox
Private _start As Boolean = False
Friend Str As String = ""

Protected Overrides Sub WndProc(ByRef m As Message)

Const WM_CHAR As Integer = &H102

If m.Msg = WM_CHAR Then

Select Case m.WParam
Case &H2
_start = True
Str = ""
Case &H3
If _start Then
f_TEST.TextBox2.Text = Str
Str = ""
End If
_start = False

Return

Case Else
Str = Str & Chr(m.WParam)
End Select

End If

MyBase.WndProc(m)

End Sub

End Class