星型フォームを作る
〜多角形リージョンの作成〜
実 行 画 面 |
宣 言 |
Private Declare Function SetWindowRgn& Lib "user32" (ByVal hWnd
As Long, ByVal hRgn As Long, ByVal bRedraw As Long) Private Declare Function CreatePolygonRgn& Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) Private Declare Function DeleteObject& Lib "gdi32" (ByVal hObject As Long) Private Type POINTAPI X As Long Y As Long End Type |
作 成 手 順 |
1.多角形それぞれの頂点を定義する(下図)
↓
2.CreatePolygonRgnでリージョンを作成
↓
3.ウィンドウにセット
↓
4.プログラム終了時にリージョンを削除
図・頂点の定義
サ ン プ ル プ ロ グ ラ ム |
VisualBasic4以上で動作するサンプルプログラムです。