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

実 行 画 面

宣 言

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ワンポイントテクニック目次に戻る

Gポイントポイ活 Amazon Yahoo 楽天

無料ホームページ 楽天モバイル[UNLIMITが今なら1円] 海外格安航空券 海外旅行保険が無料!