VB中，當(dāng)單機(jī)一個(gè)命令按鈕事，使窗體移動(dòng)到屏幕的左上角，怎樣編寫代碼？

Private Sub Command1_Click()

成都創(chuàng)新互聯(lián)是一家以重慶網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)、品牌設(shè)計(jì)、軟件運(yùn)維、營(yíng)銷推廣、小程序App開(kāi)發(fā)等移動(dòng)開(kāi)發(fā)為一體互聯(lián)網(wǎng)公司。已累計(jì)為廣告設(shè)計(jì)等眾行業(yè)中小客戶提供優(yōu)質(zhì)的互聯(lián)網(wǎng)建站和軟件開(kāi)發(fā)服務(wù)。

Me.Top = 0

Me.Left = 0

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

End Sub

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

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

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

2002年開(kāi)始，微軟將.NET Framework與 Visual Basic 結(jié)合而成為 Visual Basic .NET (vb 點(diǎn)虐 )，重新打造 VB，新增許多特性及語(yǔ)法，又將 VB 推向一個(gè)新的高度。最新版本 Visual Basic 2012 也將帶來(lái)許多令人期待的新功能。

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

VB.NET 拖動(dòng)無(wú)邊框窗體編程實(shí)例

Imports System Drawing Imports System Windows Forms ****************************************** Private oOriginalRegion As Region = Nothing 用于窗體移動(dòng) 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 以當(dāng)前鼠標(biāo)位置為基礎(chǔ) 找出目標(biāo)位置 oMoveToPoint = Me PointToScreen(New Point(e X e Y)) 根據(jù)開(kāi)始位置作出調(diào)整 oMoveToPoint Offset(Me oPointClicked X * _ (Me oPointClicked Y + _ SystemInformation CaptionHeight + _ SystemInformation BorderSize Height) * ) 移動(dòng)窗體 Me Location = oMoveToPoint End If

lishixinzhi/Article/program/ASP/201311/21755

急??！在VB.NET中窗口位置調(diào)整問(wèn)題！！?。?/h2>

'點(diǎn)擊窗口的任何位置拖動(dòng)窗體

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.Net 怎么讓窗口隨鼠標(biāo)動(dòng)

新建一窗體FORM2,在原窗體FORM1的在mousemove事件中增加FORM2.left=XX,FORM2.TOP=YY.XX,yy是鼠標(biāo)的坐標(biāo).