Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Open Forms with popup menu
Message
From
21/12/2006 09:30:30
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Title:
Open Forms with popup menu
Miscellaneous
Thread ID:
01179538
Message ID:
01179538
Views:
50
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
Next
Reply
Map
View

Click here to load this message in the networking platform