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 以當前鼠標位置為基礎(chǔ) 找出目標位置 oMoveToPoint = Me PointToScreen(New Point(e X e Y)) 根據(jù)開始位置作出調(diào)整 oMoveToPoint Offset(Me oPointClicked X * _ (Me oPointClicked Y + _ SystemInformation CaptionHeight + _ SystemInformation BorderSize Height) * ) 移動窗體 Me Location = oMoveToPoint End If

我們提供的服務(wù)有：成都網(wǎng)站建設(shè)、做網(wǎng)站、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認證、柞水ssl等。為上千余家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學管理、有技術(shù)的柞水網(wǎng)站制作公司

lishixinzhi/Article/program/ASP/201311/21755

急??！在VB.NET中窗口位置調(diào)整問題?。。?！

'點擊窗口的任何位置拖動窗體

Dim ctX As Single, ctY As Single

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

ctX = X: ctY = Y

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

Me.Left = Me.Left + X - ctX

Me.Top = Me.Top + Y - ctY

End If

End Sub

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

Private Sub Command1_Click()

Me.Top = 0

Me.Left = 0

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

End Sub

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

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

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

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

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