学习 探索 求生

—— 角色不明,责任不清,行为就会失去了参照目标

vb窗体让关闭按钮无效

  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_BYPOSITION   =   &H400&  
  Private   Const   MF_REMOVE   =   &H1000&  
  Private   Const   SC_CLOSE   =   &HF060&  
   
  Private   Sub   Form_Load()  
          RemoveMenu   GetSystemMenu(Me.hwnd,   0),   SC_CLOSE,   MF_REMOVE  
  End   Sub 
阅读更多
文章标签: vb function user
个人分类: 工作、项目
上一篇针对vb中scriptcontrol 数组调用另类解决思路
下一篇柏林噪声 perlin noise
想对作者说点什么? 我来说一句

免费的vpn小白兔软件

2011年06月08日 978KB 下载

没有更多推荐了,返回首页

关闭
关闭