[已解决]复制的示例为什么不能执行？

爱疯

1. 
   
2. Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, _
   
3.                                                                       ByVal lpCaption As String, _
   
4.                                                                       ByVal wType As Long) As Long
   
5. Private Sub CommandButton1_Click()
   
6.     MessageBox Me.hwnd, "这里是内容", "标题", 0
   
7. End Sub

复制代码

我是从http://club.excelhome.net/thread-585667-1-1.html，2楼。复制来的。
请问为什么不能执行？
谢谢！
工作簿3.rar (9.8 KB, 下载次数: 16)

2011-7-2 12:56 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjdh

2011-7-2 14:00

这样就可以了：

1. Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
   
2. Private Sub CommandButton1_Click()
   
3.     MessageBox hwnd, "这里是内容", "标题", 0
   
4. End Sub

复制代码

跳转到最佳答案楼层

zjdh

这样就可以了：

1. Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
   
2. Private Sub CommandButton1_Click()
   
3.     MessageBox hwnd, "这里是内容", "标题", 0
   
4. End Sub

复制代码

zjdh

修改最后一位参数0～3，可以得到不同效果。

爱疯

zjdh 发表于 2011-7-2 14:00
这样就可以了：

谢谢zjdh！

可以了，学习了！
执行后，为什么hwnd还是空值啊，请问去哪儿能看到帮助呀

zjdh

用这种方式获得返回值：

1. Private Sub CommandButton1_Click()
   
2.     aa = MessageBox(hwnd, "这里是内容", "标题", 2)
   
3. End Sub

复制代码

爱疯

zjdh 发表于 2011-7-2 16:49
用这种方式获得返回值：

谢谢了，我是好奇，为什么hwnd在运行前后都是空值。
我觉得，需要看下帮助，可是不知道怎么查

Zipall

那个帖子里的内容是关于VB6的,不是VBA的
vba的userform没有hwnd属性.

爱疯

谢谢sanbe、zip
新编Windows_API_参考大全.chm (680.59 KB, 下载次数: 11)

2011-7-2 22:01 上传

点击文件名下载附件
Windows API 函数 for Visual Basic .chm (364.41 KB, 下载次数: 12)

2011-7-2 22:01 上传

点击文件名下载附件
VBAPI函数参考手册.chm (975.18 KB, 下载次数: 11)

2011-7-2 22:01 上传

点击文件名下载附件

这都是论坛里下载的，我们如果要查VBA中的api，应该看哪个呀？

sanbe

爱疯 发表于 2011-7-2 22:03
谢谢sanbe、zip

API不分语言，只要是在windows应用都可以使用，只是注意相关参数就可以了，具体哪些参数要看使用哪个API函数

myszcpf

感觉好复杂啊，惭愧啊。