[求助]：关于API函数

dys800113

网上找了个API的例子，但是在VB6+XP HOME版的基础上运行均不通过？不知为何，特请教高手！

http://www.hongen.com.cn/pc/program/apitutor/api0015/api01.htm

http://www.hongen.com.cn/pc/program/apitutor/api0014/api01.htm

[B]注意，网页里面均有源程序供下载！[/B] [/COLOR]

efan2000

当中出现了什么问题，可能是有些控件没有创建。

dys800113

都创建了，而且是网页上也提供了原程序的下载，我自己也写了一份！

efan2000

第一个代码，在VBA下的，插入一个UserForm，添加一个CommandButton。

2. 
   
3.   [FONT=courier new]
   
4. Private Declare Function GetActiveWindow Lib "user32" () As Long
   
5. Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
   
6. Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
   
7. 
   
8. Private Sub CommandButton1_Click()
   
9.     Unload Me
   
10. End Sub
    
11. 
    
12. Private Sub UserForm_Activate()
    
13.     Dim hMenu As Long
    
14.     hMenu = GetSystemMenu(GetActiveWindow, 0)
    
15.     RemoveMenu hMenu, &HF060, R
    
16. End Sub
    
17.   [/FONT]
    

<br />   [FONT=courier new]<br /> Private Declare Function GetActiveWindow Lib "user32" () As Long<br /> Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long<br /> Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long<br /> <br /> Private Sub CommandButton1_Click()<br />     Unload Me<br /> End Sub<br /> <br /> Private Sub UserForm_Activate()<br />     Dim hMenu As Long<br />     hMenu = GetSystemMenu(GetActiveWindow, 0)<br />     RemoveMenu hMenu, &HF060, R<br /> End Sub<br />   [/FONT]<br />