This project is read-only.

help with NDDE please !!!!

May 6, 2010 at 8:13 PM
Edited May 6, 2010 at 8:15 PM

i have a vb6 source code to receive data from dde server

 

Const TOPIC_SENSOR As String = "SeeLane|Sensor"
Const TOPIC_GATE As String = "SeeLane|Gate"
Const TOPIC_PIN As String = "SeeLane|Pin"
Const ITEM_SENSOR_ACTIVATE As String = "Activate"
Const ITEM_GATE_OPEN As String = "Open"
Const ITEM_PIN_ON As String = "On"
Const ITEM_PIN_OFF As String = "Off"

Private Sub Form_Load()
On Error GoTo NO_DDE_SERVER
    lblCar.LinkMode = vbLinkNotify
    lblLaneId.LinkMode = vbLinkManual
    lblName.LinkMode = vbLinkManual
    lblAuthorized.LinkMode = vbLinkManual
    lblFile.LinkMode = vbLinkManual
    lblConfidence.LinkMode = vbLinkManual
    lblType.LinkMode = vbLinkManual
    MsgBox "Ket noi voi thanh cong voi SeeLane !!!"
    Exit Sub
NO_DDE_SERVER:
    MsgBox "Khong the ket noi voi  SeeLane !(Xem chuong trinh co chay khong?)."
    Exit Sub
    
End Sub


Private Sub lblCar_LinkNotify()
On Error Resume Next

    lblCar.LinkRequest
    lblLaneId.LinkRequest
    lblName.LinkRequest
    lblAuthorized.LinkRequest
    lblFile.LinkRequest
    lblConfidence.LinkRequest
    lblType.LinkRequest
    CheckAuthorized
    lblLaneId.Caption = lblLaneId.Caption + 1
End Sub

Private Sub CheckAuthorized()
Dim i As Integer
i = lblAuthorized.Caption
i = i + 1
If lblAuthorized.Caption = 1 Then
    lblPoke.LinkTopic = TOPIC_GATE
    lblPoke.LinkItem = ITEM_GATE_OPEN
    lblPoke = Chr(lblLaneId.Caption)
    lblPoke.LinkMode = vbLinkManual
    lblPoke.LinkPoke
End If

End Sub

 

 

 

so please help me make a sample with Ndde.

 

thanks