Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

select case

Posted on 1999-01-27
6
Medium Priority
?
152 Views
Last Modified: 2010-05-03
I'm making a calculator that requires the input of two out of seven variables. I figure there are about 42 possible combinations. I started by just using if , elseif etc. but quickly had such a mess I lost track of where I was. I'm thinking that maybe selsct case would be the way to go, but I've never used that before, could someone show me or have a better method. I'm using VB4 pro 16bit, my input variables are text6 - 12.
Thanks
0
Comment
Question by:ralphy
6 Comments
 
LVL 14

Accepted Solution

by:
waty earned 300 total points
ID: 1470873
Select Case Text6.Text
    Case "1":
           .....
    Case "Log":
          .....
    Case "+":
          .....
    Case Else
        ' *** Otherwise
End Select
0
 
LVL 3

Expert Comment

by:jjbyers
ID: 1470874
Change your text boxes to a control array. Change the index on text6 to 0, then change the name of the rest to text6 and answer yes about a control array.

Use this code to check the text boxes

Dim var1() As String
Dim licnt As Integer
Dim licnt1 As Integer

  licnt1 = 0
  For licnt = 0 To 6
    If Len(Text6(licnt)) <> 0 Then
      ReDim Preserve var1(licnt1)
      var1(licnt1) = Text6(licnt)
      licnt1 = licnt1 + 1
    End If
  Next licnt
  Debug.Print licnt1
  For licnt = LBound(var1) To UBound(var1) - 1
    Debug.Print "A " & var1(licnt)
  Next licnt

Hope this helps.
0
 
LVL 12

Expert Comment

by:mark2150
ID: 1470875
I agree that this is a case for a control array. Normally I'd set up a counter var and then sequence thru all of the controls in the array and increment the counter if one of the controls is non-blank. At the end of the loop, if the counter var is >=2 then you'll know at least two of your fields have been filled.

countvar = 0
for ndx = LBound( Cmd_array ) to UBount( Cmd_Array )
   if len( cmd_Array( ndx ).Text ) > 0 then countvar = countvar+1
next ndx
if countvar >1 then
 ... do stuff ...
else
 ... don't do stuff ...
endif

M

M

0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 1

Expert Comment

by:toys032498
ID: 1470876
Take a look at using Tags!  Check it out!
Anthony
0
 

Author Comment

by:ralphy
ID: 1470877
waty
    I don't understand what the four cases are or mean, please explain in a little bit of detail.
   Thanks
Ralphy
0
 
LVL 14

Expert Comment

by:waty
ID: 1470878
the value after the case are all the possible value. I will show you another example where you normally use an IF :

Select Case chkShowDetails.Value
        Case 0 :  '*** Unchecked
             frmDetails.Visible=False

        Case 1 :  '*** Checked
             frmDetails.Visible=True
             frmDetails.Show

        Case 2 :  '*** Grayed
             frmDetails.Visible=True
             frmDetails.Enabled=False
             frmDetails.Show

    End Select

0

Featured Post

New feature and membership benefit!

New feature! Upgrade and increase expert visibility of your issues with Priority Questions.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
Suggested Courses

926 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question