怎样在两个VB程序之间传递信息？

可以用动态数据交换(Dynamic Data Exchange,DDE)实现进程之间的通信。

发送端：

添加Command1，Text1控件，Text1的内容用于发送。

代码衫友如下：

Private Sub Command1_Click()

Dim t As Long

Text1.LinkMode = 0

Text1.LinkTopic = "Child|FrmChild" '注意此处一定与接收的程序名称和连接的标题相同否则连接不成功。

Text1.LinkMode = 2

Text1.LinkExecute Text1.Text

t = Text1.LinkTimeout

Text1.LinkTimeout = 1

Text1.LinkMode = 0

Text1.LinkTimeout = t

End Sub

接收端：

添加Text1控件，亮腔Text1的内容用于接收。设置工程名称为Child（与发送的程序名对应），设置窗体的LinkMode属性为1，LinkTopic为FrmChild(对应上面发送的标题)。

Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)

Text1 = CmdStr

Cancel = 0

End Sub

编译后，先运行接收端，然后运行发送端，输入内容，发送即可或键槐成功。

两种方法：

1

在模块中用

public

定义数组，可在模块和窗好搭灶体直接访问，不用传递：

public

opq(20,

3)

as

long

2.------在窗体中定义数组，

dim

opq(20,

3)

as

long

private

sub

command1_click()

opq(1,

1)

=

2

dd

=

sss(opq)

end

sub

------模块友扮代码枝物这样写：

public

function

sss(zu

as

variant)

sss

=

zu(1,

1)

end

function

Private Sub Command1_Click()

Dim n(), m As Integer

n = Array(1, 2, 3)

fn n, m

Print m

n = Array(1, 2, 3, 4, 5)

m = 0

fn n, m

Print m

End Sub

Private Sub fn(a(), x As Integer)

Dim i As Integer

For i = 0 To UBound(a)

x = x + a(i)

Next

End Sub

---