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

新客网 XKER.COM 2007-02-01 来源： 收藏本文

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.net2005编写个人信息管理程序
• ·VB.net 和C# 字符串连接的小区别
• ·面向Visual Basic开发人员的ASP.NET 2.0简介
• ·VB.NET 拖动无边框窗体编程实例
• ·利用VB设计打印复杂报表
• ·Visual Basic 界面设计大观
• ·创建ActiveX接口移植Excel工作表
• ·使用VB实现Excel自动获取外部数据
• ·Excel中的“宏”的应用
• ·用VB创建复杂表格
• ·用EXCEL组件简化VB编程
• ·怎样在VB中控制Word?
• ·VB 中调用 Word 拼写检查
• ·用VB6.0设计简易赛车游戏
• ·VB6.0初学者的十个编程小技巧
• ·调用API函数设计ABOUT窗口