Visual Basic - Problemas a salir de una Form

Life is soft - evento anual de software empresarial
 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problemas a salir de una Form

Publicado por P3L30N2009 (699 intervenciones) el 20/04/2009 09:26:25
Ese mensaje no parece que sea por error de código.

¿En qué línea se produce? (ejecuta la depuración paso a paso por instrucciones)

¿Se crea el informe? Si es así, ¿qué dice?

Y otra cosa; para llamar al evento Click no es necesario que le des previamente el foco al control, así que te puedes ahorrar todos los ".SetFocus"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problemas a salir de una Form

Publicado por Antonio (93 intervenciones) el 20/04/2009 21:25:38
Hola P3L30N2009.

He puesto un control de errores el procedimiento en cuestión y no produce el efecto deseado, no aprece el error, solo la 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…..

Vamos a ver, los problemas que tengo son por usar las teclas INTRO para igualar las dos variables públicas TBcCodPro y TBcNomPro a dos campos de AltaPro y volver a la anterior Form y ESCAPE para salir.

¿Es posible que en Visual Basic el uso de estas teclas creen estos problemas?
En Clipper no ocurre esto.

Pues bien, si anulo el código referido a estas teclas y en lugar de usar la tecla INTRO para igualar las dos variables publicas a los dos campos que necesito, creo un botón y al pulsar este botón hace lo que tenía programado para la tecla INTRO, el problema desaparece y todo correcto. Y para salir solo uso el botón de "Salir".

¿Que me dices a esto?
Saludos cordiales.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar