Alexandre
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 07/11/2004 12:58 hs
Gostaria de algumas dicas de como montar um form com objetos arredondados, incluindo o próprio form. Agradecido, Alexandre |
|
|
|
|
|
CØwboy
|
ITAQUAQUECETUBA
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/11/2004 15:44 hs
puts meu isso é dificil kra, e se vc quer uma interface moderna use imagens no lugar dos botões deixa-los redondos vai ser embaçado velho!! valew |
|
|
|
Alexandre
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/11/2004 18:08 hs
Já me comentaram que existe uma API para fazer esse tipo de trabalho, duas pessoas "disseram" que já utilizaram e que seria fácil!!! Então pedi exemplos para as tais pessoas e estou esperando até hoje!!! Valeu!!!! Se eu conseguir alguma novidade, dou um retorno. |
|
|
|
ralph
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/11/2004 18:54 hs
alexandre de uma olhada neste link baixe a versão free os formularios ficam show de bola Valeu |
|
|
|
Alfterra
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/11/2004 07:33 hs
Olá, pra desenhar o form redondo tem API's pra isso e quanto aos botões tem OCX pra isso também...... vou procurar a API e coloco aqui, agora a OCX de botão redondo me pede pô e-mail..... |
|
|
|
Alfterra
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/11/2004 07:55 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 |
|
|
|
