SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Soultaker en Martes 12 de Julio de 2005, 01:13

Título: Dim E As System.windows.forms.keypresseventargs
Publicado por: Soultaker en Martes 12 de Julio de 2005, 01:13

Hola a todos como estan, se me presento un problemita, les cuento, estuve creando una clase con algunos procedimientos y funciones, pero creando un procedimiento (segun yo estaba todo bien), este es el codigo.

Código: Text

1.   Public Sub pb_close_window(ByVal _name_window As Form)
2.     Dim e As System.Windows.Forms.KeyPressEventArgs
3.     If e.KeyChar = Chr(Keys.Escape) Then
4.       Dim li_rpta As Integer
5.       li_rpta = MsgBox("¿Desea cerrar la ventana activa?", MsgBoxStyle.YesNo, "Mensaje")
6.       If li_rpta = MsgBoxResult.Yes Then _name_window.Close()
7.     End If
8.   End Sub
9.  

Luego me fui a una ventana y en el evento KeyPress, escribi este codigo

Código: Text

1.   Dim my As New Soultaker 'Este es el nombre de la clase
2.  
3.   Private Sub Form2_KeyPress(ByVal sender As Object, _
4.                               ByVal e As System.Windows.Forms.KeyPressEventArgs) _
5.                               Handles MyBase.KeyPress, Button1.KeyPress
6.     my.pb_close_window(Me)
7.   End Sub
8.  

Pero al momento de ejecutarlo me muestra el siguiente error

(http://img299.imageshack.us/img299/149/tema01imagen018sa.jpg)

(http://img299.imageshack.us/img299/1999/tema01imagen025lu.jpg)

 :comp:

Título: Re: Dim E As System.windows.forms.keypresseventargs
Publicado por: Güorker en Martes 12 de Julio de 2005, 08:46

Hola,

Que tal si le pasas como parametro la "e" al metodo "pb_close_window". Asi si sigue siendo "e=Nothing"... Ya no se que solucion se le puede dar  :blink:

Bueno, espero haber ayudado en algo. Saludos