公共声明函数 BringWindowToTop Lib "user32" _ Alias "BringWindowToTop" (ByVal hwnd As Long) As Long答案

【问题标题】：Public Declare Function BringWindowToTop Lib "user32" _ Alias "BringWindowToTop" (ByVal hwnd As Long) As Long公共声明函数 BringWindowToTop Lib "user32" _ Alias "BringWindowToTop" (ByVal hwnd As Long) As Long
【发布时间】：2021-02-07 11:14:44
【问题描述】：

当这段代码：

Public Declare Function BringWindowToTop Lib "user32" _
Alias "BringWindowToTop" (ByVal hwnd As Long) As Long

显示错误：

常量、定长字符串、数组、用户定义类型和 Declare 语句不允许作为对象模块的公共成员

请帮我解决错误

【问题讨论】：

错误信息告诉你。 Declare不能进入表单模块，必须在代码模块中。
代码模块又名通用模块，即不在表单或报告后面。
更多信息stackoverflow.com/questions/46428459/…
除了确保声明在标准代码模块中之外，您确定不需要 API 的 PtrSafe 版本吗？

标签： vba ms-access

【解决方案1】：

在模块（不是表单）中：

#If VBA7 Then
    Public Declare PtrSafe Function BringWindowToTop Lib "user32" _
        (ByVal hwnd As Long) As Long
#Else
    Public Declare Function BringWindowToTop Lib "user32" _
        Alias "BringWindowToTop" (ByVal hwnd As Long) As Long
#End If

【讨论】：