去掉窗体的关闭按钮

葵花子的壳

2016-02-19 18:26

想要天天向上，就要懂得享受学习。图老师为大家推荐去掉窗体的关闭按钮，精彩的内容需要你们用心的阅读。还在等什么快点来看看吧！

PrivateDeclareFunctionGetSystemMenuLib"User32"(ByValhwndAsLong,ByValbRevertAsLong)AsLong
　　PrivateDeclareFunctionRemoveMenuLib"User32"(ByValhMenuAsLong,ByValnPositionAsLong,ByValwFlagsAsLong)AsLong
　　PrivateDeclareFunctionDrawMenuBarLib"User32"(ByValhwndAsLong)AsLong
　　PrivateDeclareFunctionGetMenuItemCountLib"User32"(ByValhMenuAsLong)AsLong
　　PrivateConstMF_BYPOSITION=&H400&
　　PrivateConstMF_DISABLED=&H2&
　　
　　PrivateSubForm_Load()
　　CallDisableX(Me)
　　EndSub
　　
　　PrivateSubDisableX(FrmAsForm)
　　DimhMenuAsLong,nCountAsLong
　　hMenu=GetSystemMenu(Frm.hwnd,0)
　　nCount=GetMenuItemCount(hMenu)
　　CallRemoveMenu(hMenu,nCount-1,MF_DISABLEDOrMF_BYPOSITION)
　　DrawMenuBarFrm.hwnd
　　EndSub->

展开更多（50%）