subclass窗体,吃掉wm_move消息。
google sendwindowlong wndproc wm_move byval as long addressof
google sendwindowlong wndproc wm_move byval as long addressof
解决方案 »
- 在用Quit退出Excel时,弹出“剪贴板还存留大量信息,时候保留”的对话框,有没有办法不让它显示?
- 大量高频率数据传送收发确认机制的几个问题
- VB EXCEL 访问 速度 检索 二分法
- 大哥们救命啊 小弟在线等 如何使画的棋盘遇到的问题
- rdo的问题
- 如何合并单元格及调整单元格中的内容!及将报表输出到WORD中!
- 请教高手关于打印的问题!!!
- 这样的SQL语句如何写(急在线等待)
- 国人自己的可视化图形编程语言!共享发布!!含源码!!!!!!!
- 如何定位光标于OICQ聊天室中的最下面的发话框中?
- VB如何实现将text指定内容载入到ListView中
- 关于为线程创建消息队列的问题 求大神 易语言代码
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, Optional ByVal wFlags As Long = 0&) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As LongFunction SetWindowMoveAble(ByVal hWnd As Long, Optional ByVal MoveAble As Boolean =True) As Boolean'function: SetWindowMoveAble
' params:
' hWnd: 一个顶级窗口句柄
' MoveAble: 是否可移动
' result: 与参数 Moveable 的设置一样,否则即为失败Dim mhandle As Long
If MoveAble Then _
GetSystemMenu hWnd, 1&: _
DrawMenuBar hWnd _
Else _
mhandle = GetSystemMenu(hWnd, 0&): _
SetWindowMoveAble = DeleteMenu(mhandle, &HF010&)End Function
或者子类化窗口, 吃掉 wm_ncmosemove