デリゲートについて（VB2005) - 1240319924

6：こじら：2009/04/23(木) 00:06:56: ありがとうございます。項目4,5は分かりやすく理解できました。有難うございます。
でもデリゲートのイメージがなかなかつきません。アドレスで参照する事を
宣言する事をデリゲート宣言で行うというのはなんとなく（あっているのか？？）
　したい事は　ボタン１を押すとRS232C通信でPICへ送信し、結果（Read）が
TextBox1へ表示。　ボタン２を押すとRS232C通信でPICへ別命令が送られ、また
その結果が別のTextBox2へ表示される、ボタン３も同様で、その結果がTextbox3へ。
と、　各ボタンに対し、それぞれに対応したtextboxにのみだけ結果が反映される。
以前頂いたサンプルは1ボタン、1textBoxだったので、複数あった場合は
どのようにするのか。現在うまくいってません。
　僕の認識ではデリゲートはサブルーチンのアドレスで、メインとなる各ボタン
を実行した際に呼び出され、処理をし、呼び出し元へ値を返すような認識で
適当にﾌﾟﾛｸﾞﾗﾑ書いてみたのですが。　すみません教えて下さい。
　それからもう一つ別件で、TextBoxに値を打ち込む時、文字の制限
（0-9、A-F、a-f）をかけたいと思って　textbox1_presskey---を使用、
IF文で書いてみたのですがVB6の書き方ではうまくいかなかったので
そちらも教えていただけないでしょうか。　すみません。
7：igoten：2009/04/23(木) 08:58:28: デリゲート:
大体そんな感じですね。
テキストボックス３つとぼたん３つを置いて、ボタンを押すと
ボタンと同じ番号のTextBoxに書き込むコードを示します。
これを応用してみてください。
Delegate Sub degaddText(ByVal textBoxNo As Integer, ByVal textBoxText As String)
Private Sub addText(ByVal textBoxNo As Integer, ByVal textBoxText As String)
Select Case textBoxNo
Case 1
TextBox1.Text += textBoxText
Case 2
TextBox2.Text += textBoxText
Case 3
TextBox2.Text += textBoxText
End Select
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Dim textBoxNo As Integer = 1
Dim textBoxText = "Button1"
Me.Invoke(New degaddText(AddressOf addText), New Object() {textBoxNo, textBoxText})
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button2.Click
Dim textBoxNo As Integer = 2
Dim textBoxText = "Button2"
Me.Invoke(New degaddText(AddressOf addText), New Object() {textBoxNo, textBoxText})
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button3.Click
Dim textBoxNo As Integer = 3
Dim textBoxText = "Button3"
Me.Invoke(New degaddText(AddressOf addText), New Object() {textBoxNo, textBoxText})
End Sub
8：igoten：2009/04/23(木) 09:01:27: 文字フィルタ：
ちゃんとやろうとすると結構面倒なのです。
TextChangedイベントを使って一文字ずつ比べ、想定外の文字が入力されたら
元の文字列に戻し、キャレットも元の位置に戻します。
元の文字列を覚えておくにはStaticを使っています、位置も同じです。
TextBox1.Text(i)でi番目の文字が取得できます。
これは配列ではなくインデクサ（プロパティの一種）というものです。
理解できなければまあそんな物だと覚えてください。
文字を元に戻す時は、TextChangedの中から再度TextChangedが呼ばれます。
そうすると処理が重複するため、フラグではじきます。
9：＜削除＞：＜削除＞: ＜削除＞
10：＜削除＞：＜削除＞: ＜削除＞
11：igoten：2009/04/23(木) 09:48:07: ...続き
インデントが無くて読みにくいため、半角スペース２つを全角スペースに置き換えてみました。
　　Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
　　　　　　Handles TextBox1.TextChanged
　　　　Static strBstr As String　'前の文字列を覚えている
　　　　Static intPos As Integer　'前のキャレットの位置を覚えている
　　　　Static boolFlg　'文字修正時の再突入を防ぐフラグ
　　　　If boolFlg Then
　　　　　　Return
　　　　End If
　　　　boolFlg = True
　　　　'TextBox1.Text(i)でi番目の一文字を取り出します。
　　　　'TextBox1.Text(i)は配列でなくインデクサというプロパティです。
　　　　For i As Integer = 0 To TextBox1.Text.Length - 1
　　　　　　If (TextBox1.Text(i) < "0"c Or TextBox1.Text(i) > "9"c) _
　　　　　　　　And (TextBox1.Text(i) < "a"c Or TextBox1.Text(i) > "z"c) _
　　　　　　　　And (TextBox1.Text(i) < "A"c Or TextBox1.Text(i) > "Z"c) Then
　　　　　　　　'入力文字が想定外
　　　　　　　　MessageBox.Show("入力文字が違います")
　　　　　　　　TextBox1.Text = strBstr　'前の文字に戻す
　　　　　　　　TextBox1.SelectionStart = intPos '前の位置に戻す
　　　　　　　　boolFlg = False
　　　　　　　　Return
　　　　　　End If
　　　　Next
　　　　strBstr = TextBox1.Text　　'文字列を記憶
　　　　intPos = TextBox1.SelectionStart 'キャレットの位置を記憶
　　　　boolFlg = False
　　End Sub
12：こじら：2009/04/24(金) 21:20:01: 今晩は。　有難うございます。分かりやすい例でイメージがつかめました。
所で、話戻ってしまうのかもしれないのですが、RS232CでREADする際の
事で教えて頂きたいのです。先の質問のように複数のボタンでRS232Cにコマンド
を乗せPICを操作し、それに対する値を各コマンドボタンに対するTextBoxに
表示させたいと考えているのですが、デリゲートが理解できてないから
と考えてましたが、それだけではなくSerialPort1_DataReceived　のイベント
も考えなくてはならないのではと思ってます。　というのも
　Sub　ボタン１_click
　　コマンド1送信　→　（PIC実行）　
　　（PIC)　　　　→　　コマンド受信1byte
　　TextBox1へ表示
　end
　sub　ボタン2_click
　　コマンド2送信　→　（PIC実行）
　　（PIC）　　　　→　　コマンド受信2byte
　　TextBox2へ表示
　end
　sub　ボタン3_click
　　コマンド3送信　→　（PIC実行）
　　（PIC)　　　　→　コマンド受信（任意
　　TextBox3へ表示
　end
　sub　SerialPort1_DataReceived
　　　受信処理
　end
とした時、　受信は　SerialPort1_DataReceived　の1箇所で処理され、
受信した値はどのボタンによるものか分からず該当Textboxへの表示指定が
不明になるような気がしてます。
　このような時はどのようにすればよいのでしょうか？　SerialPort1_DataReceived
処理内で　どこからのREAD命令制御なのかを判断させる　グローバルな変数
を使う感じになるのでしょうか？
　あと、コマンドによっては数バイト受信することもあるのですが、SerialPort1_DataReceived
は1byte毎に処理をしているようで、例えは　AAh,5Ah,33hと3byte受信して
strIn += inByte(i).ToString + ","としても　これを表記すると　33h,1byte
のみとなっています。　
　連続取得する事って出来ないのでしょうか？　SerialPort1.BytesToRead - 1
で数byteとれるような気がしたのですが。　PICの問題でしょうか？
13：igoten：2009/04/25(土) 13:43:23: >グローバルな変数を使う感じになるのでしょうか？
そういうことですね。

結局送られてくるデータを貯めておいて、更新の度にSelect Case
等で判断する方法が一番簡単かなと思います。
「RS-232C Hex表示モニタの作成」
http://www.geocities.jp/hatanero/rs232c5.html
を参考にして考えられたらいかがでしょうか。
このプログラムではメインスレッドにあるテキストボックスに
表示させていますが、メインスレッドの中のグローバルな変数に
保持させる様にします。
14：＜削除＞：＜削除＞: ＜削除＞
15：＜削除＞：＜削除＞: ＜削除＞
16：＜削除＞：＜削除＞: ＜削除＞
17：＜削除＞：＜削除＞: ＜削除＞
18：＜削除＞：＜削除＞: ＜削除＞
19：＜削除＞：＜削除＞: ＜削除＞
20：＜削除＞：＜削除＞: ＜削除＞
21：＜削除＞：＜削除＞: ＜削除＞