VB语言

本类阅读TOP10

·Visual Basic 安装程序的制作!!
·VB中使用EXCEL输出
·一个简单的MP3播放器
·VB程序实现WindowsXP效果的界面!!
·VB打造超酷个性化菜单(六)
·透明位图
·平铺与拉伸MDI窗口的背景图 ~!~
·对《VB程序实现WindowsXP效果的界面》一文的补遗
·从Windows资源管理器中拖动文件
·VB打造超酷个性化菜单(一)

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
让窗体的标题栏不相应鼠标双击

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

还等什么,让我们现在开始。

1。新建一个VB6的标准EXE工程,然后添加一个模块,将下列代码加入新的模块中:

Option Explicit
                   
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
       
Const GWL_WNDPROC = (-4&)

Dim PrevWndProc&

Const WM_NCLBUTTONDBLCLK = &HA3
 
Public Sub Init(hWnd As Long)
  PrevWndProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf SubWndProc)
End Sub

Public Sub Terminate(hWnd As Long)
  Call SetWindowLong(hWnd, GWL_WNDPROC, PrevWndProc)
End Sub

Private Function SubWndProc(ByVal hWnd As Long, ByVal Msg As Long, _
                            ByVal wParam As Long, ByVal lParam As Long) _
                            As Long
 
  If Msg = WM_NCLBUTTONDBLCLK Then
     Exit Function
  End If
 
  SubWndProc = CallWindowProc(PrevWndProc, hWnd, Msg, wParam, lParam)
End Function

2。在窗体的Load事件中加入一下代码:

Private Sub Form_Load()
Call Init(Me.hWnd)
End Sub

3。最后在窗体的Unload事件中加入:

Private Sub Form_Unload(Cancel As Integer)
Call Terminate(Me.hWnd)
End Sub

好啦,可以运行我们创建的这个工程了,现在双击窗体的标题栏是不是和以前不一样啊!

:)

以上程序在Win2000中文版、VB6下编译运行通过
                    

 




相关文章

相关软件