VB 进程间同步通讯

例子的来源是MSDN,很早在MSDN上面看到的,后来找不到了,这次是从MSDN中VB例程cofee例程上摘录的,原理相同,都是用active,自定义事件.

1创建一个Active Exe工程,我叫pro_comm_pro吧,
2 添加一个标注模块 , Module1.bas:
  Public gCLS1 As cls1 '全局变量,保存对分发消息的类对象cls1的引用,以前没有定义为Public,不可以运行
3 添加类cls1.Cls
修改这个类的属性: Instancing = 2 'PublicNotCreate,不可以从外部进程创建
  其他属性使用默认
4 添加如下代码到cls1.Cls:
 

VB code

   
   

    
    
    
    Private
    
     mvarmVal 
    
    As
    
     
    
    String
    
     
    
    '
    
    属性变量
    
    

    
        
    
    Public
    
     Event ValChange(vData 
    
    As
    
     
    
    String
    
    )
    
    '
    
    通知事件
    
    

    
        
    
    Public
    
     
    
    Property
    
     
    
    Let
    
     mVal(ByVal vData 
    
    As
    
     
    
    String
    
    )
        mvarmVal 
    
    =
    
     vData
        RaiseEvent ValChange(vData)
    
    
    End Property
    
    
    
    
    Public
    
     
    
    Property
    
     
    
    Get
    
     mVal() 
    
    As
    
     
    
    String
    
    
        mVal 
    
    =
    
     mvarmVal
    
    
    End Property
   
   

5 添加一个类clsH.Cls , 这个类仅仅是个接口, 没有多少功能的.属性默认, 代码如下:
 

VB code

   
   

    
    
    
     
    
    Public
    
     
    
    Property
    
     
    
    Get
    
     GetCls() 
    
    As
    
     Variant
        
    
    If
    
     gCLS1 
    
    Is
    
     
    
    Nothing
    
     
    
    Then
    
    
            
    
    Set
    
     gCLS1 
    
    =
    
     
    
    New
    
     cls1
        
    
    End
    
     
    
    If
    
    
        
    
    Set
    
     GetCls 
    
    =
    
     gCLS1
    
    
    End Property
   
   

...
这个工程就完成了 , 生成exe文件吧, 我叫的是pro_comm_pro.exe

另外新建一个标注工程
1 新建工程
2工程->引用->浏览,选择我们pro_comm_pro.exe
3 在form1添加个command1 , 添加如下代码在form1.frm里面, 呵呵:

 

VB code

   
   

    
    
    
     
    
    Dim
    
     WithEvents ss 
    
    As
    
     cls1
    
    '
    
    ss,事件通知我们数据改变
    
    

    
        
    
    Dim
    
     cc 
    
    As
    
     clsH 
    
    '
    
    连接器对象
    
    

    
        
    
    '
    
    按这个按钮,修改cls1(ss)的属性值
    
    

    
        
    
    Private
    
     
    
    Sub
    
     Command1_Click()
        ss.mVal 
    
    =
    
     
    
    Time
    
    
    
    
    End Sub
    
    
    
    
    '
    
    初始连接器cc,初始cls1,事件分发对象ss
    
    

    
        
    
    Private
    
     
    
    Sub
    
     Form_Load()
        
    
    Set
    
     cc 
    
    =
    
     
    
    New
    
     clsH
        
    
    Set
    
     ss 
    
    =
    
     cc.GetCls
    
    
    End Sub
    
    
    
    
    '
    
    接受到数据改变事件
    
    

    
        
    
    Private
    
     
    
    Sub
    
     ss_ValChange(vData 
    
    As
    
     
    
    String
    
    )
        Form1.Caption 
    
    =
    
     ss.mVal
    
    
    End Sub
   
   

4 编译生成工程吧 , 我交cli.exe
运行2个cli.exe , 点击command1, 会看到, 两个窗口同时改变,需要更多同步信息