Principales Eventos del formulario(Initialice,Activate,QueryClose

Principales Eventos del formulario
----------------------------------

Initialice.
**********
Se ejecutara antes de que cargue o se muestre el formulario de usuario

Activate.
********
Se ejecuta cuando se muestra el formulario.

QueryClose
----------
Se ejecuta antes de descargar el formulario

Terminate
---------
Se ejecuta despues de descargar el formulario


*El primer evento que se ejecutara el usar el metodo show es el initialice..

Por ejemplo ...esta macro

sub abrir_formulario

Userform1.Show

End sub


Desencadenera el evento Initialize de Userform1

Private Sub UserForm_Initialize()


Msgbox "iniciando"

End Sub


y...Esta macro descargara el formulario desencadenado los sgtes eventos

Sub Close()

Unload UserForm1

End sub




1.QueryClose
2.Terminate



Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Msgbox "ya me voy"

End Sub



Private Sub UserForm_Terminate()

End Sub

Trabajar con userform 1.0 (Eventos en el formulario (userform) y en los controles...)

Eventos en el formulario y en los controles...

El formulario y todos los controles que agreguemos estan diseñados para interactuar con los usuarios
mediante las acciones o eventos que se realicen.


Para conocer los eventos disponibles para el formulario
coloquese en alguna parte del formulario y de doble clik

Conocer las acciones o eventos disponibles para un control

DE igual manera para conocer los eventos propios a un determinado control simplemente
de dar doble clik sobre el control.

Construcciones With End With

Construcciones With - End With

nos permitira realizar varias operaciones con un objeto sin la necesidad
de referenciarlo varias veces.

Por ejemplo..

En este ejemplo se observa la referencia Selection.Font hasta 3 veces..pero se puede mejorar..

verifique Las siguientes macros y quedara totalmente claro

Sub sinWITHENDW() 'Macro1


Selection.Font.Color = 255 'color fuente

Selection.Font.Bold = True 'negrita

Selection.Font.Italic = True 'itali

End Sub



Sub conWithEndWith() 'Macro2


With Selection.Font


.Color = 255 'color fuente

.Bold = True 'negrita

.Italic = True 'itali

End With


End Sub