USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Forms/MDI)

Título da Dica:  Deixando o formulário com o formato de um estrela
Postada em 31/7/2003 por Tekki            
'Declare
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 Long) As Long
Private Type POINTAPI
    X As Long
    Y As Long
End Type

'No Form
Private Sub Form_Load()

Const PI = 3.14159265
Const NUM_PTS = 26
Const R1x = 100
Const R2x = 200
Const R1y = 75
Const R2y = 150

Dim i As Integer
Dim cx As Integer
Dim cy As Integer
Dim points() As POINTAPI
Dim theta As Single
Dim dtheta As Single
Dim rgn As Long
    ReDim points(0 To NUM_PTS - 1)
    cx = R2x
    cy = R2y
    dtheta = 2 * PI / NUM_PTS
    theta = PI / 2
    For i = 0 To NUM_PTS / 2 - 1
        points(i * 2).X = cx + R1x * Cos(theta)
        points(i * 2).Y = cy + R1y * Sin(theta)
        theta = theta + dtheta
        points(i * 2 + 1).X = cx + R2x * Cos(theta)
        points(i * 2 + 1).Y = cy + R2y * Sin(theta)
        theta = theta + dtheta
    Next i
    rgn = CreatePolygonRgn(points(0), NUM_PTS, 1)
    SetWindowRgn hWnd, rgn, True
End Sub



 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página