Visual Basic - problema con unload me en XP

Life is soft - evento anual de software empresarial
 
Vista:

problema con unload me en XP

Publicado por Topo G. (1 intervención) el 04/07/2004 01:58:39
En el evento clic de un boton pongo unload me…..si no estoy equivocado eso tendria que cerrar mi programa, pero cuando veo las aplicaciones activas en XP aun se ve mi programa, por mas que lo haya cerrado…esto ocurre a veces, no siempre, por que puede ser?
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:problema con unload me en XP

Publicado por CSO (75 intervenciones) el 04/07/2004 17:48:43
Hola, en vez de unload me, utiliza END
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:problema con unload me en XP

Publicado por Pere (150 intervenciones) el 04/07/2004 22:25:59
Con Unload Me lo único que haces es descargar de la memoria el formulario activo (el que tiene el foco). Para cerrar el programa, lo que te dice CSO.

Pero si quieres hacerlo correctamente, es decir, cerrar las bases de datos, descargar los formularios y salir del programa, coloca esto en el formulario principal:

Private Sub CierraBasesDatos()
Dim ws As Workspace, Db As Database, rs As Recordset
For Each ws In Workspaces
For Each Db In ws.Databases
For Each rs In Db.Recordsets
rs.Close
Set rs = Nothing
Next
Db.Close
Set Db = Nothing
Next
ws.Close
Set ws = Nothing
Next
CierraFormularios
End Sub

Private Sub CierraFormularios()
Dim frm As Integer
frm = Forms.count

Do While frm > 0
Unload Forms(frm - 1)
If frm = Forms.count Then End
frm = frm - 1
Loop
End
End Sub


Espero que te sirva. A mi sí que me ha valido.
Saludos
Pere
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