我们一般是用鼠标按住窗口的标题栏,然后移动窗口,当窗口没有标题栏时,我们可以用下面的方法来移动窗口: 在 BAS 文件中声明:Declare Function ReleaseCapture Lib "user32" () As LongDeclare Function SendMessage Lib "user32" _Alias "SendMessageA" ( _ByVal hwnd As Long, ByVal wMsg As Long, _ByVal wParam As Long, lParam As Any) As LongPublic Const HTCAPTION = 2Public Const WM_NCLBUTTONDOWN = &HA1 然后,在 Form_MouseDown 事件中:Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)ReleaseCaptureSendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&End Sub
拖动无系统标准标题栏的窗口
在VB6.0中可以通过设置Form的属性,制作无系统标题栏的窗口。可是,由于失去了系统标题栏,如何使用鼠标拖动窗口便成了一个棘手的问题。其实,借助API函数ReleaseCapture和SendMessage,这个问题便可迎刃而解了。 首先,在module文件中加入下列声明语句: Declare Sub ReleaseCapture Lib"User"() Declare Function SendMessage Lib"User"(ByVal hWnd _As Integer,ByVal wMsg As Integer,ByVal wParam As Integer,_lParam As Any)As Long Public Const WM_SYSCOMMAND=&H112 Public Const SC_MOVE=&HF010 Public Const HTCAPTION=2 然后,在Form的MouseDown事件中加入下列代码: ReleaseCapture Ret&=SendMessage(Me.hWnd,WM_SYSCOMMAND,_SC_MOVE+HTCAPTION,0) …… 程序运行后,只要当光标落在Form区域时按住鼠标左键,便可以拖动窗口了。在一些要求生动活泼的界面的程序设计中,开发者常常希望自制风格独特的标题栏,以满足整个界面的要求。通过这个方法,就可以使自制的标题栏达到乱真的地步。不过,用作自制标题栏的控件,必须具有MouseDown事件以摆放上述代码。
在VB6.0中如何拖动窗体或控件
许多Windows下的应用程序,都采用了图形化的界面,这样做的好处是可以使程序界面更漂亮生动,更具吸引力。但是在这样的界面下就不能使用Windows原来的标题条了,否则将会影响界面的美观性。那么在没有标题条的情况下,如何用鼠标拖动窗体呢?或者拖动其它的控件呢?其实,采用API函数调用很容易实现,下面我们以拖动窗体(Form1)为例来具体讲一下实现方法:1.新建立一个项目,名称为:test.vbp.2. 填加一个模块,名称为:test.bas,并且在声明部分加入以下代码:Declare Function ReleaseCapture Lib "user32" () As LongDeclare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPublic Const WM_SYSCOMMAND = &H112Public Const SC_MOVE = &HF012其中ReleaseCapture函数是用来释放鼠标捕获的,SendMessage函数是一个在WindowsAPI中非常重要的函数,在这里的作用是用来向Windows发送移动窗体的消息。WM_SYSCOMMAND是向Windows发送消息的常量。SC_MOVE是控制移动窗体的常量。请注意:这里SC_MOVE的赋值一定要是&HF012,它表示鼠标对象。3.在窗体的MouseDown过程中加入以下代码:ReleaseCaptureSendMessage Form1.hwnd, WM_SYS