Hola.

Se que en vb.net no se pueden importar datos directamente desde el protocolo DDE, alguien sabe si hay alguna alternativa para poder hacerlo.

Muchas gracias.

NDde - Home

Gracias por la ayuda "jar" pero me he descargado el "ndde" y no logro entenderlo bien, no se como instalarlo en vb.net y mi interesa saber como podría traducir: linkmode, linkitem, linktopic y linkrequest al "ndde".

Muchas gracias.

Tienes que agregar a tu proyecto una referencia a la libreria NDde.dll.

Sobre lo de linkmode no tengo no idea . Para el resto, segun este ejemplo, seria algo asi:

VBA/VB6:

Código:

Text1.LinkTopic = "Excel|Sheet1"
Text1.LinkItem = "R1C1"
Text1.LinkMode = 1

En .NET con NDde:

Código:

Dim dde As NDde.Client.DdeClientNew =  NDde.Client.DdeClient("Excel", "Sheet1", textBox1)
dde.Connect()
dde.StartAdvise("R1C1", 1, True, 10000)

AddHandler dde.Advise, AddressOf dde_TextBox1_Advise
AddHandler textBox1.TextChanged, AddressOf textBox1_TextChanged


Private Sub textBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
    ddeClient_TextBox1.Poke("R1C1", textBox1.Text & ControlChars.NullChar, 4000)
End Sub

		
Private Sub ddeClient_TextBox1_Advise(ByVal sender As Object, ByVal e As NDde.Client.DdeAdviseEventArgs)
    Const DDE_postFix As String = ControlChars.CrLf & ControlChars.NullChar
    If e.Text.Length >=DDE_postFix.Length AndAlso textBox1.Text & DDE_postFix <> e.Text Then
        textBox1.Text = e.Text.Substring(0, e.Text.Length - 3)
    End If
End Sub

En la descarga de NDde puede encontrarse la libreria compilada, de todas formas aqui dejo la libreria compilada para .NEt 2.0 y .NET 4.0

https://mega.co.nz/#!iBI2nQBA!ArMloZ...lr_AhnR_uxeuCc

Siento molestarte de nuevo, pero al asignar la variable me da error, habiendo agregado la referencia.

Dim dde As NDde.Client.DdeClientNew = NDde.Client.DdeClient("Excel", "Sheet1", textBox1).

Gracias.

Falta la plabra clave New:

Código:

Dim dde As NDde.Client.DdeClientNew = New NDde.Client.DdeClient("Excel", "Sheet1", textBox1)

Muchas gracias Jar, pero me sigue dando fallos

dde.Connect()
dde.StartAdvise("R1C1", 1, True, 10000)

AddHandler dde.Advise, AddressOf dde_TextBox1_Advise
AddHandler textBox1.TextChanged, AddressOf textBox1_TextChanged


Private Sub textBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
ddeClient_TextBox1.Poke("R1C1", textBox1.Text & ControlChars.NullChar, 4000)
End Sub

En los textos subrayados me ha dado error.

Un saludo.