level 1
zja24019
楼主
这是一个(屏蔽关闭、最大化、最小化按钮)的程序代码、老师要求我们必须每句都用专业术语解释清楚、快愁死我啦。。。哪位高手帮帮忙啊~~提前谢谢你们了~
'API函数声明
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
ByVal bRevert As Long) As Long
Private 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_COLSE = &HF060
Private Const SC_MAXIMIZE = &HF030
Private Const SC_MINIMIZE = &HF020
Private Sub Form_Load()
' 关闭、最大化、最小化按钮不可用
RemoveMenu GetSystemMenu(main.hWnd, 0), SC_COLSE, MF_REMOVE
RemoveMenu GetSystemMenu(main.hWnd, 0), SC_MAXIMIZE, MF_REMOVE
RemoveMenu GetSystemMenu(main.hWnd, 0), SC_MINIMIZE, MF_REMOVE
End Sub
Private Sub Command2_Click()
End
End Sub
求求你们了~~ !
2009年06月10日 13点06分
1
'API函数声明
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
ByVal bRevert As Long) As Long
Private 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_COLSE = &HF060
Private Const SC_MAXIMIZE = &HF030
Private Const SC_MINIMIZE = &HF020
Private Sub Form_Load()
' 关闭、最大化、最小化按钮不可用
RemoveMenu GetSystemMenu(main.hWnd, 0), SC_COLSE, MF_REMOVE
RemoveMenu GetSystemMenu(main.hWnd, 0), SC_MAXIMIZE, MF_REMOVE
RemoveMenu GetSystemMenu(main.hWnd, 0), SC_MINIMIZE, MF_REMOVE
End Sub
Private Sub Command2_Click()
End
End Sub
求求你们了~~ !