国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 阿克| 崇明县| 普宁市| 左权县| 庐江县| 桑日县| 台湾省| 长岛县| 清苑县| 宕昌县| 余干县| 罗平县| 乌拉特前旗| 饶平县| 南丹县| 秦安县| 吴桥县| 胶州市| 文登市| 隆化县| 运城市| 共和县| 渭源县| 库尔勒市| 三门县| 龙州县| 宁化县| 濮阳县| 当涂县| 马边| 建湖县| 东山县| 台南县| 资源县| 洛宁县| 中宁县| 白水县| 南江县| 浠水县| 阿图什市| 吉木萨尔县|