VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2006/02/01(Wed) 17:35
投稿者： K.J.K.
Ｅメール： akiya@koalanet.ne.jp
ＵＲＬ：
タイトル： Re: 多角形透過

> リジュンを作成して、色を塗り潰してからそのリジュンを透過したいのですが、
> 詳細に説明していただきませんでしょうか。

詳細がいるとは思えないのですが。
関係ないサンプルならば、API関数の宣言などはAPI Viewerに任せた場合、

    Dim hRegion As Long
    Dim uPoints() As PointAPI
    Dim hRegionOld As Long

    ReDim uPoints(0& To 4&) As PointAPI
    uPoints(0&).x = 48&
    uPoints(0&).y = 33&
    uPoints(1&).x = 63&
    uPoints(1&).y = 43&
    uPoints(2&).x = 53&
    uPoints(2&).y = 63&
    uPoints(3&).x = 43&
    uPoints(3&).y = 63&
    uPoints(4&).x = 33&
    uPoints(4&).y = 43&

    hRegion = CreatePolygonRgn(uPoints(0&), 5&, 2&)
    If 0& <> hRegion Then
        Picture1.AutoRedraw = True
        hRegionOld = SelectObject(Picture1.hDC, hRegion)
        Picture1.Line (32, 32)-(64, 64), vbRed, BF
        Call SelectObject(Picture1.hDC, hRegionOld)
        Call DeleteObject(hRegion)
        Picture1.AutoRedraw = False
    End If

とでもしてみれば、リージョンの性格が掴めるかも知れません。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -