WEB开发网
开发学院软件开发VB 无框窗体移动最简法(程序) 阅读

无框窗体移动最简法(程序)

 2006-02-27 21:13:59 来源:WEB开发网   
核心提示:Dimi,x1AsDouble,y1AsDouble,x2AsDouble,y2AsDoublePRivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)i=1x1=Xy1=YEndSubPrivateSubForm_Mous
Dimi,x1AsDouble,y1AsDouble,x2AsDouble,y2AsDouble
PRivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
i=1
x1=X
y1=Y

EndSub

PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Ifi=1Then
x2=X-x1 form1.lift
y2=Y-y1 form1.top
form1.movex2,y2

EndIf
EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
i=0

EndSub

->

Tags:窗体 移动 简法

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接