Crear un ucVentana

[E N T E R]

Hola, quiero crear un user control tipo ventana exactamento como este:



Pero no tengo ni idea de como pintar el usercontrol por medio de codigo, después el user control quiero que permita contener a otros control como si fuera un picturebox.

[E N T E R]

Código: (VB) [Seleccionar]

Private Sub UserControl_Resize()
       
    Dim xAltura As Long
    xAltura = 670
   
    UserControl.Cls
   
    FillColor = vbRed
    FillStyle = vbSolid
    Line (0, 0)-(ScaleWidth, 630), vbRed, B

    FillColor = vbRed
    FillStyle = vbSolid
    Line (0, 630)-(ScaleWidth, 670), vbBlue, BF
           
    Line (0, xAltura)-(ScaleWidth, xAltura), vbBlack
    Line (0, xAltura)-(0, ScaleHeight), vbBlack
    Line (ScaleWidth - 10, xAltura)-(ScaleWidth - 10, ScaleHeight - 10), vbBlack
    Line (0, ScaleHeight - 10)-(ScaleWidth, ScaleHeight - 10), vbBlack
       
End Sub
Tengo este codigo funciona perfectamente ahora como puedo hacer para redondear las puntas en cada esquina.

[LeandroA]

Hola echale un vistaso a este link
http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/213-clase-drag-magnetic.htm

hay un usercontrol algo parecido, o almenos te puede ayudar a ver como hacerlo.

[E N T E R]

Perfecto Leandro no sabia de ese control estabe retocando tu codigo y esta quedando asi:
Lo que necesito es hacer click en el boton cerrar y que el uc desaparezca.

[LeandroA]

Hola me parece o puede que sea mejor crear un evento al hacer click y despues lo ocultas desde el formulario contenedor, osea externamente, pero eso esta en como te quede mas comodo

si lo queres hacer interno en usercontrol es asi

Código: [Seleccionar]

Private Sub Command1_Click()
 Extender.Visible = False
End Sub

[AxioUK]

Por casualidad podrías compartir el Código que has modificado? me gustaría crear unos msgbox personalizados para mi app basandome en tus retoques...

agradecido

[E N T E R]

ucVentana.

https://www.mediafire.com/?m8yvs8ybrabal59

[AxioUK]

Estimados, me ha servido una enormidad esta ventanita, le he aplicado unos retoques a la creación de LeandroA y he incluido el estilo de ENTER, incluí un boton de cerrar al estilo de LeandroA (que llamé Classic) y el poder cambiar el color de la barra al estilo de ENTER (que llamé Noir). y en ambos el poder mostrar/ocultar los botones de la barra, en fin adjunto el nuevo ucVentana (jeje). Revisenlo y vean si pueden aportar, correjir o mejorar algo más...

Agradecido

http://www.4shared.com/rar/08Xts25Gce/ucVentana2.html

[E N T E R]

Perfecto amigo, gracias por compartirlo..

Saludos....