fbpx

Form circular

Form circular

Adicione o seguinte código nas declarações da 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

Agora no form load:

Dim hr&, dl&
Dim usew&, useh&
usew& = me.Width / Screen.TwipsPerPixelX
useh& = me.Height / Screen.TwipsPerPixelY
x = 0
hr& = CreateEllipticRgn(0, 0, usew, useh) ‘Faz a _
‘forma da janela numa forma de um círculo descrito por x1,y1,x2,y2
dl& = SetWindowRgn(me.hWnd, hr, True)

Obs.: mude o nome “Screen” para o nome do seu formulário

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.