Vb控制所调用的exe文件出现的位置

来源：百度知道 编辑：UC知道 时间：2024/06/23 20:43:36
我在Vb里调用了一个exe可执行文件，怎么样才可以让这个文件出现在一个给定的位置（如Vb里面用left top 来给它定位）？
Winnip888你会错意了，我不是不会调用可执行文件，我是要控制可执行文件出项的位置，例如我要让它出现在窗体右下角。

请看我帮你编写的代码，请修改其中的一些相关值。

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags 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()
Shell App.Path & "\1.exe", vbNormalFocus '打开当前目录下的1.exe文件
Dim toshow As Long '获取你打开的这个程序的窗体句柄
toshow = FindWindow(vbNullString, "数字字典生成") '数字字典生成是你打开的那个程序的标题，请自己修改
Const w = 300 '设定应用程序显示的宽度
Const h = 200 '设定应用程序显示的高度
Left = 100 '距屏幕左侧的距离
Top = 100 '距屏幕上端的距离
SetWindowPos toshow, 0, Left, Top, w, h, 0
End Sub

补充一下，其中的常数top和left请改成top1和left1，不然会和窗体的属性重复了。

shell "C:\1.exe"
像这样!