FORM REDONDO

MADMAX 10/01/2005 16:15:45
#59826 Resposta escolhida

ta ai um exemplo não sei te dizer se usa api , baixa e da uma olhada qualquer coisa da um toque....


http://vb4all.canpol.pl/workshop/circle.zip

MADMAX 10/01/2005 16:21:47
#59830

mandei o link errado , acho que seria isso aue vc quer , não foi eu quem fiz se funcionar me avisa, pois vou postar esse codigo la...não tive tempo de testar se ta certo

Criando um formulario redondo'variaveis
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 Long) As Long



Private Sub Form_Load()
Dim lngRegion As Long
Dim lngReturn As Long
Dim lngFormWidth As Long
Dim lngFormHeight As Long

lngFormWidth = Me.Width / Screen.TwipsPerPixelX
lngFormHeight = Me.Height / Screen.TwipsPerPixelY
lngRegion = CreateEllipticRgn(0, 0, lngFormWidth, lngFormHeight)
lngReturn = SetWindowRgn(Me.hWnd, lngRegion, True)
End Sub

USUARIO.EXCLUIDOS 11/01/2005 11:32:11
#59982

Funciona irmão valew mesmo.