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

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

奇形怪狀的窗體

2019-11-18 17:26:29
字體：大 中 小
來源：轉載
供稿：網友
普通的窗體都是方方的，使用API函數可以做出一些奇怪的形狀。比如，窗體是圓角矩形，在中間挖一個橢圓形的洞。

先要理解一個重要的概念：區域。區域是描述設備場景中某一塊的GDI對象，每個區域都有一個句柄。一個區域可以是矩形，也可以是復雜的多邊形，甚至是幾個區域組織在一起。窗體默認的區域就是我們看到的矩形，當然它并非一定要用這個默認的區域

現在開始，首先在窗體上做一個圓角矩形區域，這是窗體的大致輪廓。在圓角矩形里再確定一個橢圓形的區域，然后把這兩個區域組織成一個區域，并設置窗體的區域為這個組織出來的區域。

CreateRoundRectRgn函數用于創建一個圓角矩形區域；CreateEll

PrivateSubForm_Click()
IfOutRgn<>0AndInRgn<>0AndMyRgn<>0ThenExitSub
DimwAsLong,hAsLong
w=ScaleX(Form1.Width,vbTwips,vbPixels)
h=ScaleY(Form1.Height,vbTwips,vbPixels)
MyRgn=CreateRectRgn(0,0,0,0)
OutRgn=CreateRoundRectRgn(30,30,w-30,h-30,100,100)
InRgn=CreateEllipticRgn(100,100,w-100,h-100)
CallCombineRgn(MyRgn,OutRgn,InRgn,RGN_DIFF)
CallSetWindowRgn(Form1.hWnd,MyRgn,True)
Form1.BackColor=QBColor(4)
EndSub

PrivateSubForm_DblClick()
UnloadForm1
EndSub

PrivateSubForm_Load()
OutRgn=0
InRgn=0
MyRgn=0
Form1.Width=7800
Form1.Height=6000
EndSub

PrivateSubForm_Unload(CancelAsInteger)
IfMyRgn<>0ThenDeleteObjectMyRgn
IfOutRgn<>0ThenDeleteObjectOutRgn
IfInRgn<>0ThenDeleteObjectInRgn
EndSub

這個程序運行后，在窗體上單擊，窗體就會變形，雙擊窗體程序結束。要注意的是，在卸載窗體時，用DeleteObject函數刪除已定義的區域。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 万州区| 体育| 台北县| 莱阳市| 马公市| 大关县| 峨山| 绍兴县| 翁牛特旗| 苗栗市| 庄河市| 陆河县| 苗栗县| 镇平县| 旺苍县| 银川市| 凉城县| 乌鲁木齐市| 霍山县| 武清区| 靖宇县| 正宁县| 阳朔县| 武城县| 含山县| 凤山市| 葫芦岛市| 枣强县| 晋江市| 铜陵市| 盐边县| 丰都县| 林西县| 乌兰县| 剑川县| 安阳县| 静海县| 安国市| 赫章县| 双鸭山市| 大姚县|