vb点虐 移动窗口 vb代码move方法移动窗口

VB中，当单机一个命令按钮事，使窗体移动到屏幕的左上角，怎样编写代码？

Private Sub Command1_Click()

成都创新互联是一家以重庆网站建设、网页设计、品牌设计、软件运维、营销推广、小程序App开发等移动开发为一体互联网公司。已累计为广告设计等众行业中小客户提供优质的互联网建站和软件开发服务。

Me.Top = 0

Me.Left = 0

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

End Sub

1991年，微软公司推出了 Visual Basic 1.0。当时引起了很大的轰动。这个连接编程语言和用户界面的进步被称为Tripod（有些时候叫做Ruby），最初的设计是由阿兰·库珀（Alan Cooper）完成的。

许多专家把 VB 的出现当做是软件开发史上的一个具有划时代意义的事件。在当时，它是第一个“可视”的编程软件。这使得程序员欣喜之极，都尝试在VB的平台上进行软件创作。

微软也不失时机地在四年内接连推出 2.0、3.0、4.0 三个版本。并且从 VB 3.0 开始，微软将Access的数据库驱动集成到了 VB 中，这使得 VB 的数据库编程能力大大提高。从 VB 4.0 开始，VB 也引入了面向对象的程序设计思想。VB 功能强大，学习简单。而且，VB 还引入了“控件”的概念，使得大量已经编好的 VB 程序可以被我们直接拿来使用。

2002年开始，微软将.NET Framework与 Visual Basic 结合而成为 Visual Basic .NET (vb 点虐 )，重新打造 VB，新增许多特性及语法，又将 VB 推向一个新的高度。最新版本 Visual Basic 2012 也将带来许多令人期待的新功能。

通过几年的发展，它已成为一种专业化的开发语言和环境。用户可用Visual Basic 快速创建Windows程序，并可编写企业水平的客户端/服务器程序及强大的数据库应用程序。

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)) 根据开始位置作出调整 oMoveToPoint Offset(Me oPointClicked X * _ (Me oPointClicked Y + _ SystemInformation CaptionHeight + _ SystemInformation BorderSize Height) * ) 移动窗体 Me Location = oMoveToPoint End If

lishixinzhi/Article/program/ASP/201311/21755

急！！在VB.NET中窗口位置调整问题！！！！

'点击窗口的任何位置拖动窗体

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 怎么让窗口随鼠标动

新建一窗体FORM2,在原窗体FORM1的在mousemove事件中增加FORM2.left=XX,FORM2.TOP=YY.XX,yy是鼠标的坐标.