VB.Net DDE 通信について

環境/言語:[VB.Net 2005 Express Edition]
分類:[.NET]

はじめまして､takaと申します。

VB.NetでDDE通信を行おうと思い､下記URLより､ライブラリをダウンロードしました。

http://www.gotdotnet.com/workspaces/workspace.aspx?id=03b24eab-36c4-48ec-9a9a-c4977f46ce2c

現在､便宜上 EXCELをDDEサーバーに見立てて､DDEクライアントのプログラムを作成しております。

サンプルのコードにより､1個のitemからのデータはDDE通信出来るのですが､itemが複数になった時の､処理仕方が判りません。

ｲﾍﾞﾝﾄの発生したitemを特定する方法が判れば､良いと思うのですが､私の作った､下記のコードでは､最後の行(R15C1)の値しか取得できません。

よい処理方法､アドバイスしていただけたらと思います。

宜しくお願い致します。

-----------------以下 コード-----------------

Private WithEvents client As New DdeClient("EXCEL", "Sheet1", Me)

Private Sub MainForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim myitem(15) As String
Dim i As Integer
Try
client.Connect()
For i = 1 To 15
myitem(i) = "R" & i & "C1"
client.StartAdvise(myitem(i), 1, True, 60000)
AddHandler client.Advise, AddressOf client_Advise
Next

Catch ex As Exception
displayTextBox.Text = ex.Message
End Try
End Sub


Private Sub client_Advise(ByVal sender As Object, ByVal e As NDde.Client.DdeAdviseEventArgs) Handles client.Advise

displayTextBox.Text = "OnAdvise: " + e.Text
TextBox2.Text =

End Sub

自己レスです。。

解決しました。

ご迷惑おかけしました。。。

この掲示板では、自己解決した場合でも、どのように解決したのかを報告していただくことになっていますので、よろしくお願いいたします。

書き込みのマナーについて
http://dobon.net/vb/bbs/index.html

■No14812に返信(管理人さんの記事)
> この掲示板では、自己解決した場合でも、どのように解決したのかを報告していただくことになっていますので、よろしくお願いいたします。
>
> 書き込みのマナーについて
> http://dobon.net/vb/bbs/index.html

失礼しました。

Private Sub StartAdvise(ByVal sender As Object, ByVal e As DdeAdviseEventArgs) Handles client01.Advise
Dim a As Object
a = e.Item

Dim data As String = System.Text.Encoding.ASCII.GetString(e.Data).Replace("\r\n", "")
TextBox1.Text = data

と、することでイベントの発生する　itemを特定することができました。

■No14813に返信(takaさんの記事)
> Private Sub StartAdvise(ByVal sender As Object, ByVal e As DdeAdviseEventArgs) Handles client01.Advise
> Dim a As Object
> a = e.Item
>
> Dim data As String = System.Text.Encoding.ASCII.GetString(e.Data).Replace("\r\n", "")
> TextBox1.Text = data

明らかにaって不要。