Provocar Evento MouseEnter del Formulario

24/07/2005 - 22:01 por Aldo | Informe spam
Como puedo hacer desde un Boton.
Gracias

Preguntas similare

Leer las respuestas

#1 Leonardo Azpurua [mvp vb]
25/07/2005 - 06:29 | Informe spam
"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!
Respuesta Responder a este mensaje
#2 DJ_MIAO
26/07/2005 - 05:46 | Informe spam
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!


.

Respuesta Responder a este mensaje
#3 Francisco Ruiz
26/07/2005 - 06:18 | Informe spam
Deberías seguir tu consejo y comprar un libro, y de paso leerlo:

cres - crees
ayudates - ayudaste
confundez - confundes
imprecionar - impresionar
Respuesta Responder a este mensaje
#4 Alex
27/07/2005 - 01:48 | Informe spam
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


Respuesta Responder a este mensaje
#5 Eduardo A. Morcillo [MS MVP VB]
27/07/2005 - 04:14 | Informe spam
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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida