Visual Basic - Procedimiento de borrado de examen

Life is soft - evento anual de software empresarial
 
Vista:

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.
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:Procedimiento de borrado de examen

Publicado por Fernando Ríos (47 intervenciones) el 30/09/2004 04:23:39

Te sugiero que hagas una rutina de "limpieza" de controles por tipo, por ejemplo puedes comprobar el tipo del objeto con algo parecido a

"If TypeOf(Crtl) Is TextBox Then ...."

Utilizar el On Error Resume Next utilizalo sólo en casos excepcionales donde no tengas alternativa para manipular errores, de lo contrario te sugiero refinar tu código.

Saludos...
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