異なるフォームでのデータの共有をするには？

こっこ 2004-12-21 16:31:31 No: 87528

とても初歩的な質問で申し訳ないのですが
form1でWinsockコントロールを配置して
受信データをstrdataとしているのですが、
そのデータをform1とform2と二つのformで利用
（表示）したいのですがどのようなプログラムを
書いたら良いのか教えて下さい。
よろしくお願いします。

適当主義者 2004-12-21 16:41:10 No: 87529

パブリック変数を利用してみては？

'---標準モジュール---
Public pRxData As Long

'---WinSock1---
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

pRxData = bytesTotal

End Sub

'---Winsock2---
Private Sub ShowRxData()

Call MsgBox(CStr(pRxData))

End Sub

こんな感じ。

適当主義者 2004-12-21 16:45:04 No: 87530

コメントの[WinSock]は間違いです。
この場合は[Form]です。。