| wislow |  |
|
2011-07-08 17:22 - Respuestas: 8 - Tema nº: 2804701
Pues muchísimas gracias Digou, ya me he librado de ese error :) Es que no me acordaba de que se empezase desde el 1 para las funciones de caracteres en VB6... qué malos son el tiempo y la memoria ;)
Muchas gracias de nuevo y un saludo.
Salu2 a la plataforma BeOS/Zeta/Haiku OS | |
|
|
| Digou |  |
|
Re: Error en tiempo de ejecucucion 5 en VB6 - 2011-07-08 17:28 - Respuesta 7
Un placer haberte podido ayudar wislow.
Saludos | |
|
|
| corone4 |  |
|
Re: Error en tiempo de ejecucucion 5 en VB6 - 2011-09-28 16:02 - Respuesta 8
solucion
private sub text4_change()
if len(text4.text) = 10 then
dim texto as string
texto = text4.text
dim counter as byte
for i = 1 to 10
for j = 1 to 10
if (mid(texto, i, 1) = mid(texto, j, 1)) then
counter = counter + 1
end if
next j
if counter >= 2 then
goto error
end if
counter = 0
next i
end if
exit sub
error:
msgbox "hay caracteres repetidos", vbcritical
text4.text = ""
exit sub
end sub
. | |
|
|
| corone4 | |
|
Re: Error en tiempo de ejecucucion 5 en VB6 - 2011-09-28 16:03 - Respuesta 9
private sub text4_change()
if len(text4.text) = 10 then
dim texto as string
texto = text4.text
dim counter as byte
for i = 1 to 10
for j = 1 to 10
if (mid(texto, i, 1) = mid(texto, j, 1)) then
counter = counter + 1
end if
next j
if counter >= 2 then
goto error
end if
counter = 0
next i
end if
exit sub
error:
msgbox "hay caracteres repetidos", vbcritical
text4.text = ""
exit sub
end sub
. | |
|
|
|
