Question

vb为什么总提示，编译错误：用户定义类型以及declare语句不允许作为对象模块的public成员

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Load()
Dim dd As Long
dd = FindWindow(vbNullString, "记事本")
If dd = 0 Then
Label1.Caption = "123"
Else
Label1.Caption = "456"
End If

End Sub
哪地方错了

Answer 1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
把public改为private

Answer 2

添加模块 比如main.bas
API 函数放在模块main.bas中，这样做法更好！！
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long