Hola Comunidad, tengo una necesidad:

Deseo saber cual el Index de una determinada TAB buscándolo por medio de su propiedad Caption.

Actualmente lo hice así en una función, pero no me gusta porque me va moviendo de la pestaña 0 a X, y es lógico que lo haga pues yo así lo indico en la linea




Fragmento completo:



Mi pregunta es la siguiente:

Existe una función que me permita buscar un tab por medio de la propiedad Caption  en un contenedor TabStrip y así saber que Index tiene, noto que existe una función Find pero no se si me sirva para lo que deseo.

Aunque ahora se me ocurre hacerle una copia al TabStrip en memoria sin hacerlo visible en tiempo de ejecución y así hacer el recorrido que hago con el fragmento de código expuesto al TabStrip TMP y al final solo retornaría el Index del TMP al Original.  Imagino que esto se podrá hacer.

Si me pueden dar ideas se los agradecería.



SOLUCIONADO



 

Aristicol no te sientas ofendido, pero esa rutina es un concierto de errores.

Citar:

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

'Falta el tipo de retorno de la función
'PUBLIC FUNCTION ScanTab(IdCaption AS String)
DIM a AS Integer = 0

  'El paso predefinido de FOR es 1 por lo que no es necesario especificar: STEP 1
  'Recorrer de 1 a Count y luego corregir el indice (a - 1) no tiene sentido
  FOR a = 1 TO TabStrip3.Count STEP 1
     'Cambiar de pestaña secuencialmente tampoco tiene sentido:
     TabStrip3.Index = (a - 1)
     IF TabStrip3[TabStrip3.Index].Caption = IdCaption  
        'JAMAS MODIFICAR la variable que actua como INDICE de un FOR.
        a = TabStrip3.Count
     ENDIF
 NEXT
 
END
 

Corrigiendo algunos errores resulta:



Pero aún se utiliza una estructura de control iterativa incorrecta, que obliga a iterar hasta el último item aunque la pestaña buscada se haya encontrado en cualquier item anterior. Para este caso la estructura adecuada es WHILE:



La llamada:



Saludos cordiales.

===================
Cómo programar con Gambas

Speed Books: informática libre.

SOLUCIONADO



 
Código: [Descargar] [Ocultar] [Seleccionar]
     TabStrip3.Index = ScanTab(SqlTabla7!id) - 1



Código: [Descargar] [Ocultar] [Seleccionar]
PUBLIC FUNCTION ScanTab(IdCaption AS Integer) AS Integer
  
  DIM a AS Integer = 0
  DIM b AS Integer = 0
  
  FOR a = 1 TO TabStrip3.Count STEP 1
      IF TabStrip3[(a - 1)].Caption = IdCaption THEN
         b = a
         a = TabStrip3.Count
         RETURN a
      ENDIF  
  NEXT

END
 

 
Gracias pero tal vez diga "CONCIERTO DE ERRORES" pero aun así aunque no tenia retorno de lo que sabia a clara vista decidí mejorarla, tal vez no deje ver todo lo que hace ni todo el contexto de rutinas.

Creo que es aligerado descalificar algo tan tajante si conocer 100% el conjunto, la pregunta era clara y talvez difícil de entender, pero ya lo resolví.


Se me olvidaba:

 IF TabStrip3[TabStrip3.Index].Caption = IdCaption  
        'JAMAS MODIFICAR la variable que actua como INDICE de un FOR.
        a = TabStrip3.Count

esto si se puede hacer cuando uno quiere romper el for.

Citar:

Gracias pero tal vez diga "CONCIERTO DE ERRORES" pero aun así aunque no tenia retorno de lo que sabia a clara vista decidí mejorarla, tal vez no deje ver todo lo que hace ni todo el contexto de rutinas.

No entiendo lo que dices.

Citar:

Creo que es aligerado descalificar algo tan tajante si conocer 100% el conjunto.

No sé de qué conjunto hablas. Yo sólo me refiero a la rutina que expusiste.

Veo que a pesar que te pedí que no lo tomaras a mal, eliges tomartelo a mal.

Bien, no puedo hacer nada para evitar eso, excepto aclarar que la palabra "descalificar" no tiene ninguna posibilidad de aplicación cuando se señala un error. Lamento que estés en un momento de hiper-sensibilidad que no te permita reconocer tus propios errores, porque de ese modo no te será posible aprender.

Mi respuesta no tiene acritud, sólo quiero llamar tu atención sobre que tu reacción está fuera de contexto.

Citar:

, la pregunta era clara y talvez difícil de entender, pero ya lo resolví.

Revisa el código que escribí para que veas que hay otras posibles soluciones, más eficientes y que muestran una utilización correcta de los recursos del lenguaje.

Citar:

Se me olvidaba:

IF TabStrip3[TabStrip3.Index].Caption = IdCaption
'JAMAS MODIFICAR la variable que actua como INDICE de un FOR.
a = TabStrip3.Count

esto si se puede hacer cuando uno quiere romper el for.

Como poder, puedes hacer lo que quieras. Pero FOR es una estructura de control repetitiva pensada para recorrer todos los elementos de un array, colección u otras estructuras de memoria.

Usar cualquier estructura de control repetitiva y luego "romperla" sólo muestra que no se sabe elegir la estructura iterativa adecuada y cómo condicionar su entrada o salida.

Te dejo mis saludos cordiales.

===================
Cómo programar con Gambas

Speed Books: informática libre.

aristicol escribió: [Ver mensaje]

Creo que es aligerado descalificar algo tan tajante si conocer 100% el conjunto, la pregunta era clara y talvez difícil de entender, pero ya lo resolví.

Creo que nadie está descalificando nada. Simplemente fabianfv te está mostrando la forma (o una de las formas) correctas de programar. Querer aprender o no, ya es cosa de cada cual.

Citar:

Se me olvidaba:

 IF TabStrip3[TabStrip3.Index].Caption = IdCaption  
        'JAMAS MODIFICAR la variable que actua como INDICE de un FOR.
        a = TabStrip3.Count

esto si se puede hacer cuando uno quiere romper el for.

De nuevo estás en un error. La forma correcta de romper un bucle FOR-NEXT es mediante la instrucción BREAK.

Noto un exceso de orgullo en tu última intervención. Por cierto, agradecer la ayuda de los foristas, tampoco está de más.

Saludos

===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"

Citar:

La forma correcta de romper un bucle FOR-NEXT es mediante la instrucción BREAK.

Es cierto Jesús. Pero tanto BREAK como CONTINUE son de esas sentencias que generalmente resulta innecesario utilizar. De hecho a mí siempre me resultó extremadamente difícil encontrar una situación donde su uso no pudiera ser fácilmente reemplazado por la estructura iterativa (el bucle) correcta y las condiciones de entrada (WHILE) o salida (REPEAT) pertinentes.

Es un buen tema de discusión como otros que hemos tratado en mensajes privados. Tal vez sería una buena idea abrir un foro para hablar sobre este tipo de cuestiones.

Saludos cordiales.

===================
Cómo programar con Gambas

Speed Books: informática libre.

¿Que sucede cuando se alcanza el valor máximo "Hasta" en un Ciclo?

Simplemente se termina, o ¿Que sucede cuando uno encuentra algo que estaba buscando? simplemente finaliza no tiene necesidad de seguir buscando.

La forma como se finalice un Ciclo creo que queda según la necesidad, y una rutina siempre va a tener mejor escritura.

Ahora si por el hecho de preguntar algo lo van a calificar de "no saber programar" prefiero no volver hacerlo, una cosas es no saber programar otra muy distinta tener una duda o algo de fatiga, pero uno siempre termina encontrando soluciones.

Y no es orgullo es simplemente saber decir las cosas, yo creo que decir "No te vayas a ofender" no es garantía de que no vaya a suceder.


También tengo claro, la lógica es la misma, la forma de dar soluciones diversas.

A todo lo anterior puedo decir, tanta polémica por una simple respuesta.



Y claro que Agradezco a todos lo que me han dado Soluciones, Muchas Gracias.

Citar:

La forma como se finalice un Ciclo creo que queda según la necesidad

Tú eliges qué creer, si aceptas que te puedes equivocar y también si quieres aprender o sólo quedarte con lo que ya sabes.

Citar:

Ahora si por el hecho de preguntar algo lo van a calificar de "no saber programar" prefiero no volver hacerlo, una cosas es no saber programar otra muy distinta tener una duda o algo de fatiga, pero uno siempre termina encontrando soluciones.

También elijes comprender lo que se te dice o tergiversarlo. Pero nosotros jamás dijimos "tú no sabes programar" ni tampoco lo insinuamos.

Citar:

Y no es orgullo es simplemente saber decir las cosas, yo creo que decir "No te vayas a ofender" no es garantía de que no vaya a suceder.

Hombre, de haber sabido que debía garantizar eso, me pagaba un seguro por las dudas

Saber decir las cosas es decir lo que es. No veo porque tanto te molesta. Pero ese es un problema de la telecomunicación, yo no puedo leer tus gestos corporales, escuchar tu tono de voz o ver tu mirada para saber si estás hiper-sensible antes de responderte.

"No te vayas a ofender" deja muy en claro cual es la intención, pero si aún así elijes sentirte ofendido... es igual que antes... tú elijes.

Si a tí te resulta ofensivo que te señalen un error, eres tú quien tiene un problema, no quien te señala el error. Yo me he equivocado tanto que hace tiempo dejó de molestarme que alguien me señale un error.

Citar:

A todo lo anterior puedo decir, tanta polémica por una simple respuesta.

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

TabStrip3[(a - 1)].Caption = IdCaption
 

Tú elijes si sacar provecho y aprender algo nuevo o sólo quedarte con lo que ya sabes. Nosotros donamos parte de nuestro tiempo libre para ayudar a quien quiera ser ayudado y para aprender unos de otros.

¿Quieres aprender, ser ayudado, enseñar y ayudar a otros? Tú elijes.

===================
Cómo programar con Gambas

Speed Books: informática libre.