はじめまして。こんばんわ。
同一プロジェクトの複数のフォームから、RS232C接続処理を行っております。
まったく同じ処理内容なので、クラスを使用しようとしております。
しかし、データ受信時、Invokeメソッドを使用して、各フォームのイベントをCALLしますと、『InvalidOperationException』が発生し、『ウィンドウ ハンドルが作成される前、コントロールで Invoke または BeginInvoke を呼び出せません。』というエラーメッセージが表示されてしまいます。
ソースを下記に記載いたします。どなたか、原因・対処方法がわかる方がいらっしゃいましたら、御手数をおかけいたしますが、ご教示の程、よろしくお願い申し上げます。
==============================
呼び出し元フォーム
==============================
Public Class Form1
Private cls232CIns As cls232C
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cls232CIns.openport()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cls232CIns = New cls232C()
End Sub
Public Sub DispData(ByVal data As String)
TextBox1.Text = data
End Sub
End Class
==============================
SerialPort通信クラス
==============================
Imports System.IO.Ports
Public Class cls232C
WithEvents SP1 As SerialPort
Delegate Sub RecvDataDisp(ByVal dataR As String)
Public Sub New()
SP1 = New SerialPort("COM6", 9600)
End Sub
Public Sub openport()
SP1.Open()
End Sub
Public Sub closeport()
SP1.Close()
End Sub
Public Sub ReceiveData(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SP1.DataReceived
Dim getdata As String
getdata = SP1.ReadLine
Form1.Invoke(New RecvDataDisp(AddressOf Form1.DispData), getdata) ←ここでエラー発生
End Sub
End Class
No.2
- 回答日時:
Invokeでっていうより Eventで処理したほうがいいかもしれないですよ
clsC232Cの定義に
Public Event ReciveDataDisp( ByVal sData as String )
として定義して
Public Sub ReceiveData(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SP1.DataReceived
Dim getdata As String
getdata = SP1.ReadLine
RaiseEvent ReciveDataDisp( setdata )
End Sub
といった具合に記述しておきます
呼び出すフォーム側では
WithEvent cls232CIns As cls232C
定義して ReciveDataのイベントハンドラを定義してやればいいように思います
Private Sub cls232CIns_ReciveData(ByVal sData As String) Handles cls232CIns.ReciveDataDisp
TextBox1.Text = sData
End Sub
redfox63様、早速のご回答の程、ありがとうございました。
下記のpiyo2000様へのお返事の方に記述いたしましたが、
RaiseEventと、Invokeを使用して、やっと受信データを画面に表示することができました!
『Eventで処理』について、これからもう少し勉強していきたいと思います!
まだまだ私は不勉強なところも多いのですが、いろいろご教示いただきまして、本当にありがとうございました!
No.1ベストアンサー
- 回答日時:
ReceiveData()では、「Form1」という暗黙のインスタンスが参照されています。
同一プロジェクトの複数のフォームから、とありますので
例えばForm1のインスタンスが無い状態でForm2上のcls232Cが機能した場合、
Form1.DispDataという関数のアドレスはForm1のインスタンスが無いので存在しないことになります。
(暗黙のインスタンスを利用して)特定のフォームを指すというクラスの設計がそもそもおかしいですよね。
「Form1」が必ず無いとcls232Cは動作しませんからね。
まずは暗黙のインスタンスを排除する必要があると思います。
例えば、Form_Loadでは
cls232CIns = New cls232C(Me)
とし、クラスでは
Private m_Form As Form
Public Sub New(oForm As Form)
SP1 = New SerialPort("COM6", 9600)
m_Form = oForm
End Sub
Invokeメソッドは
m_Form.Invoke(New RecvDataDisp(AddressOf m_Form.DispData), getdata)
とすればいいです。要は、呼び出し元のフォームを教えてあげ、Invokeするのも呼び出し元のFormに限定するわけです。
ただ、これは呼び出すフォームは必ずDispData()の実装を(訳もなく)強いられるという点など、マイナス点の多い実装です。
私ならこうします。
Imports System.IO.Ports
Public Class cls232C
Public Event Received(ByVal getdata As String)
WithEvents SP1 As SerialPort
’~略~
Public Sub ReceiveData(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SP1.DataReceived
Dim getdata As String
getdata = SP1.ReadLine
RaiseEvent Received(getdata)
End Sub
こうするとForm上のcls232CにはReceivedというイベントが出来ているはずです。
Private Sub cls232CIns_Received(ByVal getdata As String) Handles cls232CIns.Received
TextBox1.Text = getdata
End Sub
この回答への補足
piyo2000様、早速のご回答の程、ありがとうございました。
※『お礼』の長さが1000Byteまでで記述できなかったので、『補足』の方に記述させていただきます。
早速RaiseEventを使用してみたのですが、フォームの
> TextBox1.Text = getdata
の箇所で、InvalidOperationExceptionエラーが発生してしまいました。
内容は、『有効ではないスレッド間の操作: コントロールが作成されたスレッド以外のスレッドからコントロール 'TextBox1' がアクセスされました。』とのことです。
調査してみました所、DataReceivedイベントハンドラはセカンダリスレッドから呼び出され、
Windows.Forms の UI 要素にアクセスする場合は Control.Invoke() メソッドを使用する必要がある・・・
とのことでした。
頂きましたご回答と、『同じフォーム内のみでSerialPortデータを受信する』というサンプルを
組合せて(?)、下記のようにしたら動作いたしました!
迅速にいろいろとご教示いただき、本当にありがとうございました!
==============================
呼び出し元フォーム
==============================
Public Class Form1
'Private cls232CIns As cls232C ←削除
WithEvents cls232CIns As cls232C ←追加
Delegate Sub RecvDataDisp(ByVal dataR As String) ←追加
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cls232CIns.openport()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cls232CIns = New cls232C()
End Sub
Private Sub cls232CIns_Received(ByVal getdata As String) Handles cls232CIns.Received ←追加
//セカンダリスレッドからメインスレッド呼び出し
Me.Invoke(New RecvDataDisp(AddressOf Me.DispData), getdata)
End Sub
Public Sub DispData(ByVal data As String)
TextBox1.Text = data
Debug.WriteLine("受信データ=" & data)
End Sub
End Class
==============================
SerialPort通信クラス
==============================
Imports System.IO.Ports
Public Class cls232C2
Public Event Received(ByVal getdata As String) ←追加
WithEvents SP1 As SerialPort
'Delegate Sub RecvDataDisp(ByVal dataR As String) ←削除
Public Sub New()
SP1 = New SerialPort("COM6", 9600)
End Sub
Public Sub openport()
SP1.Open()
End Sub
Public Sub closeport()
SP1.Close()
End Sub
Public Sub ReceiveData(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SP1.DataReceived
Dim getdata As String
getdata = SP1.ReadLine
'Form1.Invoke(New RecvDataDisp(AddressOf Form1.DispData), getdata) ←削除
RaiseEvent Received(getdata) ←追加
End Sub
End Class
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
ロボットの住む世界で流行ってる罰ゲームとは?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
C# シリアル通信でデータ受信時の欠損について
C言語・C++・C#
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
インスタンス参照でアクセスで...
-
変数名の付け方
-
オブジェクト参照がオブジェク...
-
生成したインスタンスを削除す...
-
private static という変数の修飾
-
VB.NET getとsetの概念がわかり...
-
C#において、同じインスタンス...
-
C# インスタンスの破棄
-
フォームの存在をチェックする方法
-
C# クラスの代入について
-
複数の変数を宣言する時、同時...
-
javaのクラスの作り方、エラー...
-
C#でオブジェクトの有無を取得する
-
文字列を日付に変換でParseExce...
-
ASPX(C#)で別ファイルで自分で...
-
他のファイルの変数参照
-
「インスタンス」の意味をわか...
-
変数の参照でエラーが出てしま...
-
objective-cで分かりにくい所教...
-
SetWindowsHookExで質問
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
変数名の付け方
-
インスタンス参照でアクセスで...
-
複数の変数を宣言する時、同時...
-
private static という変数の修飾
-
C#において、同じインスタンス...
-
オブジェクト参照がオブジェク...
-
VB.NET getとsetの概念がわかり...
-
「インスタンス」の意味をわか...
-
C# インスタンスの破棄
-
生成したインスタンスを削除す...
-
フォームの存在をチェックする方法
-
変数の参照でエラーが出てしま...
-
文字列を日付に変換でParseExce...
-
他のファイルの変数参照
-
エクセル(複数インスタンス)...
-
VB6.0で、DLLを動的に参照したい
-
Form1上にあるTextBox1を Modul...
-
[Visual C#] 優先される処理に...
-
ASPX(C#)で別ファイルで自分で...
-
SQLを連続発行する時の正しい(?...
おすすめ情報