数据交换应用

Question

2之间，我有两个应用程序
第一个用C 第二用VB.NET

我想执行的第一个，并保持更新到第二

状态编程是有办法做到这一点？

我可以改变它们中的任何一个源代码

Answer 1

OK的地方，在VB中需要实现两个程序之间的接口，因此您可以在它们之间传递参数。

• 记得导入 “系统” 和 “的System.Reflection”

在程序1（调用程序），我设置了：

Dim oType As System.Type 
Dim oAssembly As System.Reflection.Assembly 
Dim oObject As System.Object 

oAssembly = Reflection.Assembly.LoadFrom("C:\VB.NET\report3.exe") 
oType = oAssembly.GetType("report3.r1") ' this is [root_namespace.class name] 
oObject = Activator.CreateInstance(oType) 
oObject.SetParams("a", "b") 
oObject.show() 

这将导致report3.exe运行并将其作为值发送给“a”和“b”参数。

然后在程序2（report3.exe），我把它像这样：

Imports System.Reflection 

Public Class r1 

    Implements IPlugin 

    Public person As String = "" 
    Public address As String = "" 


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

     Me.TopMost = True 'optional 

     Dim b1 As New Label() 
     With b1 
      .Location = New Point(10, 10) 
      .Width = 200 
      .Height = 20 
      .Parent = Me 
      .BackColor = Color.Blue 
      .ForeColor = Color.White 
      .Text = person 
     End With 

     call_addr() 
    End Sub 


    Public Sub SetParams(c As String, d As String) Implements IPlugin.SetParams 
     person = c 
     address = d 
    End Sub 

    Private Sub call_addr() 
     Dim b2 As New Label() 
     With b2 
      .Location = New Point(10, 50) 
      .Width = 200 
      .Height = 20 
      .Parent = Me 
      .BackColor = Color.Red 
      .text = address 
     End With 
    End Sub 

End Class 


Public Interface IPlugin 
    Sub SetParams(ByVal c As String, ByVal d As String) 
End Interface 

Answer 2

我可以看到那里正在并发症使用C++及VB，但这里的开始 http://msdn.microsoft.com/en-us/library/aa365574%28VS.85%29.aspx