PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → Changer onglet par programmation onglet dynamique
Changer onglet par programmation onglet dynamique
Débuté par Aym, 13 déc. 2017 14:33 - 2 réponses
Membre enregistré
80 messages
Popularité : +2 (2 votes)
Posté le 13 décembre 2017 - 14:33
Bonjour,

OngletFermeTout(ONG_Commande)
TANTQUE PAS HEnDehors(sdSQLCommande)
OngletOuvre(ONG_Commande,sdSQLCommande.type,FI_QUINC_Onglet,sdSQLCommande.numero,sdSQLCommande.ligne,sdSQLCommande.type)

HLitSuivant(sdSQLCommande)
FIN

ONG_Commande = 1


La dernière ligne ne fonctionne pas, de base Windev me sélectionne le dernier onglet que j'ai ouvert par programmation. Je souhaite sélectionner le premier, comment faire ?

Merci
Posté le 13 décembre 2017 - 16:45
Bjr,

Aym avait soumis l'idée :
Bonjour,

OngletFermeTout(ONG_Commande)
TANTQUE PAS HEnDehors(sdSQLCommande)
OngletOuvre(ONG_Commande,sdSQLCommande.type,FI_QUINC_Onglet,sdSQLCommande.numero,sdSQLCommande.ligne,sdSQLCommande.type)

HLitSuivant(sdSQLCommande)
FIN

ONG_Commande = 1


La dernière ligne ne fonctionne pas, de base Windev me sélectionne le dernier
onglet que j'ai ouvert par programmation. Je souhaite sélectionner le
premier, comment faire ?

Merci


Passe par un alias...
aliasonglet1 est une chaîne = OngletOuvre(Onglet1,"Accueil",fi_accueil)
aliasonglet_param est une chaîne = OngletOuvre(Onglet1,"Paramètrage",
Fi_param)
et ....
Onglet1 = aliasonglet1
ou aliasonglet1_un_autre....

a plus

--
-------------------------------------------------------------
www.ctc-soft.com
Gestion biblo-documentaire (free-share)
Comptabilité shareware
Logiciels de Gestion de saisie terrain
Spécialisé Tournées de boulangers
-------------------------------------------------------------
Membre enregistré
80 messages
Popularité : +2 (2 votes)
Posté le 14 décembre 2017 - 12:48
Super merci beaucoup

OngletFermeTout(ONG_Commande)

sAlias est une chaîne = ""
TANTQUE PAS HEnDehors(sdSQLCommande)
SI sAlias = "" ALORS
sAlias = OngletOuvre(ONG_Commande,sdSQLCommande.type,FI_QUINC_Onglet,sdSQLCommande.numero,sdSQLCommande.ligne,sdSQLCommande.type)
SINON
OngletOuvre(ONG_Commande,sdSQLCommande.type,FI_QUINC_Onglet,sdSQLCommande.numero,sdSQLCommande.ligne,sdSQLCommande.type)
FIN

HLitSuivant(sdSQLCommande)
FIN

ONG_Commande = sAlias
Message modifié, 14 décembre 2017 - 12:49