大虾！！！-------------------------------------------------------!提供一个拖拽form的源码！！用image拽也行，照耀能拽form.

[WangTiger]

谢谢！！！

[unruledboy]

dim Tmpx as integer,Tmpy as integer,

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Tmpx = X
Tmpy = Y
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Move Me.Left + X - Tmpx, Me.Top + Y - Tmpy
End If
End Sub

Private Sub Image_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Tmpx = X
Tmpy = Y
End If
End Sub

Private Sub Image_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Move Me.Left + X - Tmpx, Me.Top + Y - Tmpy
End If
End Sub


caotang.myetang.com/ultrasoft/index.html
ultrasoft.go.163.com

Ultra Email Expert 电子邮件专家主要功能包括[收集]文件中的邮件、[生成]电子邮件和[群发]电子邮件。

功能全面强大的Ultra HTML Designer 网页设计师

与

对文件拥有全部操作功能的文件精灵。

Ultra File Wizard 文件精灵是一个集批量文件查找、文件名修改、文件内容查找、文件内容修改、文件分割与合并、文件格式转换、文件加密、文件修复与拯救（包括一般文本、图像以及二进制格式文件）等多功能的文件操作软件。