国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

無框窗體移動最簡法（程序）

2019-11-18 17:28:56
字體：大 中 小
供稿：網(wǎng)友
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

->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 耒阳市| 高平市| 炉霍县| 女性| 雅江县| 宿迁市| 盈江县| 改则县| 济阳县| 民丰县| 客服| 游戏| 玛纳斯县| 镇江市| 开平市| 大冶市| 鄢陵县| 金堂县| 即墨市| 盐山县| 新河县| 老河口市| 封丘县| 赤壁市| 厦门市| 河池市| 桂平市| 巢湖市| 广饶县| 芮城县| 南阳市| 岳阳市| 宜昌市| 天长市| 正定县| 梨树县| 平和县| 神木县| 读书| 莆田市| 兴山县|