VB.NET 拖動無邊框窗體編程實例

Imports System Drawing Imports System Windows Forms ****************************************** Private oOriginalRegion As Region = Nothing 用于窗體移動 Private bFormDragging As Boolean = False Private oPointClicked As Point ****************************************** Private Sub Form _MouseDown(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseDown Me bFormDragging = True Me oPointClicked = New Point(e X e Y) End Sub ****************************************** Private Sub Form _MouseUp(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseUp Me bFormDragging = False End Sub ****************************************** Private Sub Form _MouseMove(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseMove If Me bFormDragging Then Dim oMoveToPoint As Point 以當前鼠標位置為基礎 找出目標位置 oMoveToPoint = Me PointToScreen(New Point(e X e Y)) 根據(jù)開始位置作出調整 oMoveToPoint Offset(Me oPointClicked X * _ (Me oPointClicked Y + _ SystemInformation CaptionHeight + _ SystemInformation BorderSize Height) * ) 移動窗體 Me Location = oMoveToPoint End If

站在用戶的角度思考問題，與客戶深入溝通，找到麻栗坡網(wǎng)站設計與麻栗坡網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗，讓設計與互聯(lián)網(wǎng)技術結合，創(chuàng)造個性化、用戶體驗好的作品，建站類型包括：成都網(wǎng)站建設、成都做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、域名與空間、網(wǎng)站空間、企業(yè)郵箱。業(yè)務覆蓋麻栗坡地區(qū)。

lishixinzhi/Article/program/ASP/201311/21755

VB中，當單機一個命令按鈕事，使窗體移動到屏幕的左上角，怎樣編寫代碼？

Private Sub Command1_Click()

Me.Top = 0

Me.Left = 0

'Me 表示本窗體，如果是其他窗體可以替換，如Form2.top=0

End Sub

1991年，微軟公司推出了 Visual Basic 1.0。當時引起了很大的轟動。這個連接編程語言和用戶界面的進步被稱為Tripod（有些時候叫做Ruby），最初的設計是由阿蘭·庫珀（Alan Cooper）完成的。

許多專家把 VB 的出現(xiàn)當做是軟件開發(fā)史上的一個具有劃時代意義的事件。在當時，它是第一個“可視”的編程軟件。這使得程序員欣喜之極，都嘗試在VB的平臺上進行軟件創(chuàng)作。

微軟也不失時機地在四年內接連推出 2.0、3.0、4.0 三個版本。并且從 VB 3.0 開始，微軟將Access的數(shù)據(jù)庫驅動集成到了 VB 中，這使得 VB 的數(shù)據(jù)庫編程能力大大提高。從 VB 4.0 開始，VB 也引入了面向對象的程序設計思想。VB 功能強大，學習簡單。而且，VB 還引入了“控件”的概念，使得大量已經(jīng)編好的 VB 程序可以被我們直接拿來使用。

2002年開始，微軟將.NET Framework與 Visual Basic 結合而成為 Visual Basic .NET (vb .net)，重新打造 VB，新增許多特性及語法，又將 VB 推向一個新的高度。最新版本 Visual Basic 2012 也將帶來許多令人期待的新功能。

通過幾年的發(fā)展，它已成為一種專業(yè)化的開發(fā)語言和環(huán)境。用戶可用Visual Basic 快速創(chuàng)建Windows程序，并可編寫企業(yè)水平的客戶端/服務器程序及強大的數(shù)據(jù)庫應用程序。

VB.net怎樣按住鼠標移動無邊框窗體

當用戶按下左鍵時，為按下對象的MouseMove事件綁定處理方法，并記錄鼠標坐標（窗體左上角為原點，在事件的MouseEventArgs類型的e參數(shù)中提供）。此時用戶移動鼠標，保持窗體原點與鼠標新坐標的相對位置不變。當用戶釋放左鍵時，撤銷按下對象的MouseMove事件處理方法