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 Sun 14 December 2008 18:42

grumpy_kiki
Juste Inscrit !
Date d'inscription: 14 Dec 2008
Messages: 1

pb creation de menu Mapbasic

Bonjour,

je cherche à créer un menu pour enregistrer avec le choix entre "oui" et "non", renvoyant soit à "enregistrer table" soit à rien.
j'ai créé des sous-menus mais je ne sais pas créer les boutons oui/non, je ne sais mettre qu'une note informative, ce qui ne sert rien.
Voici mon programme type :

Include "C:\Program Files\MapBasic\MAPBASIC.def"
Include "C:\Program Files\MapBasic\MENU.def"

Declare Sub Main
Declare Sub enregistrer
Declare Sub Fin
'-----------------------------------------------------
Sub Main
Create Menu "test" As
    "enregistrer" calling enregistrer
Create Menu "essai" As
    "essai" as "test"
Create Menu "kiki" As
    "essai" As "essai",
    "(-",
    "Quitter" Calling Fin
Alter Menu Bar add "kiki"
End Sub
'--------------------------------------------------------
Sub enregistrer
    Note "enregistrer?"
end sub
'---------------------------------------------------------
Sub Fin
    End Program
End Sub


Merci de m'aider si vous avez une idée !

Hors ligne

 

#2 Sun 14 December 2008 20:35

Maurice
Membre
Lieu: Montpellier
Date d'inscription: 5 Sep 2005
Messages: 5331

Re: pb creation de menu Mapbasic

Bonjour
J'ai un doute sur l'ergonomie de ce que vous envisagez, d'autant que tout ça existe déjà dans l'interface MI...
Sinon on arrive a un résultat minimum avec:

Include "MAPBASIC.def"
Include "MENU.def"

Declare Sub Main
Declare Sub enregistrer
Declare Sub Fin
'-----------------------------------------------------
Sub Main
Create Menu "kiki" As
    "Enregistrer..." calling enregistrer,
    "(-",
    "Ne pas enregistrer..." Calling Fin
Alter Menu Bar add "kiki"
End Sub
'--------------------------------------------------------
Sub enregistrer
    Run Menu Command 105  ' ou 106, ou 109...
end sub
'---------------------------------------------------------
Sub Fin
    End Program
End Sub

Hors ligne

 

Pied de page des forums

Powered by FluxBB