Problemas a salir de una Form
Publicado por Antonio (93 intervenciones) el 19/04/2009 16:31:01
Hola de nuevo.
Tengo el siguiente problema.
Para salir de una Form (AltaPro) tengo cuatro formas.
1.- Con un botón “Salir” con el que no tengo problema:
'Salir
Private Sub CmdClose_Click()
Unload Me
End Sub
2.- Con otro botón “Salir” en la Barra Toolbar, que tampoco tengo problema:
Private Sub Barra_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
CmdClose.SetFocus
CmdClose_Click
End Select
End Sub
3.- Con las teclas INTRO y ESCAPE en el evento del DataGrid DGPro_KeyDown, me da error, saliendo la siguiente ventana titulada “Visual Basic”, diciendo:
Visual Basic ha detectado un problema y debe cerrarse.
Si está en pleno proceso, puede perderse la información con la que esté trabajando.
Informe a Microsoft de este problema.
Se ha creado un informe…..
Código:
'Se ha presionado una tecla
Private Sub DGPro_KeyDown(KeyCode As Integer, Shift As Integer)
'Si se ha pulsado INTRO
If KeyCode = 13 Then
If bOtraForm = False Then
CmdUpd_Click
Else
DGPro.Refresh
bOtraForm = False
TBcCodPro = DGPro.Columns(0)
TBcNomPro = DGPro.Columns(1)
CmdClose.SetFocus
CmdClose_Click
End If
'Si se ha pulsado la tecla INSERT
ElseIf KeyCode = 45 Then
CmdAdd_Click
'Si se ha pulsado la tecla SUPRIMIR
ElseIf KeyCode = 46 Then
CmdDel_Click
'Si se ha pulsado la ecla ESCAPE
ElseIf KeyCode = 27 Then
CmdClose.SetFocus
CmdClose_Click
Else
DGPro.SetFocus
End If
End Sub
Tengo el siguiente problema.
Para salir de una Form (AltaPro) tengo cuatro formas.
1.- Con un botón “Salir” con el que no tengo problema:
'Salir
Private Sub CmdClose_Click()
Unload Me
End Sub
2.- Con otro botón “Salir” en la Barra Toolbar, que tampoco tengo problema:
Private Sub Barra_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
CmdClose.SetFocus
CmdClose_Click
End Select
End Sub
3.- Con las teclas INTRO y ESCAPE en el evento del DataGrid DGPro_KeyDown, me da error, saliendo la siguiente ventana titulada “Visual Basic”, diciendo:
Visual Basic ha detectado un problema y debe cerrarse.
Si está en pleno proceso, puede perderse la información con la que esté trabajando.
Informe a Microsoft de este problema.
Se ha creado un informe…..
Código:
'Se ha presionado una tecla
Private Sub DGPro_KeyDown(KeyCode As Integer, Shift As Integer)
'Si se ha pulsado INTRO
If KeyCode = 13 Then
If bOtraForm = False Then
CmdUpd_Click
Else
DGPro.Refresh
bOtraForm = False
TBcCodPro = DGPro.Columns(0)
TBcNomPro = DGPro.Columns(1)
CmdClose.SetFocus
CmdClose_Click
End If
'Si se ha pulsado la tecla INSERT
ElseIf KeyCode = 45 Then
CmdAdd_Click
'Si se ha pulsado la tecla SUPRIMIR
ElseIf KeyCode = 46 Then
CmdDel_Click
'Si se ha pulsado la ecla ESCAPE
ElseIf KeyCode = 27 Then
CmdClose.SetFocus
CmdClose_Click
Else
DGPro.SetFocus
End If
End Sub
Valora esta pregunta


0