Access软件作品(无源码)
窗体上移动控件
2006-07-27 12:06:33
文件类型 :
文件版本 :
简要说明 :
刚刚看到有发表再创提上移动控件的贴子，看了看，就是觉得代码长。不过功能到挺全面，支持键盘移动！
本人收藏了一个范例，虽然只支持鼠标拖动，但是代码少少，有兴趣不妨看看
示例源码：
Private Sub 图像1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then If 图像1.Left - cX + X > 0 Then 图像1.Left = 图像1.Left - cX + X End If If 图像1.Top - cY + Y > 0 And 图像1.Top - cY + Y + 图像1.Height < 主体.Height Then 图像1.Top = 图像1.Top - cY + Y End If End If 标签2.Caption = "Left：" & 图像1.Left - cX + X 标签3.Caption = "Top：" & 图像1.Top - cY + YEnd Sub