Conversão de VB6 p/ .NET

[spilin182]

Boa noite, possuo um sistema q foi desenvolvido em VB6 e estou migrando para .NET. Boa parte do código já foi convertida, porém possuo a seguinte sintaxe:

Sub ...

               Channel = Application.DDEInitiate("IPC_DATA", "IPC_1")

               Status = Application.DDEPoke("Channel", "Active")

               Application.DDETerminate Channel

End Sub

Funciona perfeitamente em VB6 (Com a referência "Microsoft Access 12.0 Object Library"), mas não acho algo correspondente em . NET.

Alguém saberia como fazer esta sintaxe em .NET? Ou se pelo menos ela não existe mais... rs .. pelo menos assim acaba meu sofrimento. Valeu

[quintelab]

http://scriptbrasil.com.br/forum/index.php?showtopic=128401

[spilin182]

Essa função abre um canal DDE com um software chamado "IPC DATA SERVER". Esse software auxilia na captação de variáveis de um CLP da empresa Festo.

O que eu preciso saber realmente é se em Visual Studio 2008 (VB.NET) eu consigo estabelecer uma comunicação DDE como antigamente no VB6.

Vlw

[quintelab]

Tem uma frase neste artigo: http://www.macoratti.net/vb6net1.htm

Voce usa e abusa dos métodos DDE ?? Lamento , no VB.NET o método de comunicação é totalmente diferente.

Veja se esses te ajudam:

http://forums.microsoft.com/MSDN-BR/ShowPo...1&SiteID=21

http://code.msdn.microsoft.com/default.aspx?SiteEntry=gdn

Abraços...

[spilin182]

Pow cara o tópico ajudou muito! Funcionou... se interessar para alguém um exemplo do código em .NET ficou assim:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    Dim Aplicacao As Object
    Dim channel, valor As Long

    Aplicacao = New Microsoft.Office.Interop.Access.Application
    channel = Aplicacao.ddeinitiate("ipc_data", "ipc_1")
    valor = Aplicacao.dderequest(channel, "active")

    If valor = 0 Then
        Label1.Text = "Offline"
    Else
        Label1.Text = "Online"
    End If
    Aplicacao.ddeterminate(channel)
End Sub

[quintelab]

Beleza ;)