在VisualBasic中如何拖動窗體或控件？目前windows下的很多應(yīng)用都使用圖形界面，但是在這樣的界面下，Windows原有的標(biāo)題欄是不能用的，否則會影響界面的美觀。那么在沒有標(biāo)題欄的情況下，如

在VisualBasic中如何拖動窗體或控件？

目前windows下的很多應(yīng)用都使用圖形界面，但是在這樣的界面下，Windows原有的標(biāo)題欄是不能用的，否則會影響界面的美觀。那么在沒有標(biāo)題欄的情況下，如何用鼠標(biāo)拖動一個窗體或者其他控件呢？

其實用API函數(shù)調(diào)出很容易。讓 下面以拖拽Form1為例來談?wù)剬崿F(xiàn)方法:

1.創(chuàng)建一個名為test.vbp的新項目；；

2.添加一個名為的模塊，并在聲明部分添加以下代碼:

將函數(shù)ReleaseCapture Lib user32()聲明為Long

聲明函數(shù)SendMessage Lib user 32 Alias SendMessage a(ByVal hwnd為Long，ByVal wMsg為Long，ByVal wParam為Long，lParam為Any)為Long

公共構(gòu)造WM_SYSCOMMAND H112

公共Const SC_MOVE HF012

ReleaseCapture函數(shù)用于釋放鼠標(biāo)捕獲，SendMessage函數(shù)是Windows API中非常重要的一個函數(shù)，用于向Windows發(fā)送移動窗體的消息。WM_SYSCOMMAND是一個向Windows發(fā)送消息的常量。SC_MOVE是一個控制移動表單的常量。請注意，這里SC_MOVE的賦值是HF012，意思是鼠標(biāo)對象。

3.在窗體的MouseDown過程中添加以下代碼:

私有子窗體_MouseDown(按鈕為整數(shù)，Shift為整數(shù)，X為單值，Y為單值)

釋放捕獲

發(fā)送消息Me.hwnd，WM_SYSCOMMAND，SC_MOVE，0

末端接頭

ReleaseCapture函數(shù)用于釋放鼠標(biāo)捕獲，SendMessage函數(shù)用于向Windows發(fā)送移動窗體的消息。

4、保存并運行程序，按下鼠標(biāo)，你會發(fā)現(xiàn)表格會隨著鼠標(biāo)的移動而移動。

以上介紹了在VB中如何用鼠標(biāo)拖動窗體。其實拖動一個控件的原理也是一樣的。例如，下面的代碼可以實現(xiàn)畫圖框。拖曳:

釋放捕獲

SendMessage Picture1.hwnd，WM_SYSCOMMAND，SC_MOV

visualstudio中form是什么窗口？

在Windows窗體中，窗體是向用戶顯示信息的可視表面。如果把可視化程序界面的構(gòu)建看作是繪圖，那么窗體就類似于繪圖用的畫布，任何圖像都可以添加到畫布上。通過在窗體上放置控件并開發(fā)對用戶操作(如鼠標(biāo)單擊或擊鍵)的響應(yīng)來構(gòu)建窗口。