Information générale
Titre:
Adding Do Case in menu code snippet
Here's what I get from a sample of a book.
STORE 1 TO mchoice
DIMENSION scrollarray(5)
STORE 'Apples' TO scrollarray(1)
STORE 'Bananas' TO scrollarray(2)
STORE 'Limes' TO scrollarray(3)
STORE 'Strawberries' TO scrollarray(4)
STORE 'Lemon' TO scrollarray(5)
=ASORT(scrollarray)
@2,2 GET mchoice FROM scrollarray;
SIZE 7,20 VALID scrollproc()
READ
PROCEDURE scrollproc
@12,18 CLEAR
@12,2 SAY 'Your selection: '
@12,18 SAY scrollarray(mchoice)
SHOW GETS
RETURN .T.
Is there any possibility to modify the menu to use DO CASE.
Example,
READ PROCEDURE scrollproc
DO CASE
CASE mchoice = 1
SAY 'Apple'
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement