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

首頁 > 學院 > 開發設計 > 正文

實現窗體內部的左右移動

2019-11-18 17:26:57

字體：大中小

來源：轉載

供稿：網友

'分割區的寬度
IfWindowState=vbMinimizedThenExitSub
NewWidth=(ScaleWidth-SPLITTERWIDTH)*Percent
Picleft.Move0,0,NewWidth,ScaleHeight
Picright.MoveNewWidth SPLITTERWIDTH,0,ScaleWidth-NewWidth-SPLITTERWIDTH,ScaleHeight
EndSub

PrivateSubForm_Load()
'PicLeft和PicRight的MousePointer=1
Percent=0.5
EndSub

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
DragFlag=True
EndSub

PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
'定義鼠標為vbSizeWE型
MousePointer=vbSizeWE
Percent=X/ScaleWidth
RedrawMe
EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
DragFlag=False
MousePointer=0'此行語句實際沒有起作用
EndSub->

上一篇：封面的設計

下一篇：用VB5.0設計能適應各種顯示屬性下的界面

學習交流

索泰發布一款GTX 1070 Mini迷你版本:小機

索泰發布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注

新聞熱點

榮耀總裁趙明烏鎮演講：榮耀首款5G手機V30下月發布

2019-10-23 09:17:05

搜狐張朝陽：回歸媒體是搜狐重新崛起的關鍵

2019-10-21 09:20:02

華為輪值董事長郭平：虛擬技術創造現實價值

2019-10-21 09:00:12

滴滴英文服務上線兩周年用戶已超200萬

2019-09-26 08:57:12

華為推出全球至快AI訓練集群Atlas900

2019-09-25 08:46:36

馬斯克：特斯拉正組建中國技術團隊

2019-09-25 08:15:43

疑難解答

圖片精選

網友關注

主站蜘蛛池模板：沂南县| 哈巴河县| 景宁| 博野县| 扎囊县| 枞阳县| 环江| 吉首市| 科技| 兴安盟| 衢州市| 淳化县| 台东市| 印江| 同心县| 九江市| 建瓯市| 承德市| 榕江县| 博乐市| 泰州市| 太保市| 固安县| 马边| 高安市| 稷山县| 句容市| 阿城市| 青阳县| 茌平县| 弥勒县| 城步| 江津市| 凌海市| 曲周县| 綦江县| 大悟县| 高要市| 天等县| 麻栗坡县| 金堂县|