7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
yunxp 2003-02-25
- 打赏
- 举报
恩!问题解决了!.
northwolves(野性的呼唤) 给你结帐.再次感谢你!
northwolves(野性的呼唤) 给你结帐.再次感谢你!
northwolves 2003-02-25
- 打赏
- 举报
若不需要最大最小化按钮，可在属性中设置：
BorderStyle = 3
ControlBox = False
BorderStyle = 3
ControlBox = False
yunxp 2003-02-25
- 打赏
- 举报
恩!ThankS 上边的2位朋友.我试试看~
northwolves 2003-02-25
- 打赏
- 举报
呵呵，我以前收藏的：
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 Declare Function DrawMenuBar Lib "User32" (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Const MF_DISABLED = &H2&
Private Sub Form_Load()
Call DisableX(Me)
End Sub
Private Sub DisableX(Frm As Form)
Dim hMenu As Long, nCount As Long
hMenu = GetSystemMenu(Frm.hwnd, 0)
nCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
DrawMenuBar Frm.hwnd
End Sub
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 Declare Function DrawMenuBar Lib "User32" (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Const MF_DISABLED = &H2&
Private Sub Form_Load()
Call DisableX(Me)
End Sub
Private Sub DisableX(Frm As Form)
Dim hMenu As Long, nCount As Long
hMenu = GetSystemMenu(Frm.hwnd, 0)
nCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
DrawMenuBar Frm.hwnd
End Sub
佛的光辉 2003-02-25
- 打赏
- 举报
不用api没办法
yunxp 2003-02-25
- 打赏
- 举报
帖子快沉了.55555555.拜托啊~:)
