vb.net移动窗体 vb窗体移动

VB.net怎样按住鼠标移动无边框窗体当用户按下左键时,为按下对象的MouseMove事件绑定处理方法,并记录鼠标坐标(窗体左上角为原点,在事件的MouseEventArgs类型的e参数中提供) 。此时用户移动鼠标,保持窗体原点与鼠标新坐标的相对位置不变 。当用户释放左键时,撤销按下对象的MouseMove事件处理方法
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 的出现当做是软件开发史上的一个具有划时代意义的事件 。在当时,它是第一个“可视”的编程软件 。这使得程序员欣喜之极,都尝试在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 .net),重新打造 VB , 新增许多特性及语法,又将 VB 推向一个新的高度 。最新版本 Visual Basic 2012 也将带来许多令人期待的新功能 。
通过几年的发展,它已成为一种专业化的开发语言和环境 。用户可用Visual Basic 快速创建Windows程序 , 并可编写企业水平的客户端/服务器程序及强大的数据库应用程序 。
vb.net窗体的移动问题Public X, Y As Integer
Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
X = e.X : Y = e.Y
End Sub
Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If X = e.X And Y = e.Y Then Exit Sub
If e.Button = Windows.Forms.MouseButtons.Left Then
Me.Left = Me.Left + e.X - X
Me.Top = Me.Top + e.Y - Y
End If
End Sub
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移动窗体 vb窗体移动】关于vb.net移动窗体和vb窗体移动的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。

推荐阅读