VISUAL BASIC 6.0]Criando um Form em forma de Estrela

[ander 2]

VISUAL BASIC 6.0]Criando um Form em forma de Estrela

 

 

Primeiro Declare Isso

 

Private Declare Function CreatePolygonRgn Lib _

"gdi32" (lpPoint As POINTAPI, ByVal nCount _

As Long, ByVal nPolyFillMode 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 Type POINTAPI

X As Long

Y As Long

End Type

 

'No evento Form_Load:

 

Private Sub Form_Load()

Dim Pontos( As POINTAPI 'Cria uma matriz de 8 Pontos

Dim RGN As Long

Me.Width = 1500

Me.Height = 1500

'Determina as oito coordenadas de uma estrela de

'quatro pontas (em Pixel)

Pontos(1).X = 0

Pontos(1).Y = 0

Pontos(2).X = 50

Pontos(2).Y = 25

Pontos(3).X = 100

Pontos(3).Y = 0

Pontos(4).X = 75

Pontos(4).Y = 50

Pontos(5).X = 100

Pontos(5).Y = 100

Pontos(6).X = 50

Pontos(6).Y = 75

Pontos(7).X = 0

Pontos(7).Y = 100

Pontos(.X = 25

Pontos(.Y = 50

RGN = CreatePolygonRgn(Pontos(1), 8, 0)

SetWindowRgn Me.hwnd, RGN, True

End Sub

 

 

Creditos outro forum.

postagem ander