移动无标题窗口（Form）/拖动框架（Frame）最佳代码代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】移动无标题窗口（Form）/拖动框架（Frame）最佳代码

作者:Dezai.CN / 发布于2013/6/18/ 914


	'移动窗体声明
	Dim TF As Boolean
	Dim MX As Integer
	Dim MY As Integer

	Private Sub form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
	'移动窗体MouseDown事件
	TF = True
	MX = x
	MY = Y
	End Sub

	Private Sub form_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
	'移动窗体MouseUp事件
	TF = False
	End Sub

	Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
	'移动窗体MouseMove事件
	If TF = True And Button = 1 Then
	Me.Move Me.Left - MX + x, Me.Top - MY + Y
	End If
	End Sub

	-------------------------------------------------------

	说明：
	不用API就是好用啊！
	大家可以变通着用~很好很强大！

	Form可以使用其它控件代替，比如label，也就是点住标签可以移动窗口；再比如移动Frame，可以实现框架在本窗口内移动：

	'点住label1移动frame1
	声明
	label1_MouseUp
	label1_MouseDown
	都一样
	Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
	'移动框架MouseMove事件
	If TF = True And Button = 1 Then
	Frame1.Move Frame1.Left - MX + x, Frame1.Top - MY + Y
	End If
	End Sub

	------------------------------------------------------

试试其它关键字

　移动无标题窗口　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)