CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Dim E As System.windows.forms.keypresseventargs

(1/1)

Soultaker:
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 ---  Public Sub pb_close_window(ByVal _name_window As Form)    Dim e As System.Windows.Forms.KeyPressEventArgs    If e.KeyChar = Chr(Keys.Escape) Then      Dim li_rpta As Integer      li_rpta = MsgBox("¿Desea cerrar la ventana activa?", MsgBoxStyle.YesNo, "Mensaje")      If li_rpta = MsgBoxResult.Yes Then _name_window.Close()    End If  End Sub 
Luego me fui a una ventana y en el evento KeyPress, escribi este codigo


--- Código: Text ---  Dim my As New Soultaker 'Este es el nombre de la clase   Private Sub Form2_KeyPress(ByVal sender As Object, _                              ByVal e As System.Windows.Forms.KeyPressEventArgs) _                              Handles MyBase.KeyPress, Button1.KeyPress    my.pb_close_window(Me)  End Sub 
Pero al momento de ejecutarlo me muestra el siguiente error





 :comp:

Güorker:
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

Navegación

[0] Índice de Mensajes