作者cumo ()
看板Visual_Basic
标题[VB6 ] 关闭指定视窗
时间Mon Feb 8 17:50:40 2010
有个关於关闭指定视窗的问题想请问各位大大
我的程式要去关闭某一个由IE开启的网页
我是先用FindWindow去找到该网页的hwnd
然後由此hwnd去关闭该网页
我的程式如下:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String _
) As Long
Private Declare Function DestroyWindow Lib "user32" ( _
ByVal hwnd As Long _
) 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 ShowWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nCmdShow As Long _
) As Long
Dim myhwnd As Long
Private Sub Command1_Click()
myhwnd = FindWindow(vbNullString, "XXXXXXXXXXXXX")
MsgBox myhwnd
End Sub
Private Sub Command2_Click()
DestroyWindow myhwnd
'MoveWindow myhwnd, 20, 50, 800, 600, 1
'ShowWindow myhwnd, 0
End Sub
1.当我按command1时，该网页的hwnd数值有出现，但我按了command2时，
该视窗都不会关闭，写成Call DestroyWindow (myhwnd)也是一样，
但是如果是执行MoveWindow或ShowWindow时却都没问题
2.当我在测试MoveWindow时，如果该视窗最小化到工具列时，除非第一次执行该程式，
不然也都没有作用，不会按照我设定的数值呈现
请问这是哪里出了问题呢
找了很多方法(用postmessage与sendmessage...)都没有用
谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.58.182.248