NDde 的簡易教學 (Client 完整範例)

NDde 的簡易教學 (Client 部份)

說明的部份請先參考上面的文章…這篇主要就是直接給一個完整的範例用…

請先在 Form1 上拉出一個 Label。

範例程式碼加下：





Imports NDde.Client
Imports System.Text

Public Class Form1

Private WithEvents dde As DdeClient

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

dde = New DdeClient("Excel.exe", "DDE.xls", Me)

dde.Connect()

Dim temp As Byte()
Dim temp1 As String

Try
temp = dde.Request("R1C1", 1, 60000)
temp1 = Encoding.GetEncoding(950).GetString(temp, 0, temp.Length)
Label1.Text = temp1
Catch ex As Exception
End Try
Try
dde.StartAdvise("R1C1", 1, True, 60000)
Catch ex As Exception
End Try

End Sub

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

If e.Item.ToString = "R1C1" Then
Label1.Text = e.Text
End If

End Sub

End Class



完成後請記得開啟一個 Excel 檔案，並存成檔名為 DDE.xls

開啟該 Excel 後，就可以看到 Form1 上的 Label 會和 R1C1 的資料連結了。

更改 Excel 上的 R1C1 資料會在 Form1 上的 Label 同步作更改。