请问如何用VB6.0实现在屏幕指定位置打开外部应用程序?

[xwylpsy]

比如在屏幕的坐标(400,100)打开IE!

[dbcontrols]

先Shell

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

[xwylpsy]

[Quote=引用 1 楼 dbcontrols 的回复:]
先Shell

VB code
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function MoveWindow Lib "us……
[/Quote]
能举个具体的实例吗？

[dbcontrols]

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
    Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.baidu.com", vbNormalNoFocus
    Sleep 2000
    Dim hwnd As Long
    hwnd = FindWindow("IEFrame", "百度一下，你就知道 - Microsoft Internet Explorer")
    FormMove = MoveWindow(hwnd, 400, 100, 600, 800, True)
    SetActiveWindow hwnd
End Sub

[cbm6666]

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
Dim ie As Object
Private Sub Command1_Click()
   Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
   ie.Visible = True
   ie.Navigate "http://google.com"
   Call SetWindowPos(ie.hWnd, -1, 400, 100, Me.Width \ 15, Me.Height \ 15, &H400)
End Sub

[贝隆]

[Quote=引用 3 楼 dbcontrols 的回复:]
VB code
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function MoveWindow Lib "user32" (ByV……
[/Quote]

＋壹

[dbcontrols]

楼上的你试了没有？cbm666那个代码比我写那个强

[xwylpsy]

我试过了，如果默认的情况下是全屏情况怎样进行移动！

[咸清]

[Quote=引用 9 楼 xwylpsy 的回复:]
我试过了，如果默认的情况下是全屏情况怎样进行移动！
[/Quote]
全屏能移动吗？

[嗷嗷叫的老马]

那个....我也来说个思路.

使用createprocess创建进程,然后可以在startupinfo结构里指定左上角坐标,以及窗体大小.

[king06]

咋没人用ShellExecute呢

[DengXingJie]

收藏收藏收藏