Animar commandbutton

DiegoLG · el 11 de septiembre

Como dice el Maestro [uSER=46507]@Macro Antonio[/uSER]

Un dia de aburrimiento

Aqui te dejo un archivo, como el mismo titulo lo dice (animar commandbutton).

al pasar el mouse en el boton se cambia de color.

para los que son expertos de programacion a lo mejor tienen otras propuestas, a lo mejor pueden disminuir los códigos que yo utilizé. Y será bienvenida las propuestas.

Saludos.

Animar Boton.rar

AlexanderS · el 11 de septiembre

Me gustan este tipo de aportes, efectivamente puedes mejorar el código si agregas un modulo de clase (adjunto)

Aqui algunos de mis aportes referente a la animación de controles de formularios.

https://www.ayudaexcel.com/foro/threads/userform-con-animaciones-o-efectos-de-transicion.32222/#post-152187

Saludos y gracias por el aporte.

Animar Boton.rar

Enigma25 · el 11 de septiembre

Me gusta!!!!

Guardando.......

Gracias por el aporte.

Enigma25 · el 11 de septiembre

Para hacerlo aun mas interesante. Le pueden agregar en el modulo clase la siguiente linea para poner el texto en negrita :

    Boton.Font.Bold = True

..y en el evento MouseMove del formulario la siguiente linea para devolverlo a su estado normal:

Ctrl.Font.Bold = False

Saludos.

DiegoLG · el 12 de septiembre

Mis respetos a los dos @Riddle @enigma25

Saludos

Enigma25 · el 12 de septiembre

Amigo [uSER=143023]@Riddle[/uSER] perdone el abuso. Como resuelve hacer que funcione dentro de un Multipage?

Trato de hacerlo pero no me sale como se debe.

DiegoLG · el 12 de septiembre

[uSER=98799]@Enigma25[/uSER] checa el archivo, a mi me funciono así

Animar Boton.rar

Enigma25 · el 12 de septiembre

Descuide [uSER=143023]@Riddle[/uSER] ya lo resolvi

Private Sub MultiPage1_MouseMove(ByVal Index As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "CommandButton" Then Ctrl.BackColor = &amp;H8000000F: Ctrl.Font.Bold = False
    Next
End Sub

Enigma25 · el 12 de septiembre

Hola [uSER=163374]@Diego9019[/uSER] AL parecer escribirnos al mismo tiempo. Gracias hermano. Ya lo resolvì.

Antoni · el 13 de septiembre

Atendiendo al consejo de @Riddle, al que agradezco que en el aporte "Efecto Letras" me saludara , le he añadido un módulo de clase y un cambio de color al hacer click.

Macrobotones.xls

pegones1 · el 16 de septiembre

Macro, me lo has dejado a "uevo" para dar el salto a la 3ª fase de animación de los botones.

Macrobotones_PW10.xls

Enigma25 · el 17 de septiembre

..Me quito el sombrero...! [uSER=47802]@pegones1[/uSER]

Antoni · el 17 de septiembre

Macro, me lo has dejado a "uevo" para dar el salto a la 3ª fase de animación de los botones.

Jajaja, siempre he sabido que eras el ET maño. :rolleyes:

pegones1 · el 20 de septiembre

[uSER=98799]@Enigma25[/uSER] ponte el sombrero y siéntate para ver los botones animados haciendo doble clic.

Jajaja, siempre he sabido que eras el ET maño.

[uSER=46507]@Macro Antonio[/uSER], todas las películas clásicas de ciencia-ficción me encantan y "Encuentros en la tercera fase" fue la primera que me impactó y recuerdo que al salir del cine de su estreno, aún veía el panel de colores con el que se comunicaban los extraterrestres.

El título de la película en Latinoamérica es "Encuentros Cercanos del Tercer Tipo", traducción literal del título original en inglés: "Close Encounters of the Third Kind". Justo a la mitad del vídeo (3'10") comienza la comunicación con el panel de colores.