锐客网

  1. 首页 > 睿知 > it技术 > >

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

IT技术窗体

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窗体移动的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：wordpress阿里百秀，阿里百秀项目实战

下一篇：治愈游戏恋爱养成，治愈系恋爱游戏