关闭窗体的问题.各位进来看看.80分送上,急!!!!!

Question

那是当然了 这不是我给你的 代码吗？如果要是能放到窗体里 我就不会放到模块里的 ：）Declare Function不能放到窗体里

Answer 1

addressof 运算符后边的函数必须出现在标准模块里，不可以使用在窗体模块中的函数。

Answer 2

AddressOf 运算符
      一个一元运算符，它将其后面的过程的地址传递给一个 API 过程，该 API 过程在参数表对应位置中需要一个函数指针。语法AddressOf procedurename必需的 procedurename 指定要传递的地址是哪一个过程的地址。这个过程必须是发出调用命令的工程中的一个标准模块模块里的一个过程。

Answer 3

不会吧???有没有其他的方法可以在窗体里面运行呀?BOSS要求是只要一个执行文件,没有安装过程和别的什么东西.

Answer 4

对呀 没关系的 编译后还是一个exe

Answer 5

在Declare Function 前面加上private
Private Declare Function ...
就可以了！

Answer 6

to: sunxl(じ小呆☆`~o) 
上面的程序怎么断开一个名字为"Welcome" 的IE浏览窗口?

Answer 7

AddressOf 不能用在窗体代码中，必须用在标准模块或类模块中…！！！

Answer 8

谢谢各位! 不过我还有一个问题:
  就是如何关闭指定IE的窗体.比如.我知道有一个IE窗体的名字为"你好",我想关闭它该怎么写?

Answer 9

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Sub Command1_Click()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, Text1.Text)
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, &H10, 0&, 0&)
If RetVal = 0 Then
MsgBox "Error posting message."
End If
Else
MsgBox "并未开启" & Text1.Text
End If
End Sub