Choose Function

āφāĻ°ā§āϗ⧁āĻŽā§‡āĻ¨ā§āĻŸā§‡āϰ āϤāĻžāϞāĻŋāĻ•āĻž āĻšāϤ⧇ āύāĻŋāĻ°ā§āĻŦāĻžāϚāĻŋāϤ āĻŽāĻžāύ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇āĨ¤

āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:


Choose (Index, Selection1[, Selection2, ... [,Selection_n]])

āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ:

āχāύāĻĄā§‡āĻ•ā§āϏ: āĻāĻ•āϟāĻŋ āϏāĻ‚āĻ–ā§āϝāĻžāϏ⧂āϚāĻ• āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύ āϝāĻž āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰāĻž āĻšāĻŦ⧇ āĻāĻŽāύ āĻāĻ•āϟāĻŋ āĻŽāĻžāύ āωāĻ˛ā§āϞ⧇āĻ– āĻ•āϰ⧇āĨ¤

āύāĻŋāĻ°ā§āĻŦāĻžāϚāύ1: āϝ⧇āϕ⧋āύ⧋ āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύ āϝāĻž āϏāĻŽā§āĻ­āĻžāĻŦā§āϝ āĻĒāĻ›āĻ¨ā§āĻĻ⧇āϰ āĻāĻ•āϟāĻŋ āϧāĻžāϰāĻŖ āĻ•āϰ⧇āĨ¤

Choose āĻĢāĻžāĻ‚āĻļāύāĻŋāϟ āχāύāĻĄā§‡āĻ•ā§āϏ āĻŽāĻžāύ⧇āϰ āωāĻĒāϰ āĻ­āĻŋāĻ¤ā§āϤāĻŋ āĻ•āϰ⧇ āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύ⧇āϰ āĻāĻ•āϟāĻŋ āϤāĻžāϞāĻŋāĻ•āĻž āĻĨ⧇āϕ⧇ āĻāĻ•āϟāĻŋ āĻŽāĻžāύ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤ āϝāĻĻāĻŋ āχāύāĻĄā§‡āĻ•ā§āϏ = 1 āĻšā§Ÿ, āϤāĻžāĻšāϞ⧇ āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ āϤāĻžāϞāĻŋāĻ•āĻžāϰ āĻĒā§āϰāĻĨāĻŽ āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύāϟāĻŋ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇, āϝāĻĻāĻŋ āχāύāĻĄā§‡āĻ•ā§āϏ i = 2 āĻšā§Ÿ, āϤāĻžāĻšāϞ⧇ āĻĻā§āĻŦāĻŋāĻ¤ā§€ā§Ÿ āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύāϟāĻŋ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇, āĻāĻŦāĻ‚ āĻ…āύ⧁āϰ⧂āĻĒāĨ¤

āϝāĻĻāĻŋ āχāύāĻĄā§‡āĻ•ā§āϏ⧇āϰ āĻŽāĻžāύ ā§§ āĻāϰ āϚāĻžāχāϤ⧇ āϛ⧋āϟ āĻ…āĻĨāĻŦāĻž āϤāĻžāϞāĻŋāĻ•āĻžāĻ­ā§‚āĻ•ā§āϤ āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύ⧇āϰ āϏāĻ‚āĻ–ā§āϝāĻžāϰ āϚāĻžāχāϤ⧇ āĻŦ⧜ āĻšā§Ÿ āϤāĻžāĻšāϞ⧇ āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ āĻāĻ•āϟāĻŋ āύāĻžāϞ āĻŽāĻžāύ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

āĻŦāĻŋāĻ­āĻŋāĻ¨ā§āύ āĻ¸ā§āĻŸā§āϰāĻŋāĻ‚ āĻĨ⧇āϕ⧇ āĻāĻ•āϟāĻŋ āĻ¸ā§āĻŸā§āϰāĻŋāĻ‚ āύāĻŋāĻ°ā§āĻŦāĻžāϚāύ āĻ•āϰāĻžāϰ āϜāĻ¨ā§āϝ āύāĻŋāĻšā§‡āϰ āωāĻĻāĻžāĻšāϰāĻŖāϟāĻŋ āύāĻŋāĻ°ā§āĻŦāĻžāϚāύ āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇ āϝāĻž āĻĻā§āĻŦāϰāĻž āĻāĻ•āϟāĻŋ āĻŽā§‡āύ⧁ āĻ—āĻ āĻŋāϤ āĻšā§Ÿ:

Error codes:

5 Invalid procedure call

āωāĻĻāĻžāĻšāϰāĻŖ:


Sub ExampleChoose
Dim sReturn As String
    sReturn = ChooseMenu(2)
    Print sReturn
End Sub
 
Function ChooseMenu(Index As Integer)
    ChooseMenu = Choose(Index, "Quick Format", "Save Format", "System Format")
End Function

Please support us!