Visual Basic - Como hacer formularios no rectangulares?

Life is soft - evento anual de software empresarial
 
Vista:

Como hacer formularios no rectangulares?

Publicado por Metfan (2 intervenciones) el 28/04/2005 09:52:57
Pues eso mismo ;) Muchas gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como hacer formularios no rectangulares?

Publicado por Ana. (10 intervenciones) el 28/04/2005 09:55:00
Yo tengo un código para hacer un formulario en forma de elipse. Ahí va:

'Código para crear un formulario redondo extraido de una web de apis

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()
Dim hr&, dl&
Dim usew&, useh&
usew& = Me.Width / Screen.TwipsPerPixelX
useh& = Me.Height / Screen.TwipsPerPixelY
X = 0
hr& = CreateEllipticRgn(0, 0, usew, useh) 'Hace un formulario con forma de círculo descrito por x1,y1,x2,y2
hr& = CreateEllipticRgn(5, 50, usew, useh)
dl& = SetWindowRgn(Me.hWnd, hr, True)
Me.Width = Me.Width + 100
Me.Height = Me.Height + 100

No sé si habrá que agregar algo, es que es de hace un año y ya no me acuerdo!. Prueba a ver si te va, si no dímelo por el foro. Un saludo!.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como hacer formularios no rectangulares?

Publicado por Meftan (2 intervenciones) el 28/04/2005 10:12:15
Gracias, en realidad necesito hacer la forma desde una imagen que yo tenga. Salu2 de todas formas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como hacer formularios no rectangulares?

Publicado por Ana. (10 intervenciones) el 28/04/2005 10:28:39
Busca en una web de apis, seguro que lo encuentras, yo lo que te puse lo saqué de una. Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar