双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

VB6中如何实现鼠标双击标题栏什么也不作？谢谢！

2002-04-24 03:49:12 181 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

blueer 墨衍会员 · AI 创作全网分发关注 + 加入社区

VB运行后去除窗体标题栏且可改变窗口大小及移动窗体 '新建一个标准模块，放入以下代码： Option Explicit Private Declare Function GetActiveWindow Lib “user32” () As Long '获取窗体焦点 Private Declare Function GetWindowLong Lib “user32” Alias “GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Functio 阅读详情

如上

...全文

水下井口装置及钻杆建模内容：海上油气资源开采的过程中，通常会由海上钻井平台下入钻杆连接到海底井口装置。OrcaFlex软件可进行各种海洋工程结构动态分析，通过各项数据的输入，能够很方便地进行水下井口装置及钻杆建模。直接使用软件New Line及new vessel功能，再设置模型的各项参数（几何属性、弯曲刚度、轴线刚度、扭转刚度、泊松比等）即可建成井口装置及钻杆模型。设置管线的几何属性：主要包括管线的内外径、壁厚、... 阅读详情

blueer

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

jyu1221 2002-04-25

打赏
举报

''---------------------以下代码必须放在模块中---------------------
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const GWL_WNDPROC = (-4)
Private Const WM_NCLBUTTONDBLCLK = &HA3

Private m_lpPrevWndProc As Long

Public g_hWnd As Long

Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If uMsg <> WM_NCLBUTTONDBLCLK Then
WindowProc = CallWindowProc(m_lpPrevWndProc, hwnd, uMsg, wParam, lParam)
End If
End Function

Public Function Hook() As Boolean
Hook = True
If g_hWnd = 0 Then
Hook = False
Exit Function
End If
m_lpPrevWndProc = SetWindowLong(g_hWnd, GWL_WNDPROC, AddressOf WindowProc)
End Function

Public Function UnHook() As Boolean
Call SetWindowLong(g_hWnd, GWL_WNDPROC, m_lpPrevWndProc)
End Function

'----------模块代码结束------------------------------

'使用方法
'1.设置g_hWnd变量为需要的窗口句柄
'如：g_hWnd = Me.hwnd
'2.调用函数Hook就可以实现你需要的功能，调用函数UnHook就可以去掉该功能

'-------------此代码在VB6。0的调试状态，NATIVE CODE状态，P-CODE状态-都可以运行-------测试通过！！！--------

printer 2002-04-25

打赏
举报

同意sonicdater(发呆呆)的说法.
警告:注意危险性,如果重载窗口函数,很容易让你的程序死掉,记着设置为自动存盘.

tnt_tnt 2002-04-25

打赏
举报

可以把这个窗口的句柄屏蔽了
这样就从根本上解决了问题！

blueer 2002-04-25

打赏
举报

To 288794:
请继续指点菜鸟Blueer,谢谢

288794 2002-04-25

打赏
举报

拦截“WM_NCLBUTTONDBLCLK”消息！！！
根据 wparam 和 lparam 来判断点击的项目。

blueer 2002-04-25

打赏
举报

To 发呆呆&打印机：
能否详细一些？谢谢

wqb 2002-04-25

打赏
举报

fadestarfish 2002-04-25

打赏
举报

把最大化按钮设成不可用就行了吧！

zyl910 2002-04-25

打赏
举报

拦截“WM_NCLBUTTONDBLCLK”消息！！！

tg123 2002-04-25

打赏
举报

这个不可能
因为鼠标双击标题栏和最大化，最小化按钮
产生的是同一条消息

daryl715 2002-04-24

打赏
举报

可以隐藏标题栏

sonicdater 2002-04-24

打赏
举报

用 Subclass , 拦截鼠标的 WM_LBUTTONDOWN,WM_LBUTTONUP 之类的消息.

blueer 2002-04-24

打赏
举报

blueer 2002-04-24

打赏
举报

to 阿甘：
我想允许通过最大化，最小化按钮或拖动钮调整窗口大小，但不响应标题栏的双击。ActiveSkin控件破解后存在双击标题栏非法操作的问题，如有好用的ActiveSkin破解版亦可，谢谢！

gump2000 2002-04-24

打赏
举报

设计时候boardstyle=1就可以了啊。

blueer 2002-04-24

打赏
举报

大家来讨论讨论

✦双11狂欢大促✦

VB6中如何实现 鼠标双击标题栏什么也不作？谢谢！

相关推荐

双11狂欢大促

VB6中如何实现鼠标双击标题栏什么也不作？谢谢！