Nous utilisons des cookies pour vous garantir la meilleure expérience sur notre site. Si vous continuez à utiliser ce dernier, nous considèrerons que vous acceptez l'utilisation des cookies. J'ai compris ! ou En savoir plus !.
banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

Annonce

Rencontres QGIS 2025

L'appel à participation est ouvert jusqu'au 19 janvier 2025!

#1 Tue 18 January 2011 17:47

Marie75
Participant occasionnel
Date d'inscription: 18 Apr 2009
Messages: 13

Faire apparaitre des champs dans une liste déroulante sous MAPBASIC

Bonjour,

Débutante sur MapBasic, j'ai pour l'instant réussi à creer un menu et une boite de dialogue avec la possibilité de selectionner des variables.
Le problème est que je n'arrive pas à faire apparaitre le nom des variables dans mes fenêtres.
Je pense qu'en vous montrant ma synthaxe ce sera plus clair:

'Création d'un menu
'------------------------------------------------------------------------------

Declare Sub Main
Declare sub proc_remplir_liste
dim tablo () as string
dim i as integer


'Création d'une boite de dialogue
'------------------------------------------------------------------------------
Sub Main
Include "C:\Program Files\MapInfo\MapBasic\MAPBASIC.def"

Create Menu "ESSAI" As
"Génération de cartes" ,
"Autre"
Alter Menu Bar Add "ESSAI"
Open Table "D:\ETUDES_MP\XX\MAPBASIC\DONNEES TEST\ZONES.tab" As ZONES
redim tablo(1)
Tablo(1)="cliquer"
Dialog
Title "Selectionner la thématique"
Width 300
Height 200
Position 150,150

control listbox
position 20,50
width 60
height 100
title from variable tablo ()
calling proc_remplir_liste
id 1

control listbox
position 100,50
width 60
height 100
title from variable tablo ()
calling proc_remplir_liste
id 2

control cancelbutton
title"Quitter"
position 110, 180
width 50
id 5

End sub

'procedure permettant de remplir les listes déroulantes
'------------------------------------------------------------------------------
sub proc_remplir_liste
dim i as integer
dim tablo () as string
    I=0
    For i=1 to tableinfo(ZONES, TAB_INFO_NCOLS)
    Tablo(i)= columninfo(ZONES, "col"&I, col_info_name)
Next
'Alter control 1 Title from variable tablo ()
'Alter control 2 Title from variable tablo ()

End sub

Pouvez vous m'aider?

Hors ligne

 

#2 Tue 18 January 2011 17:53

Marie75
Participant occasionnel
Date d'inscription: 18 Apr 2009
Messages: 13

Re: Faire apparaitre des champs dans une liste déroulante sous MAPBASIC

Pour info : MAPBASIC me dit NO ERRORS mais MAPINFO me dit "Valeurs Hors limites"

Hors ligne

 

Pied de page des forums

Powered by FluxBB