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

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

发送端：

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

代码如下：

Private Sub Command1_Click()

Dim t As Long

Text1LinkMode = 0

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

Text1LinkMode = 2

Text1LinkExecute Text1Text

t = Text1LinkTimeout

Text1LinkTimeout = 1

Text1LinkMode = 0

Text1LinkTimeout = 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

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

Private Sub Command1_Click()

  MeCls

  Dim N As Integer, i As Integer

  N = InputBox("n=", , 9)

  For i = 1 To 2  N - 1

    If i <= N Then

      Print Space(N - i) + String(2  i - 1, CStr(i))

    Else

      Print Space(N - (2  N - i)) + String(2  (2  N - i) - 1, CStr(2  N - i))

    End If

  Next i

End Sub

对编程者来说，VB很容易上手，但要深入、灵活地驾驭它还要下一番功夫。笔者在这里介绍几个较为典型的编程技巧，希望能对广大VB爱好者有所帮助。

一怎样创建自定义的光标

1当在设计一个应用程序时，Visual Basic允许程序员将许多控件的MousePointer属性设计成12个预先定义好的鼠标光标之一。然而，有些程序员或许会希望显示一个预定义形状之外的光标。本文说明如何创建一个不同的鼠标指针（光标），包括为一个没有MousePointer属性的控件创建光标。

要在Visual Basic应用程序中将光标(鼠标指针)改变成个不同的形状，可以添加代码来改变希望监视的控件的MouseMove和DragOver事件。

MouseMove事件所包含的代码用于触发该控件的Drag方法。当鼠标在被选中的控件上移动的时候，轮流显示新的鼠标指针。当鼠标指针离开该控件时，则DragOver事件被触发。在Visual Basic程序中，可以重新复位此Drag属性，以便以前的鼠标指针能够被再次显示出来。

2下面的样例程序实现当鼠标指针移动到一个文件列表框控件上时，将其改变成不同的形状。

首先采用缺省的方法建立Form1。在Form1上添加一个文件列表框控件，采用缺省的方法建立File1。将File1控件的DragIcon属性设置为所选择的ICO文件。

将如下代码添加到File1的MouseMove事件中：

Private Sub File1-MouseMove(ButtonAs

Integer, Shift As Integer, X As Single, Y As Single)

File1Drag 1 ''icon on

End Sub

---- 将如下代码添加到Form1的DragOver事件中：

Private Sub Form-DragOver(Source As Control,

X As Single, Y As Single, State As Integer)

File1Drag 0 ′icon off

End Sub

按下F5功能键执行此程序。得到的运行结果是：将鼠标指针移动到该文件列表框控件上时，程序将把所选中的ICO文件作为缺省的鼠标光标；将鼠标指针离开该控件时，光标则会自动恢复为缺省的形状。

二怎样在窗体上点鼠标右键产生一个d出式选单（PopUp Menu）？

大家都知道，在Windows95/98/2000的桌面和许多流行软件的视窗中，当我们点鼠标右键时，会在鼠标的当前位置d出一个快捷选单。许多爱好编程的朋友是不是也希望能在自己的程序里有类似的功能呢？其实，这并不困难。笔者经过一番努力，在VB下找出一个通用的方法，供大家分享。

要实现上述功能，需分两个步骤：

1 利用VB的选单我器（Menu Editor）我你希望d出的选单及子选单，注意，要将选单的Visible属性设置为:False。

2 在窗体（Form1）的MouseDown事件中编写程序，来激发我好的选单，假设选单名为PopMenu，程序源码如下：

Private Sub Form-MouseDown

(Button As Integer, Shift As Integer,

X As Single, Y As Single)

If Button = vbRightButton Then

PopMenuVisible = True

PopupMenu PopMenu

End If

End Sub

上述方法是针对窗体的，我们也可以针对任意控件，用鼠标右键点击控件时，也d出一个快捷选单。方法也很简单，只要把上述代码放到相应控件的MouseDown事件中，就可以了。

三怎样动态地在窗体上判断某区域内是否有控件存在？

在笔者的一个小程序中，想在窗体的某个区域输出数据，这就要求在这个区域内不能有其他控件存在，那么，怎么才能知道在窗体的某个区域内，是否有控件存在呢？

为了判断在窗体的某个区域中，是否含有控件，我们可以利用以下VB程序来实现：

Function GetControl(x1 As Single, y1 As Single,

x2 as Single, y2 as Single) As Control

Dim Control as Control

For Each Control In Form1

With Control

If (x1 〈= Left) And (x2 〉= Left) And _

(y1 〈= Top) And (y2 〉= Top) Or _

(x1 〈=Left ＋ Width) And (x2 〉= Left ＋ Width) And _

(y1 〈= Top) And (y2 〉= Top) Or _

(x1 〈= Left) And (x2 〉= Left) And _

(y1 〈= Top ＋ Height) And (y2 〉= Top ＋ Height) Or _

(x1 〈= Left ＋ Width) And (x2 〉= Left ＋ Width) And _

(y1 〈= Top ＋ Height) And (y2 〉= Top ＋ Height) Then

Set GetControl = Control

Exit Function

End If End With

Next

Set GetControl = Nothing

End Function

注：(x1, y1)和(x2, y2)分别为选定矩形区域的左上角和右下角点的坐标值。

该程序通过计算窗体上所有控件的四个角的位置来判断控件是否与选定区域相交，并返回相交的控件。

Private Sub Command1_Click()

Dim FileN$, PathN$

FileN = "Test001"

PathN = IIf(Right(AppPath, 1) = "\", AppPath, AppPath & "\")

MkDir PathN & FileN

Shell "cmd /c net share " & FileN & "=" & PathN & FileN

MsgBox "ok"

End Sub

下面的代码是利用三边计算三角形面积

Private Sub Command1_Click()

a=val(text1text)

b=val(text2text)

c=val(text3text)

p=(a+b+c)/2

s=sqr(p(p-a)(p-b)(p-c))

if a+b>c and b+c>a and a+c>b then

text4text="三角形的面积是:" & s

else

text4text="不能构成三角形"

end if

end sub

下面是计算两数之和的代码

private sub command1_click()

a=val(text1text)

b=val(text2text)

text3text=a+b

end sub

以上就是关于怎样在两个VB程序之间传递信息全部的内容，包括:怎样在两个VB程序之间传递信息、用VB做一个简单的小程序、VB编程的必备技巧等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！