IMAGEM

USUARIO.EXCLUIDOS 17/05/2004 21:35:12
#25150
Pessoal imaginem que temos uma imagem .bmp e carregamos essa imagem num picturebox, essa imagem possue canto vivo e eu gostaria de arredondar esse canto como poderia fazer isto?
A idéia é criar um form com o canto arredondado do tipo xp porém a imagem desse form está nessa imagem que carregamos no picture box e quando carregamos no picture o canto fica com a cor branca.

Desde de já agredeço a atenção,


Wagner
USUARIO.EXCLUIDOS 18/05/2004 08:07:55
#25173 Resposta escolhida
talvez este componente te ajude

http://www.vbmania.com.br/vbmdetail.php?varID=905

'se não ajudar - esta função arredonda as pontas de pictureboxes e forms - o primeiro parà¢metro é o picture box ou o form e o segundo o nível de arredondamento que você quer

Private Declare Function CreateRoundRectRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, _
ByVal X2 As Long, ByVal Y2 As Long, _
ByVal X3 As Long, ByVal Y3 As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" _
(ByVal hwnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long


Public Sub MakeRound(Obj As Object, lValue As Long)
Dim lRet As Long
Dim llWidth As Long
Dim llHeight As Long

'pega tamanho em pixels
llWidth = Obj.Width / Screen.TwipsPerPixelX
llHeight = Obj.Height / Screen.TwipsPerPixelY

'arredonda objeto
lRet = CreateRoundRectRgn(0, 0, llWidth, llHeight, _
lValue, lValue)

SetWindowRgn Obj.hwnd, lRet, True
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar