Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Open Forms with popup menu
Message
De
21/12/2006 09:30:30
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Titre:
Open Forms with popup menu
Divers
Thread ID:
01179538
Message ID:
01179538
Vues:
51
Dear Experts

On the click event of command button, I use following codes to open Forms.

All Forms open correctly, but sometimes, when I click command button then nothing happend. I mean no Form opens.

Please modfiy codes to work properly.
LOCAL SELEP
SELE=0

DEFINE POPUP ABC SHORTCUT RELATIVE FROM 8,75 TO 24,110   TITLE 'A B O U T'

DEFINE BAR 1 OF ABC PROMPT '\<1- The Prgrammer'FONT "Verdana",10 STYLE 'B' COLOR ,RGB(0,0,0,213,224,255)
DEFINE BAR 2 OF ABC PROMPT '\<2- The software'FONT "Verdana",10 STYLE 'B' COLOR ,RGB(0,0,0,213,224,255)
DEFINE BAR 3 OF ABC PROMPT '\<3- About us'FONT "Verdana",10 STYLE 'B' COLOR ,RGB(0,0,0,213,224,255)
DEFINE BAR 4 OF ABC PROMPT '\-'
DEFINE BAR 5 OF ABC PROMPT '\<4- Computer'FONT "Verdana",10 STYLE 'B' COLOR ,RGB(0,0,0,213,224,255)

ON SELECT BAR 1 OF ABC SELEP =1
ON SELECT BAR 2 OF ABC SELEP =2
ON SELECT BAR 3 OF ABC SELEP =3
ON SELECT BAR 4 OF ABC SELEP =4
ON SELECT BAR 5 OF ABC SELEP =5

Activate POPUP ABC

DO CASE
CASE SELEP=1
	DO form aware
CASE SELEP=2
	DO form help
CASE SELEP=3
	DO form system1
ENDCASE
thisform.REFRESH
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform