|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Forms/MDI)
|
|
 |
Título da Dica: Criando forms de formatos especiais
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Esta é uma das mais interessantes. Você pode criar forms de formatos especiais facilmente. Experimente o exemplo abaixo e veja que efeito interessante:
' Declare estas duas APIs na seção General 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
Private Sub Form_Load()
Show 'o form!
SetWindowRgn hWnd,CreateEllipticRgn(0,0,300,200),True
End Sub
|
|
|
|
|
