Provocar Evento MouseEnter del Formulario

"Aldo" escribió en el mensaje
news:

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.

"Aldo" escribió en el

mensaje

news:

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!


.

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:

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