|
|
Postada em 05/07/2004 18:19 hs
Gostaria de saber se algum dos senhores poderia me fornecer o código API dos formulários redondos? Desde já agradeço
Ewerton Oliveira
|
|
|
|
|
|
|
|
Postada em 05/07/2004 18:28 hs
'No Declarations do form:
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
'No Form_Load:
Private Sub Form_Load()
Dim hr&, dl&
Dim usew&, useh&
usew& = me.Width / Screen.TwipsPerPixelX
useh& = me.Height / Screen.TwipsPerPixelY
x = 0
'Deixa o Form ficar em forma círcular
hr& = CreateEllipticRgn(0, 0, usew, useh)
dl& = SetWindowRgn(me.hWnd, hr, True)
End Sub
|
|
|
|
|
|
Postada em 06/07/2004 10:39 hs
Obrigado, funcionou corretamente. Aproveitando gostaria de fazer mais uma pergunta. Existe a possibilidade de se colocar borda? Valeu!
Ewerton Oliveira
|
|
|
|
|
