............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Aportacion diversas formas de modificar el form (Form Fun)

Ver el tema anterior Ver el tema siguiente Ir abajo

Aportacion diversas formas de modificar el form (Form Fun)

Mensaje por moises melgar el Miér Oct 13, 2010 11:17 am

hola en una ocasion Googlenado me encontre con una aplicacion muy interesante la he analizado con cuidado en mi casa y ahora la puedo usar en cualquiera de mis userform entre ellas mostrar botones de maximizar y minimizar en form ocultarles la barra de titulos mostrar el form dentro de la barra de tareas, colocarles una imagen icono dentro del titulo es genial ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
no pude aguantar las ganas de mostrarlas a todos en el foro, claro respetando el mensaje de su original autor

aqui os muestro ( el original)



avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 550
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Aportacion diversas formas de modificar el form (Form Fun)

Mensaje por Invitado el Miér Oct 13, 2010 11:29 am

gracias amigo moises

Invitado
Invitado


Volver arriba Ir abajo

Re: Aportacion diversas formas de modificar el form (Form Fun)

Mensaje por moises melgar el Miér Ene 26, 2011 7:50 pm

hola foro aqui le dejo un ejemplo sencillo para usar el form fun, consiste en cuatro botones los cuales ya activan las caractersticas que menciona el form fun,
de esta forma se puede apreciar como se puede adaptar esta aplicacion a cualquiera de los form que deseen.
Pd siempre hay que importar el modulo de clase para poder usarlo

userform1
Código:
Option Explicit
'Declare a new instance of our form changer class
Dim mclsFormChanger As CFormChanger

Private Sub UserForm_Activate()
    Set mclsFormChanger = New CFormChanger
    Set mclsFormChanger.Form = Me
  
    mclsFormChanger.ShowMinimizeBtn = True ' boton minimizar
    mclsFormChanger.ShowMaximizeBtn = True ' boton maximizar
    mclsFormChanger.ShowCloseBtn = True ' boton cerrar
    mclsFormChanger.IconPath = ThisWorkbook.Path & "\imagenotro.ico" ' icono
    mclsFormChanger.ShowTaskBarIcon = True ' lugar en la barra de tareas
    mclsFormChanger.Sizeable = True
End Sub
userform2
Código:
Option Explicit

'Declare a new instance of our form changer class
Dim mclsFormChanger As CFormChanger

Private Sub UserForm_Activate()
    Set mclsFormChanger = New CFormChanger
    Set mclsFormChanger.Form = Me
    mclsFormChanger.ShowCaption = False ' no se muestran los bordes
End Sub

Private Sub CommandButton1_Click()
    mclsFormChanger.ShowCaption = True
End Sub
userform3
Código:
Option Explicit

'Declare a new instance of our form changer class
Dim mclsFormChanger As CFormChanger

Private Sub UserForm_Activate()
    Set mclsFormChanger = New CFormChanger
    Set mclsFormChanger.Form = Me
    mclsFormChanger.ShowSysMenu = False 'ocultar el boton de cerrar
End Sub

Private Sub CommandButton1_Click()
    mclsFormChanger.ShowSysMenu = True
End Sub

como se puede ver es muy sencillo usarlo, espero que les sirva
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 550
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Aportacion diversas formas de modificar el form (Form Fun)

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.