VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



The Daily Newbie Using the Choose() Function

by Matthew Roberts (26 Submissions)
Category: Coding Standards
Compatability: Visual Basic 3.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: (6 Votes)

04/28/2001 - Describes the usage of the Choose() function; A really neat but seldom used command in VB.

Rate The Daily Newbie Using the Choose() Function



content="text/html; charset=iso-8859-1">

Daily Newbie - 04/28/2001


 


v:shapes="_x0000_s1027">


The
Daily Newbie


“To Start Things
Off Right”


Fourth
Edition                   
                                     
April 28,
2001                      
                                                  
Free


v:shapes="_x0000_s1027">


 


 


About this
feature:



The initial plan for the Daily Newbie was to cover each function VB has to offer
in alphabetical order. I have now modified this plan slightly to skip over some of
the more advanced (or tedious) commands that I don't think the Newbie would benefit from.
Thanks again all who have written in support of this effort. It makes a difference.


Today's command is not widely known for some reason, but is faily useful. 
I have been guilty of writing functions that do the exact same thing several times. I think you will
like this one.



face="Arial">Today’s Keyword:
                             size="4" face="Arial"> Choose()


face="Arial">Name Derived
From:        
          



    size="2" face="Arial">Choose (of
  course) – “(1) : to make a selection"
 - Webster's online
  dictionary.


  

 
style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
margin-left:135.0pt;text-indent:-135.0pt">size="2" face="Arial">Used for                                  
Making a choice between several possible options.


style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
margin-left:135.0pt;text-indent:-135.0pt">size="2" face="Arial">VB Help Description:             Selects and returns a value from a list ofarguments.


style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
margin-left:135.0pt;text-indent:-135.0pt">size="2" face="Arial">Plain
English:    
                       Returns the option associated with the value passed it (I will just have to show you!)


style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
margin-left:135.0pt;text-indent:-135.0pt">size="2" face="Arial">Syntax:                                     Choose(index, Choice1, Choice2, etc...)


style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
margin-left:135.0pt;text-indent:-135.0pt">size="2" face="Arial">Usage:                                      strDecision = Choose(intChoice ,  "Just do it" ,  "Don't do it" ,  "It's your life" )
 


style="margin-left:135.35pt;text-indent:-135.35pt">face="Arial">Copy & Paste Code:






Today's code snippet will prompt for a month number and return a string
that corresponds to it.





 Dim Choice
 Dim strMonth As String
  Do
  Choice = Val(InputBox("Enter a Number (1-12):"))
  
  If Choice + 0 = 0 Then Exit Do
  
  strMonth = Choose(Choice, "Jan", "Feb", "Mar", "Apr", _
    "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
  
  MsgBox strMonth
  Loop

  style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
margin-left:135.0pt;text-indent:-135.0pt"> 


style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto;
margin-left:135.0pt;text-indent:-135.0pt">size="2" face="Arial">Notes: 


I really like the Choose function. It comes in handy for with evaluating which option button 
was clicked, or anything else that returns an index number. Unfortunatly, like the Array() command
covered a couple of articles ago, the Choose() function requires a seperate hard coded value for
each possible choice. This isn't neccesarily a bad thing, but I am allergic to hard coding, so it
just rubs me wrong. I guess the chances of the order of the months changing is pretty slim...



Things to watch out for: 


  • Although the Choose() Statement only returns a single value, it still evaluates each one. In effect, 
    it acts like a compact series of If...Then statements. This can result in the sometimes baffling behavior
    of displaying one message box with the correct value and many empty ones. For this reason, the results 
    of a Choose() statement should be returned to a variable before displaying it in a message box.



  • If the Index value passed in is null, an error will result. Therefore, if you are using a variant
    as your Index, you should add zero to it to initialize it as a number. This will make the default value zero, not null.



    Tomorrow's Keyword: Chr()




    Download this snippet    Add to My Saved Code

  • The Daily Newbie Using the Choose() Function Comments

    No comments have been posted about The Daily Newbie Using the Choose() Function. Why not be the first to post a comment about The Daily Newbie Using the Choose() Function.

    Post your comment

    Subject:
    Message:
    0/1000 characters