Gestionar boton Cancelar de un InputBox

[Cosimo]

Lo primero, agradecer de antemano al grupo vuestra ayuda.

Trabajo con VB6.
Quisiera gestionar el botón de Cancelar de un InputBox de manera que si lo
pulso no me aparezca el dichoso "Error 13 en tiempo de ejecucion. No
coinciden los tipos".
Tambien quisiera gestionar (en este caso seria el boton de Aceptar) para el
caso de introducir en el InputBox el nº de elementos que tenga una matriz, y
no me diga "Error 9 en tiempo de ejecucion . El subindice está fuera de
intervalo."
De nuevo, gracias por vuestra ayuda
Un novato

[Mario Reynoso]

Espero que lo siguiente te ayude... en cuanto al error 13 es porque le
estás asignando a una variable un tipo de dato diferente, por ejemplo,
si declaro "i" como entero y le asigno una cadena vacía. Con lo del
arreglo podés utilizar la función UBound() que te devuelve el límite
superior del arreglo.

<vb>
Dim strDato As String

strDato = InputBox("Título", "Ingresar dato:")
If StrPtr(strDato) = vbEmpty Then
MsgBox "El usuario canceló", vbExclamation
ElseIf Trim(strDato) = vbNullString Then
MsgBox "Texto vacío", vbExclamation
Else
MsgBox "El dato ingresado es: " & strDato, vbInformation
'TODO: Validar el texto ingresado antes de asignarlo
' a una variable que no sea de tipo string
End If
</vb>

Saludos!

Mario Reynoso.

--
Cosimo escribió:

[gustavo gutierrez morales]

También puedes hacer rutinas de intercepción de errores para que en caso de
presentarse estos, asumir determinadas tareas.
Al principio de tu procedimiento o función pones:

On error GOTO rutinadeerror
cuerpo del procedimiento
.
.
.
exit sub ( o function)
rutinadeerror:
código para el tratamiento de los probables numeros de error esperados, sin
que se interrumpa la operación, ni aparezcan mensajes de error.
end sub

espero te sirva, cualquier duda...
saludos,

"Mario Reynoso" <"mreynoso [at] telgua [dot] com"> escribió en el mensaje
news:uZkItfNw...@TK2MSFTNGP06.phx.gbl...

[Cosimo]

Gracias por la ayuda.

"Cosimo" <cosi...@hotmail.com> escribió en el mensaje
news:ecZejJNw...@TK2MSFTNGP06.phx.gbl...