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

<i id="sgt8x"><ins id="sgt8x"></ins></i>

<track id="sgt8x"><dl id="sgt8x"><delect id="sgt8x"></delect></dl></track>

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

制造出透明的窗體(Form)

2019-11-18 17:33:57

字體：大中小

來源：轉載

供稿：網友

注釋：form上有Command1,command2兩個Button并事先設定form之BorderStyle=0

OptionExplicit
ConstGWL_EXSTYLE=(-20)
ConstWS_EX_TRANSPARENT=&H20&
PrivatePreValueAsLong

PrivateSubCommand2_Click()注釋：還原變成不透明
CallSetWindowLong(Me.hwnd,GWL_EXSTYLE,PreValue)
Me.Hide
Me.Show
EndSub

PrivateSubForm_Load()
DimiAsLong

i=GetWindowLong(Me.hwnd,GWL_EXSTYLE)
注釋：變成透明的Form
PreValue=SetWindowLong(Me.hwnd,GWL_EXSTYLE,iOrWS_EX_TRANSPARENT)
Me.Show
DoEvents
Command1.Refresh注釋：令Command1可見
Command2.Refresh注釋：令Command2可見
EndSub->

上一篇：透明的窗體(From)上顯示背景透通圖

下一篇：操作VB中的無邊框窗體

學習交流

索泰發布一款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

疑難解答

圖片精選

網友關注

主站蜘蛛池模板：常熟市| 会理县| 阿荣旗| 西乌珠穆沁旗| 都匀市| 金沙县| 永顺县| 辽中县| 满城县| 渑池县| 楚雄市| 历史| 霍林郭勒市| 英德市| 田林县| 荥经县| 喀喇| 台江县| 霍州市| 卓尼县| 合肥市| 太保市| 永寿县| 津市市| 邯郸县| 遂宁市| 长子县| 波密县| 特克斯县| 永州市| 墨玉县| 沈阳市| 绥德县| 蒲江县| 茂名市| 安达市| 宁强县| 青川县| 越西县| 华宁县| 宁强县|

<rp id="knel9"></rp>