Provocar Evento MouseEnter del Formulario

"Aldo" escribió en el mensaje
news:
Mostrar la cita

Como puedo hacer desde un Boton.
Gracias

Hola, Aldo:

Normalemente no queremos "provocar un evento", sino ejecutar el mismo código
que se invoca cuando ese evento se produce.

Puedes hacer algo tan simple como:

Public Class Form1

Dim i As Integer = 1

Private Sub Form1_MouseEnter(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Me.MouseEnter
Me.Text = "El ratón ha entrado " & i & " veces."
i += 1
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Form1_MouseEnter(sender, e)
End Sub
End Class

que funcionará, pero es "sucio", porque los argumentos que recibirá
Form1_MouseEnter cuando sea llamada desde Button1_Click, no son los
argumentos que cabe esperar en ese procedimiento. Hacer una cochinada como
esa compromete la evolución de la función.

En el caso del ejemplo, no necesitamos los argumentos, de manera que podemos
reescribir:

Public Class Form1

Dim i As Integer = 1

Private Sub ActualizarCuentaMouse()
Me.Text = "El ratón ha entrado " & i & " veces."
i += 1
End Sub

Private Sub Form1_MouseEnter(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Me.MouseEnter
ActualizarCuentaMouse()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
ActualizarCuentaMouse()
End Sub
End Class

Es decir, mueves la funcionalidad asociada con el evento a una función
independiente, y luego la llamas desde donde la necesitas.

Salud!

Tu cres que lo ayudates ? O lo confundez mas ?
No cambias siempre tratando de imprecionar.


Miao...
Comprate un libro.
Mostrar la cita

"Aldo" escribió en el

mensaje
Mostrar la cita

news:
Mostrar la cita

Como puedo hacer desde un Boton.
Gracias

Hola, Aldo:

Normalemente no queremos "provocar un evento", sino

ejecutar el mismo código
Mostrar la cita

que se invoca cuando ese evento se produce.

Puedes hacer algo tan simple como:

Public Class Form1

Dim i As Integer = 1

Private Sub Form1_MouseEnter(ByVal sender As Object,

_
Mostrar la cita

ByVal e As System.EventArgs) Handles

Me.MouseEnter
Mostrar la cita

Me.Text = "El ratón ha entrado " & i & " veces."
i += 1
End Sub

Private Sub Button1_Click(ByVal sender As

System.Object, _
Mostrar la cita

ByVal e As System.EventArgs) Handles

Button1.Click
Mostrar la cita

Form1_MouseEnter(sender, e)
End Sub
End Class

que funcionará, pero es "sucio", porque los argumentos

que recibirá
Mostrar la cita

Form1_MouseEnter cuando sea llamada desde Button1_Click,

no son los
Mostrar la cita

argumentos que cabe esperar en ese procedimiento. Hacer

una cochinada como
Mostrar la cita

esa compromete la evolución de la función.

En el caso del ejemplo, no necesitamos los argumentos,

de manera que podemos
Mostrar la cita

reescribir:

Public Class Form1

Dim i As Integer = 1

Private Sub ActualizarCuentaMouse()
Me.Text = "El ratón ha entrado " & i & " veces."
i += 1
End Sub

Private Sub Form1_MouseEnter(ByVal sender As Object,

_
Mostrar la cita

ByVal e As System.EventArgs) Handles

Me.MouseEnter
Mostrar la cita

ActualizarCuentaMouse()
End Sub

Private Sub Button1_Click(ByVal sender As

System.Object, _
Mostrar la cita

ByVal e As System.EventArgs) Handles

Button1.Click
Mostrar la cita

ActualizarCuentaMouse()
End Sub
End Class

Es decir, mueves la funcionalidad asociada con el evento

a una función
Mostrar la cita

independiente, y luego la llamas desde donde la

necesitas.
Mostrar la cita

Salud!


.

Deberías seguir tu consejo y comprar un libro, y de paso leerlo:

cres - crees
ayudates - ayudaste
confundez - confundes
imprecionar - impresionar

Y también:

tu - tú
mas - más
comprate - cómprate
y un par de "¿" para abrir las interrogativas

Vaya, 9 errores en un texto de 19 palabras. Impresionante.

Alex
(Vigo, España)

"Francisco Ruiz" escribió en el mensaje
news:
Mostrar la cita

Deberías seguir tu consejo y comprar un libro, y de paso leerlo:

cres - crees
ayudates - ayudaste
confundez - confundes
imprecionar - impresionar

Bueno, lo de acentos es perdonable si tiene un buen motivo. No veras ningun
mensaje mio con acentos y lo hago asi para evitar cualquier problema de
codificacion de caracteres con el lector que use la otra persona. El resto
de palabras mal escritas es imperdonable.

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo