星型フォームを作る
〜多角形リージョンの作成〜

実 行 画 面

宣 言

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以上で動作するサンプルプログラムです。

Sample Program Download (6KB)

トップに戻る
Visual Basicワンポイントテクニック目次に戻る

楽天モバイル[UNLIMITが今なら1円] ECナビでポインと Yahoo 楽天 LINEがデータ消費ゼロで月額500円〜!


無料ホームページ 無料のクレジットカード 海外格安航空券 解約手数料0円【あしたでんき】 海外旅行保険が無料! 海外ホテル