| Pregunta: | 3565 - FOMA DE LAS VENTANAS |
| Autor: | José Fernando Ruiz Fernández |
| Me gustaría saber si se puede cambiar la forma de los formularios, en lugar de rectangular ovalada. Con las API he conseguido recortar la ventana , pero pierdo los botones. ¿Como cambiar el color de la barra de títulos y añadirle alguna imagen que vaya de una parte de la barra a otra?. Muchas gracias | |
| Respuesta: | Jorge Patino |
| Entra a la página de vbcode.com. Y en la sección de formas existen ejemplos de tu requerimiento. la direccion exacta es WWW.VBCODE.COM | |
| Respuesta: | Carlos Calle |
| Mira probe una forma y funciono, ahi te va el codigo: ´Crear un formulario circular ´---------------------------- 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 Long) As Long ´en el formulario Private Sub Form_Load() Dim lngRegion As Long Dim lngReturn As Long Dim lngFormWidth As Long Dim lngFormHeight As Long lngFormWidth = Me.Width / Screen.TwipsPerPixelX lngFormHeight = Me.Height / Screen.TwipsPerPixelY lngRegion = CreateEllipticRgn(0, 0, lngFormWidth, lngFormHeight) lngReturn = SetWindowRgn(Me.hWnd, lngRegion, True) End Sub | |