vb 调用外部程序
功能实现如题所示
但是我要求调用的外部exe程序能够在本窗体里面显示出来
也就是说，有一个窗体作为母窗体，一个按钮，点击按钮，能够在母窗体的规定位置显示出来我要调用的程序，并且被调用的程序功能没有什么变化。
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Dim hw As Long
Shell "notepad.exe", vbNormalNoFocus
hw = FindWindow(vbNullString, "无标题 - 记事本")
If hw Then SetParent hw, Me.hWnd
End Sub
以上代码是运行记事本软件，然后将其窗口放到本窗口内，你自己修改一下就行了，另外还可以用API函数改变该软件窗口的位置和大小等等，这也很简单的。
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Dim hw As Long
Shell "notepad.exe", vbNormalNoFocus
hw = FindWindow(vbNullString, "无标题 - 记事本")
If hw Then SetParent hw, Me.hWnd
End Sub
以上代码是运行记事本软件，然后将其窗口放到本窗口内，你自己修改一下就行了，另外还可以用API函数改变该软件窗口的位置和大小等等，这也很简单的。
温馨提示：内容为网友见解，仅供参考
第1个回答 2010-03-22
你的意思就是将你的窗体作为一个容器，而将其他的程序在这容器里面运行，VB里面有可做容器的控件，比方ole，但也并不是所有软件都可以在容器里运行。
相似回答
