Tvar formuláře bez okrajů – Visual Basic – Fórum – Programujte.com

zdravíčko lidi, potřeboval bych poradit jak se dá vytvořit mnohoúhelníkový tvar formuláře. A aby šel tvar formuláře měnit i za chodu programu. A to vše v Visual Basic 6.0. Díky předem za odpovědi!!!

Našel sem API funkci, ale nevim jak jí použít.

Public Declare Function CreatePolygonRgn Lib "gdi32" ( _

    lpPoint As POINTAPI, _

    ByVal nCount As Long, _

    ByVal nPolyFillMode As Long) As Long

Tento prográmek stažený z internetu umí udělat formulář jakéhokoliv tvaru podle obrázku, který vložíte na formulář (Vlastnost Form.Picture) a navíc ještě pěkné transparentní písmo.

A jak se to dá udělat za pomoci definovaných bodů mnohoúhelníka ??? Nějakou API ???

našel jsem pouze vytvoření elipsovitého formuláře

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Sub Form_Load()
Dim region As Long
region = CreateEllipticRgn(10, 100, 400, 300)
SetWindowRgn hWnd, region, True
End Sub

nebo zkus odkaz na adrese

http://www.builder.cz/art/visual_basic/clanek1294401269.html

To jkonopasek : dikec moc za ten link ... je tam super zdrojovej příklad ke stáhnutí.