Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Ampliar Un Objeto Cuando El Puntero Esta Encima
Autor Mensaje
Responder citando   Descargar mensaje 
Mensaje Ampliar Un Objeto Cuando El Puntero Esta Encima 
 
Hola a todos hoy estuve por hacer esto pero creo que me encontré con un problema de logica o simplemente por no saber usar los controles adecuadamente

duda: Como hago para que un objeto ejemplo: button se amplié cuando el puntero este encima de el y se haga de forma rápida..

yo habia hecho algo asi

Public Sub Form_Enter()

Button3.Height = 60
Button3.Width = 60

End

Public Sub Button3_Enter()

Button3.Height = 80
Button3.Width = 80

End
 


Pero de esta manera se produce muy lento y quisiera poder hacer una función que lo haga mas rápido entonces hice esto pero no funciono  

Public Sub ObjetoAmpliacion()
  
  Dim puntero As Cursor
  Dim boton As Button
  
  boton = boton.Button
  
  If puntero.Control = boton
    boton.Height = 80
    boton.Width = 80
    Else
      boton.Height = 60
      boton.Width = 60
  Endif
  
  
End
 


Podrían ayudarme en mi error de lógica o de controles porfa?

Gracias Saludos...
 



 
última edición por OneErick el Sabado, 06 Julio 2013, 16:42; editado 1 vez 
OneErick - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron