老大,在VB中使窗体关闭按纽失效的程序是这样的:
Declare Function GetSystemMenu Lib "user32" (ByVal Hwnd As Long, ByVal bRevert As Long) As Long
Declare Function RemoveMenu Lib "user32" (ByVal hmenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const mf_remove = &H1000
Private Const sc_close = &HF060
Public Sub disabled(a, b)
Dim hmenu, hwndmenu As Long
hmenu = GetSystemMenu(a, 0)
RemoveMenu hmenu, sc_close, mf_remove
End Sub
Private Sub UserForm_Initialize() 原来是FORM_LOAD
Dim a As String
Dim b As Integer
a =ME. Hwndb = 0
disabled a, b
End Sub
VBA中的窗体和控件的对象没有句柄(Hwnd)属性. 在程序中使用时总提示没有找到方法或成员 ,在VBA中使用API函数时是怎样解决的?
[em06][em06]
[此贴子已经被作者于2004-10-30 18:11:09编辑过] |