數據交換應用

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