| 本月文章推荐 |
去掉窗体的关闭按钮发表日期：2006-2-27
|
|
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-> |
| 上一篇：椭圆形的窗体
人气:4395 下一篇：VB调用API函数使窗口保持在最上层 人气:3423 |
| 浏览全部Visual Basic的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
