Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: E N T E R en Agosto 26, 2013, 10:14:14 pm
-
Hola, quiero crear un user control tipo ventana exactamento como este:
(http://snag.gy/jz2kI.jpg)
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.
-
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.
(http://snag.gy/VbZsU.jpg)
-
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.
-
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.
(http://snag.gy/JFQFq.jpg)
-
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
Private Sub Command1_Click()
Extender.Visible = False
End Sub
-
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
-
ucVentana.
https://www.mediafire.com/?m8yvs8ybrabal59 (https://www.mediafire.com/?m8yvs8ybrabal59)
-
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 (http://www.4shared.com/rar/08Xts25Gce/ucVentana2.html)
(http://i1115.photobucket.com/albums/k552/AxioUK/ucVentana2.png)
-
Perfecto amigo, gracias por compartirlo..
Saludos....