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

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

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

2019-11-18 17:33:53
字體：大 中 小
來源：轉載
供稿：網友
這是一個很奇特的功能，首先要讓Form變透明，接著，放一張背景透明的.gif圖進來，如此，這變成一個透明的form，上面有許多Button，且圖不會是一個方形，而會讓圖的背景透通。但有一點要注意，這種透明的Form不可以移動，否則一移就會發現它似乎不是透明的，這個很不好解釋，建議您一開始設定Form的BorderStyle=2大小可變可移動，而去移動與更動小大，便可以知道。因此，在設計階段時，一定要設BorderStyle=0沒有框線，這樣子您的Form才不會有問題。
首先我使用以下的程式碼令Form變透明

注:有適當的軟體(如MSPhotEditor)可以將圖變成背景透通(引用老怪之言)

Me.AutoRedraw=True
hBitmap=CreateCompatibleBitmap(Me.hdc,0,0)
SelectObjectMe.hdc,hBitmap
Me.Refresh
而透明的圖形呢，那需要那一種背景透通性的.GIF檔，在Form上放一個ImageControl，將
圖放到ImageControl，那就OK了注釋：需一個ImageControl,一個Command1
OptionExplicit
hBitmap=CreateCompatibleBitmap(Me.hdc,0,0)
SelectObjectMe.hdc,hBitmap
Me.Refresh
EndSub

PrivateSubForm_Unload(CancelAsInteger)
DeleteObjecthBitmap
EndSub->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 泸水县| 怀化市| 习水县| 岗巴县| 钟祥市| 农安县| 基隆市| 保靖县| 阳曲县| 肥城市| 南涧| 迁安市| 乌海市| 探索| 临洮县| 丰台区| 吉木萨尔县| 贵溪市| 建湖县| 共和县| 诸城市| 商洛市| 五常市| 诏安县| 利津县| 五家渠市| 天门市| 博客| 乌鲁木齐县| 虎林市| 北票市| 南昌县| 涿鹿县| 哈尔滨市| 太原市| 沙坪坝区| 兴和县| 建湖县| 安达市| 含山县| 富顺县|