无框窗体移动最简法（程序）

热门软件: QQ 瑞星 pplive e话通木马克星千千静听 office2000 五笔字根 Photoshop 视频分割

返回文章教程首页 >> 文章首页 >> 编程技术 >> VB & VB.NET教程 >> 无框窗体移动最简法（程序）

无框窗体移动最简法（程序）

添加时间: 2006-2-16 5:37:59 作者: VB教程阅读次数:53 来源: http://www.d9soft.com

Dim i, x1 As Double, y1 As Double, x2 As Double, y2 As Double
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = 1
x1 = X
y1 = Y

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If i = 1 Then
x2 = X - x1+form1.lift
y2 = Y - y1+form1.top
form1.move x2,y2

End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = 0

End Sub

上下文章:

上一篇文章: VB中资源文件的具体使用方法下一篇文章: 如何获得计算机的机器名

相关文章:

相关软件:

字母检索 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 回到顶部