Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
VFP Wish, ICASE()..
Message
De
22/10/1999 20:32:51
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
VFP Wish, ICASE()..
Divers
Thread ID:
00280338
Message ID:
00280338
Vues:
60
... to resemble iif(). Would anybody find this useful? Here's an example of what I mean, run this:
nNum = 3
wait window icase(nNum = 1, '1', nNum = 2, '2', nNum = 3, '3')

func icase
lparam teCase1, teReturn1, ;
	teCase2, teReturn2, ;
	teCase3, teReturn3, ;
	teCase4, teReturn4, ;
	teCase5, teReturn5, ;
	teCase6, teReturn6, ;
	teCase7, teReturn7, ;
	teCase8, teReturn8, ;
	teCase9, teReturn9, ;
	teCase10, teReturn10, ;
	teCase11, teReturn11, ;
	teCase12, teReturn12, ;
	teCase13, teReturn13, ;
	teCase14, teReturn14, ;
	teCase15, teReturn15
local leReturn

do case
	case teCase1
		leReturn = teReturn1
	case teCase1
		leReturn = teReturn2
	case teCase3
		leReturn = teReturn3
	case teCase4
		leReturn = teReturn4
	case teCase5
		leReturn = teReturn5
	case teCase6
		leReturn = teReturn6
	case teCase7
		leReturn = teReturn7
	case teCase8
		leReturn = teReturn8
	case teCase9
		leReturn = teReturn9
	case teCase10
		leReturn = teReturn10
	case teCase11
		leReturn = teReturn11
	case teCase12
		leReturn = teReturn12
	case teCase13
		leReturn = teReturn13
	case teCase14
		leReturn = teReturn14
	case teCase15
		leReturn = teReturn15
endcase

return leReturn
endfunc
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform