Procedimiento de borrado de examen
Publicado por vichovi (1 intervención) el 29/09/2004 15:18:32
Hola a tod@s:
Tengo el siguiente problema con el procedimiento que utilizo para limpiar los formularios de forma automatica sin preocuparme de que controles contiene, y que es el que sigue:
Public Sub LimpiarForm(Frm As Form)
Dim n As Integer
Dim m As Long
On Error Resume Next
For n = 0 To Frm.Controls.Count - 1
Frm.Controls(n).Text = ""
Frm.Controls(n).Clear
Frm.Controls(n).Rows = 2
For m = 0 To Frm.Controls(n).Cols - 1
Frm.Controls(n).TextMatrix(1, m) = ""
Next m
Next n
On Error GoTo 0
End Sub
Este procedimiento funciona sin problemas en el entorno de desarrollo, sin embargo cuando compilo la aplicación (genero el ejecutable) se me queda colgado al llamarlo (lo he comprobado a base de msgbox para indicar por donde va la ejecucion).
Alguien sabe el porqué??????????????!!!!!!!!!!!!!!
Estoy utilizando Visual Basic 6 SP5 sobre Windows XP Professional.
Os agradeceria me echarais una mano.
Un saludo y gracias de antemano.
Tengo el siguiente problema con el procedimiento que utilizo para limpiar los formularios de forma automatica sin preocuparme de que controles contiene, y que es el que sigue:
Public Sub LimpiarForm(Frm As Form)
Dim n As Integer
Dim m As Long
On Error Resume Next
For n = 0 To Frm.Controls.Count - 1
Frm.Controls(n).Text = ""
Frm.Controls(n).Clear
Frm.Controls(n).Rows = 2
For m = 0 To Frm.Controls(n).Cols - 1
Frm.Controls(n).TextMatrix(1, m) = ""
Next m
Next n
On Error GoTo 0
End Sub
Este procedimiento funciona sin problemas en el entorno de desarrollo, sin embargo cuando compilo la aplicación (genero el ejecutable) se me queda colgado al llamarlo (lo he comprobado a base de msgbox para indicar por donde va la ejecucion).
Alguien sabe el porqué??????????????!!!!!!!!!!!!!!
Estoy utilizando Visual Basic 6 SP5 sobre Windows XP Professional.
Os agradeceria me echarais una mano.
Un saludo y gracias de antemano.
Valora esta pregunta


0