Case Without Select Case

Can A Case In A Select Case Statement Call Other Statements?
I have a Select Case statement where each case has 10 - 20 lines of code. If the user selects the "master" option, I would like that case to call all of the other cases. That way, I don't have to retype all the code.

For example, if you had a text box with a command button, the kind of case I'm looking for would look like:

Private Sub Command1_Click()Select Case Text1Case "A"Call cases "B" and "C"Case "B"MsgBox "B"Case "C"MsgBox "C"End SelectEnd Sub

So if the user typed "A" and clicked, there would be a "B" messagebox and a "C" messagebox.

Does anyone know if this can be done?

Thank you,

Steve Geller

---

How To Make VB's Select/case Mimic C's Switch/case
in C, I can do this

number=1;
switch(number)
{

case 1:
case 2:
case 3:
printf("
Case 1-2-3");
break;

default:
break

}


in VB when I try to do this

number = 1

select case number

case 1
case 2
case 3

case else
'none of the above

end select

the case else path is taken.

It appears that the case in C are or'd but in vb they are not

I also tried this

number = 1

select case number

case 1 or 2 or 3

case else
'none of the above

end select

but the else path was taken again.

Is there something I'm missing, or can't this be done in vb ?
I don't want to check for a range of values, just a few discrete values.

---

Temporarily Removing A Case From Case Select
hey, just wondering if it could be done.

i'm making a black-jack game for school, and i need a way to keep used cards from being chosen twice, and i'm using a case-select to do it. i've tried a few different things, such as a Do While loop, and various others.

i was also thinking i could make an array and dump all the used cards into it, and the compare them when the "Hit" button is pressed, but i'm not sure about the syntax and the coding for it.

i was also wondering if you guys knew of a better way to select the cards. writing a case select with 52 cases everytime looks terrible ...

so yeah, any suggestions?

---

Case Without Select Case? + Use A Variable As A Function?
I am making a maths quiz in VB6 for a school project, and i'm in a bit of a rut. Basically, i'm trying to write the code for when a user answers a question. The function (Addition, Subtraction, Multiplication, Division etc) is defined using randomly generated numbers (eg, 1 = "+").

So basically i've tried to say "if answer is equal to the equation, then do this, or do this"

I have the function setup like this (where label3.caption is the math function)



Code:
If Label3.Caption = 0 Then
Label3.Caption = "+"
ElseIf Label3.Caption = 1 Then
Label3.Caption = "-"
ElseIf Label3.Caption = 2 Then
Label3.Caption = "*"
ElseIf Label3.Caption = 3 Then
Label3.Caption = "/"
End If


I originally wanted to simply do something like "if firstnumber (label3.caption) secondnumber, then etc"

I couldn't figure out a way to do this, so i decided i would try a case select.
No matter what i do i get the error "Case Without Case Select"



Code:
Private Sub Command1_Click()
' if user's answer in the text box is correct or not show msg box, do array to store
' the score, etc

functioncase = Label3.Caption + 1

Select Case functioncase


Case 1
If Text1.Text = Label1.Caption + Label2.Caption Then
MsgBox "CORRECT"
Else
MsgBox "INCORRECT"


Case 2
If Text1.Text = Label1.Caption - Label2.Caption Then
MsgBox "CORRECT"
Else
MsgBox "INCORRECT"


Case 3
If Text1.Text = Label1.Caption * Label2.Caption Then
MsgBox "CORRECT"
Else
MsgBox "INCORRECT"


Case 4
If Text1.Text = Label1.Caption / Label2.Caption Then
MsgBox "CORRECT"
Else
MsgBox "INCORRECT"


Case Else
MsgBox "WFTF"
End Select

End Sub




I have no idea how to get this working!
Please share your knowledge with me.

---

Select Case Default *RESOLVED: Case Else*
Is there a default case? In C++ you simply insert a "Default:" into the select and it handles all other cases that you don't look for. Simply, a default case would be the 'else' of a select case statement. Something like this ....


VB Code:
yellow = "no" Select Case yellow     Case "yes": MsgBox "It is yellow."     Default : Msgbox "It is not yellow."End Select

... thanks.

---

Case Without Select Case Error For No Reason
Hi,

This is very nonsense. That error keeps popping up at run time for absolutely no reason as far as i'm concern because i can't think of ANY reason why it wouldn't work. IT is a simple tic-tac-toe game ( not finished yet ) and i hope you people can have a look at the source ( very short ) and solve that select case error.

many thnx

---

HOW TO CONVERT A FILE NAME FROM UPPER CASE TO LOWER CASE Or Make It Case Sensitive
Hi,

I have a folder path of my database that need to be case sensitive. Right now it works only on the lower case
when some one is using the Upper it does not work. Is this doable?

thanks,

stash

---

Skipping A CASE In Select Case...
Not sure exactly the best way to ask this, so I'll try bluntly.

I have a select case WITHIN a select case.

For the 1st case, I have 3 options
For the 2nd case, I have 4 options

such as...


Code:
Select Case FillMethod
Case 0 'Normal Fill Style
Select Case FillStyle
Case 0
Case 1
Case 2
Case 3
End Select
Case 1 'Center Out.
...
...
End Select
End Select
Lets say, FillMethod evaluates to 0
In that case, 0 and 1 (Of FillStyle) are both going to do the same thing, but i can not remove one in favor of the other, because it is used elsewhere in code.

Is there a way to do this? If FillStyle evaluates to Case 0, or Case 1, run the code ONCE, or replace the 2 Case statements with something like Case 0 OR 1 ?

---

Case Select Adding A New Case
is it possible to add a case to a select case object from within the code.

example:
i have a ascii file with customer adresses but every now and then there is an updated file with new customers, now i wont to import this file and a case for every adress, but this has to go automatic..so the code has to generate more cases and combobox1.additem

the code:

Code:
Private Sub UserForm_Initialize()

ComboBox1.AddItem "adress 1" 'ListIndex = 0
ComboBox1.AddItem "adress 2" 'ListIndex = 1
ComboBox1.AddItem "adress 3" 'ListIndex = 2
ComboBox1.AddItem "adress 4" 'ListIndex = 3
ComboBox1.AddItem "adress 5" 'ListIndex = 4
ComboBox1.AddItem "adress 6" 'ListIndex = 5

ComboBox1.Style = fmStyleDropDownList
ComboBox1.BoundColumn = 0
ComboBox1.ListIndex = 0

End Sub


Private Sub ComboBox1_Click()
Select Case ComboBox1.Value
Case 0
Label2.Caption = "adress 1"
Label3.Caption = "street 1"

Case 1
Label2.Caption = "adress 2"
Label3.Caption = "street 2"

Case 2
Label2.Caption = "adress 3"
Label3.Caption = "street 3"

Case 3
Label2.Caption = "adress 4"
Label3.Caption = "street 4"

Case 4
Label2.Caption = "adress 5"
Label3.Caption = "street 5"

Case 5
Label2.Caption = "adress 6"
Label3.Caption = "street 6"

End Select

End Sub

thx for any help.

regards,
Marco

---

End Select Without Select Case, But Select Case Exists...
Code:
Private Sub RecordControls_Click
Select Case Index
Case 0
On Error GoTo ErrorHandler
If MasterControl.Text = "" Then
MsgBox "You must specify a header in which to put the data.", vbInformation, App.Title
Exit Sub
End If
For i = 0 To Data.Count - 1
If Data(i).Text = "" Or DataType.Text = "" Then
MsgBox "One or more of the required fields have not been filled in.", vbInformation, "Cannot continue"
Exit Sub
End If
Next i
RecordSource = "SELECT * FROM " & MasterControl.Text & " ORDER BY Name"
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Databases" & MasterControl.Text & ".mdb;Persist Security Info=False"
rs.Open RecordSource, ConnectionString, adOpenKeyset, adLockOptimistic
For i = 1 To rs.RecordCount
If rs.BOF = False Then
rs.MoveFirst
End If
If rs.EOF = True Then Exit For
If Data(0).Text = rs!Name Then
MsgBox "Duplicate items not allowed", vbCritical, "Can't create record"
Exit Sub
Else
rs.MoveNext
End If
rs.AddNew
rs!Name = Data(0).Text
rs!DataType = DataType.Text
rs!Data = Data(1).Text
rs.Update
rs.Close
Set WkSpc = Nothing
Set rs = Nothing
OrganizerDatabase.ListItems.Add , , Data(0).Text
End Select
End Sub


As you can see, Select Case is the very first line in my code, yet it gives me the aforementioned error. Why is this?

Also, I need to know how to catch cancel button clicks when creating a new datalink dynamically.

This code opens a box that creates a new dynamic datalink to the database you choose. It's just like right-clicking a udl file and selecting properties.


Code:
Set conn = dl.PromptNew


I want to know how to catch cancel button clicks from this box.

---

Case Without Select Case?
Dim veryeasy as string


Randomize
veryeasy = (Int(Rnd * 25) + 1)
Select Case veryeasy
Case 1
blah blah
blah
blah

Case 2
blah blah
blah

Case 3
blah
blah

etc...




The game reads Case 1 fine but then I get an error on 'case 2' saying that I'm using case without select case but I have select case right at the top. I shouldn't have to put 'select case veryeasy' for each case. I've never done it this way and I've never gotten an error. Why now? What could I have possibly done?

---

Case Without Select Case
when the following code is executed it gives me an error saying "Case without case select". I'm looking at the case select statement



Code:
Private Sub tabConversion_Click(PreviousTab As Integer)
'select the table to load into the listboxes by using the tab property of the
'tabs to find the required table
Dim intTab As Integer
Dim strFromCheck As String
Dim intCounter As Integer
intTab = tabConversion.Tab
Select Case intTab
Case Is = 0
'tells where to get the records from
adoConversion.Refresh
adoConversion.RecordSource = "SELECT * FROM tblAcceleration"
lstAccelerationFrom.Clear 'clear the FROM list box
lstAccelerationTo.Clear 'clear the TO list box
'read the record set while it isn't the end of the record set
Do While Not adoConversion.Recordset.EOF
'set the string equal to the record
strNewFrom = adoConversion.Recordset("fldFrom")
strNewTo = adoConversion.Recordset("fldToType")
'test to see if the string has already been added to the list box
If strOldFrom <> strNewFrom Then
' Add item to the FROM list box
lstAccelerationFrom.AddItem adoConversion.Recordset("fldFrom")
End If
If strOldTo <> strNewTo Then
'Add item to the TO list box
lstAccelerationTo.AddItem adoConversion.Recordset("fldToType")
End If
'The old is really old the next time around
strOldFrom = strNewFrom
strOldTo = strNewTo
'move to the next record set
adoConversion.Recordset.MoveNext
Case Is = 1
'tells where to get the records from
adoConversion.Refresh
adoConversion.RecordSource = "SELECT * FROM tblAngle"
lstAngleFrom.Clear 'clear the FROM list box
lstAngleTo.Clear 'clear the TO list box
'read the record set while it isn't the end of the record set
Do While Not adoConversion.Recordset.EOF
'set the string equal to the record
strNewFrom = adoConversion.Recordset("fldFrom")
strNewTo = adoConversion.Recordset("fldToType")
'test to see if the string has already been added to the list box
If strOldFrom <> strNewFrom Then
' Add item to the FROM list box
lstAngleFrom.AddItem adoConversion.Recordset("fldFrom")
End If
If strOldTo <> strNewTo Then
'Add item to the TO list box
lstAngleTo.AddItem adoConversion.Recordset("fldToType")
End If
'The old is really old the next time around
strOldFrom = strNewFrom
strOldTo = strNewTo
'move to the next record set
adoConversion.Recordset.MoveNext
next case etc...

---

Case Without Select Case
i cant spot the error in this code, but it happens everytime i press the command button. can anyone spot it.....


Code:
Private Sub cmdExtraFunction_Click(Index As Integer)

lngPo2 = Val(lblDisplay.Caption)

Select Case Index


Case 0 'case positve to negative
lblDisplay.Caption = -Val(lblDisplay.Caption)

Case 1 'case 1/x
If Val(lblDisplay.Caption) <> 0 Then
lblDisplay.Caption = 1 / Val(lblDisplay.Caption)

Case 2 'case percentage
lblDisplay.Caption = firstnum * Val("." & lblDisplay.Caption)

Case 3 'case squareroot
If Val(lblDisplay.Caption) = 0 Then
lblDisplay.Caption = "Error"
Exit Sub
Else
lblDisplay.Caption = Sqr(Val(lblDisplay.Caption))
End If

Case 4 'case power 2
If Abs(Val(lblDisplay.Caption)) < 46300 Or Abs(Val(lblDisplay.Caption)) > -46300 Then
lblDisplay.Caption = Str((lngPo2 * lngPo2))
ElseIf Abs(Val(lblDisplay.Caption)) > 46300 Or Abs(Val(lblDisplay.Caption)) < -46300 Then
MsgBox ("The Number Is Too Large or Too Small")
End If

End Select

End Sub
thanks in advance.. been bugging me for 10 minutes now (rolls eyes knowing its probably something trivial)

---

Select Case Statement(Case "xxx")
eg.
message = InputBox$("What u want to turn on", "Testing")
Select Case message
Case "light on": MsgBox "Light turns on"
Case "light off": MsgBox "Light turns off"
Case "fan on": MsgBox "fan turns on"
Case "fan off": MsgBox "fan turns off"
Case Else: MsgBox "no orders"
End Select

Qns: Is there any commands that I can use,in the case"xxx", to irregardless of the capital or small letters. So If i input "FaN On", MsgBox " fan turns on" will appears

understand...???
Help!!!

---

I Get "Case Without Select Case", But There IS A Select Case!
VB Code:
For i = 0 To UBound(Script)  sLine = Split(Script(i), " ")  Select Case UCase(sLine(0))   Case "BACKGROUND"    Me.BackColor = sLine(1)       Case "GO"    i = sLine(1)   Case "LINE"    'Unload cLine(Line(1))    'Load cLine(Line(1))    If UCase(sLine(1)) = "NEW" Then    sLine(1) = cLine.Count + 1         cLine(sLine(1)).X1 = sLine(2)    cLine(sLine(1)).Y1 = sLine(3)    cLine(sLine(1)).X2 = sLine(4)    cLine(sLine(1)).Y2 = sLine(5)    cLine(sLine(1)).BorderColor = sLine(6)    cLine(sLine(1)).Visible = True   [b]Case "SLEEP"[/b]    Sleep sLine(1)   Case "'"     GoTo 2   Case Else    If MsgBox("""" & Script(i) & """" & vbNewLine & "this is an invalid sline of code. End Script?", vbYesNo) = vbYes Then Exit Sub  End Select  DoEvents2 Next
The bold line is where i get this error...apparently VB is buggy.

---

Office VB: Howto Compare W/o Case Comparing Letter Case???
In Office VB script (EXCEL):


Say a cell contains "jello"

MyString = "Jello"
If MyString = ActiveCell.value Then Whatever

That will fail becase of the capital "J". So, how do I make an If then statment to compare a variable to a cell without comparing the case of the cell value against the string.

If the cell equals "Jello" or "JeLLo" or "JELLO"
I want: if "jello" = "JELLO" give a true


Thanks for any help!

---

Case Select In Report, Select Expert Formula For Crystal Reports RDC
I am using Crystal 8 RDC in my VB app. I run a number of reports with paramaters which run beautifully. Typicall when I Enter a Selection formula in the Select Expert it will look something like:

{ado.Issuer} Is like {?IssuerParm}

Can anyone give me an example of how to use an If statement or a Case Select in the Select Expert of Crystal Reports RDC?

---

Select Case Structure Question How To Select Two Conditionsat A Time?
hi
i am using combobox and listbox. I want to use select case structure
using both combo1 and list1.I know that it can be handled easyly by
using nested if sutructure,but want to know what say select case structure
im using this but it not works for both at a time. tell me is it possible
to use ?? if yes then plz tell me what the code is because
i don't know about the select case structure very much.
THANKS


VB Code:
Private Sub Form_Load() Combo1.Clear    Combo1.AddItem "one"        Combo1.AddItem "two"            Combo1.AddItem "three"                Combo1.AddItem "four"    List1.Clear        List1.AddItem "1"            List1.AddItem "2"                List1.AddItem "3"                    List1.AddItem "4"  End Sub   Private Sub Command1_Click()   Select Case (Combo1.ListIndex And List1.ListIndex)     Case 0 And 0        MsgBox "one 1"             Case 0 And 1                    MsgBox "one 2 "                            Case 0 And 2                                MsgBox "one 3 "            End Select End Sub

---

Replace Ignoring Case, But Not Saving Changed Case?
Is there a simple way to use replace() to ignore the case when it comes to searching and replacing but not changing the whole string to that case?

example

Code:
Replace$(lcase(vFileList(X)), txtReplace.Text, txtReplaceWith.Text)


That will work but convert my while string to lower case after

---

Change All Upper Case To Lower Case In Text1
How can change all upper case to lower case letter in text1 on a command click?

---

UPPER CASE/LOWER CASE NA DOTHER TXT THINGS
1)

I need a textbox to be all in upper case
I have tried the code
Code:
Private sub Text1_Change()
text1.ucase
End Sub



THere an err Member or Data not found. What code should i use


2) When a textbox is over 3 charecter long how do i make the focus go to the nxt textbox and how do i know when the txt box is > 3 charecter long?

3)
How do i read a paffic line of text from a file
 so not reading every line just somthing like
e.g LINE 8?


Thx

---

Change Lower Case To Title Case In Excel VBA
I want to go through a column on my spread sheet and change the case of the text to title case. Is there a function that does it? I searched, but if I don't know what it is called it is very difficult to find. I thought that including the Word objects I might find something there, but not yet.

Thanks,

Scott
The worst thing about wearing glasses is them being on your face.
Nothing is impossible, it just looks that way.

---

Lower Case And Upper Case -- Keypress
Hi all,

My question is the following:

I want the first letter in the textbox to be a UCase and the others LCase
i know the code that i have written here is only for LCase, how do i combine the UCase code with the LCase code.

If KeyAscii >= 65 And KeyAscii <= 90 Then
KeyAscii = KeyAscii + 32
Exit Sub
Else
End If

Any help will be appreciated

Regards
Gimly

---

Upper Case + Lower Case Problem ??
Hi,

I have encountered an ODBC error as following, hope someone can help ?

Access database using ODBC as connector
A data field "Note No" defined as "text" in the database
A textbox with user input "BH32214a"

Operation: RS!noteno = txtNoteNo.text

Error occured if txtNoteNo.text = "BH32214a"
Okay if txtNoteNo.text = "BH32214"

Actually, error occured if any lower case character inputted.

Why ????

---

The Case Of The Disappearing Addins [Case Closed]
Hi Folks,
On one of the PC's that my team uses, the addins are not populated in the Addin Manager List.
This happens, when we logon to the NT domain using our NT ID's.

However if we use the local Administration login, all addins appear in list.

The PC is has NT Workstation with Service Pack 6a. Visual Studio 6 with SP 3

Has anybody faced this problem?

Cheers,
Abhijit

---

Select Case Help
I'm trying to create a Blackjack game but I'm having trouble with my select case code, here's a portion of it -


Code:
playerscore(1) = 0
playerscore(2) = 0
For x = 1 To playercount
Select Case playerscard(playercount)
Case Is = "Heart1" Or "Diamond1" Or "Club1" Or "Spade1"
playerscore(1) = playerscore(1) + 1
playerscore(2) = playerscore(2) + 11
Case Is = "Heart2" Or "Diamond2" Or "Club2" Or "Spade2"
playerscore(1) = playerscore(1) + 2
playerscore(2) = playerscore(2) + 2
That code is used to calculate the players score, there are two score in case the user has an ace. (there is also more cases for the select case)

My problem is that when I run the code I get a type mismatch error on this line -


Code:
Case Is = "Heart1" Or "Diamond1" Or "Club1" Or "Spade1"
I have the playerscard(playercount) variable declared as a string. Does anyone know how to fix this error? Also, if anyone has a better idea about calculating the score instead of select case, I'd like to hear it. :P

---

Select Case Using And
Hello, I am working with VBA in Excel

I am having a select case problem with the And operator, my code goes as such:


Code:
.
.
.
Select Case FinishInch

Case Is <= 0.00033
FinishInt = 60
Case Is > 0.00033 And FinishInch <= 0.00037
FinishInt = 59
Case Is > 0.00037 And FinishInch <= 0.000415
FinishInt = 58
.
.
.
End Select

The problem is if for instance FinishInch is = .000410 it should give a value for FinishInt as 58. however it doesnt seem to be getting past the first AND operator.
No matter what the value of FinishInch is, as long as it is > .00033 FinishInt gets a value of 59.

I have tried defining FinishInch as double, single and variant with no success.

What am I doing wrong???

Thanks
Place

---

Using Select Case With Or
I have the following example:

Sub myexample()
Dim myVar As String

myVar = "one"

Select Case myVar
'this is where the error occurs
Case "One" Or "Two"
MsgBox "ok1"
Case "Three"
MsgBox "ok2"
End Select

End Sub

I get a type mismatch error where the case is "one" or "two". Does anyone know how to make the select case work for different possabilites.

---

Select Case
Hey I am having trouble using the Select Case code in vb. I am trying to use it for a progress bar. I have the program designed to initiate Timer1 whenever cmdInstall is clicked. I am trying to place the Select Case in the timer sub in conjunction with a progress bar. every case i want the progress bar to increase by so many increments, and I want so much code to be completed as well.. any help? Thanks!

---

Select Case Help
I'm trying to do the following in VB, but it doesn't work, if x is set to "1" or to "2", The Case Else: still triggers.
Here's the code:

Code:
Sub Main()
Dim x As String

x = "1"

Select Case x
Case "1" Or "2":
MsgBox "1 or 2"

Case Else:
MsgBox "else"

End Select

End Sub
If I change the Case "1" Or "2" to Case ".vbs" Or ".js" I get an type missmatch error on that line. I'm sure it's becuase of Or operating as adding those two together or something, but I can't find any solution for it.

How should I do this?

---

Select Case Help..?
Im making a grading program for my Intro to Pro VB class with VB6 im missing something in this code and I can't figure it out.. please help me asap..

Code:
Private Sub cmdCalculate_Click()
sngTest1 = Val(txtTest1.Text)
sngTest2 = Val(txtTest2.Text)
sngTest3 = Val(txtTest3.Text)
If ValidGrade(txtTest1.Text) And ValidGrade(txtTest2.Text) And ValidGrade(txtTest3.Text) Then
mintAverage = (sngTest1 + sngTest2 + sngTest3) / 3
End If
txtGrade.Text = mstrGrade
Select Case mintAverage
Case "0" To "58"
mstrGrade = "F"
Case "59" To "68"
mstrGrade = "D"
Case "69" To "78"
mstrGrade = "C"
Case "79" To "89"
mstrGrade = "B"
Case "90" To "100"
mstrGrade = "A"
End Select
End Sub
*ValidGrade is a private funcation for validating the numbers input into txtTest1.text thru txtTest3.text is between 0 and 100*
If all code is needed let me know and ill post it all... it isnt that long..
when I click Calculate when testing it it takes the mstrGrade for the first ="X" no matter what it is, i want it to take the average of the 3 txtTests then use that to determine the grade, so that using the select case depending on what its between it defines txtGrade.text as the letter grade associated with that specific case.
THanks for any help... I need this done by tuesday plus another project.

---

Select Case Help
1. It asks me for the date of the holiday
2. I enter which day, ie, Monday, Tuesday, etc
3. It should go to the proper Case and then perform that action.

It does't do it, so could anybody take a look and see what I am doing wrong.



Code:
Response = MsgBox(HolidayMessage, HolidayStyle, HolidayTitle)
If Response = vbYes Then
HolidayDate = InputBox(InpHolidayMsg, InpHolidatyTitle, InpHolidayDef)
Else: End
End If

Select Case HolidayDate
Case Monday
Range("C6:C14").Value = "Holiday"

'Range("C16:C28").Value = "Holiday"


Case Tuesday
Range("D6:D14").Value = "Holiday"


Case Wednesday
Range("E6:E14").Value = "Holiday"

Case Thursday
Range("F6:F14").Value = "Holiday"

Case Friday
Range("G6:G14").Value = "Holiday"

Case Saturday
Range("H6:H14").Value = "Holiday"

Case Sunday
Range("I6:I14").Value = "Holiday"
End Select
'End If
End Sub

---

Select Case Help????
ok i have a form with 14 option buttons on them named optMod(0), optMod(1), optMod(2), etc....

right now i am using if then statements

If optMod(0).Value = True Then
MsgBox ("0")
ElseIf optMod(1).Value = True Then
MsgBox ("1")
ElseIf optMod(2).Value = True Then
MsgBox ("2")
.
.
.
.
End If

what is the correct syntax to re-write this using a case statement... i have used them, but never with option buttons.

---

Select Case Vs. If...then
if i am testing a condition like the following, is it better to use a case statement or a bunch of if then statements.

i have a grid that i am looping through... i check to see if the text is red, yellow, green, blue, orange, or purple... once it checks the text it changes the field to a different word

'red' becomes 'obsolete'
'yellow' becomes 'sole source'
etc....

so should i use a case or if statement and why?

---

If...Then...Else Or Select Case?
I have a form with many command buttons. Depending on which comdbutton is clicked, a [pre-saved] document will open. It may be a document, spreadsheet, .pdf file, database or whatever. I'm pretty sure I can do it as an If...Then...Else statement but would a Select Case statement be more efficient?. I had it running with each button having it's own click event but it won't compile - 'out of memory error'. If the Select Case Statement is the better option, can someone give me an example to kick it off please? I am using VB5 and VB6. Also, how the hell do I get an .avi or .swf file to run as a click event?

Thanks heaps
Jim

---

Need Help With Select Case...
Well, I thought everything was going alright until I noticed my tickers/counters weren't updating correctly. Here's my code:

Code:
tcount = 8

Select Case Len(tcount)
Case "1"
frmBis.imgT4.Picture = LoadPicture(App.Path & "Images" & tcount & ".bmp")

Case "2"
intDigit1 = Left$(tcount, 1)
frmBis.imgT3.Picture = LoadPicture(App.Path & "Images" & intDigit1 & ".bmp")
frmBis.imgT4.Picture = LoadPicture(App.Path & "Images" & Right$(tcount, 1) & ".bmp")

Case "3"
intDigit2 = Left$(tcount, 1)
intDigit1 = Left$(tcount, 2)
intDigit1 = Right$(intDigit1, 1)
frmBis.imgT2.Picture = LoadPicture(App.Path & "Images" & intDigit2 & ".bmp")
frmBis.imgT3.Picture = LoadPicture(App.Path & "Images" & intDigit1 & ".bmp")
frmBis.imgT4.Picture = LoadPicture(App.Path & "Images" & Right$(tcount, 1) & ".bmp")
End Select

Now, the "tcount = 8" is NOT part of the code. It will always start out as "0" and then the code will do "tcount = tcount + 1". I just have it in there so that I can test high numbers without having to step through the code in order to increase the count.
Anyway, no matter what value I make tcount, the "Len(tcount)" will always return a 2. All the variables included (tcount, intDigit, etc) are stored as integers. My "ticker/counter" will allow up to 9999, though more than 99% of the time, numbers will not go above 250.
Does anyone know why this is not working? I could probably just set a new variable to store the length of tcount before I enter the Select Case, right? It would be something like this:

Code:
tcount = 8665

NewVar = Len(tcount)

Select Case NewVar
Case "1"
frmBis.imgT4.Picture = LoadPicture(App.Path & "Images" & tcount & ".bmp")

Case "2"
intDigit1 = Left$(tcount, 1)
frmBis.imgT3.Picture = LoadPicture(App.Path & "Images" & intDigit1 & ".bmp")
frmBis.imgT4.Picture = LoadPicture(App.Path & "Images" & Right$(tcount, 1) & ".bmp")

Case "3"
intDigit2 = Left$(tcount, 1)
intDigit1 = Left$(tcount, 2)
intDigit1 = Right$(intDigit1, 1)
frmBis.imgT2.Picture = LoadPicture(App.Path & "Images" & intDigit2 & ".bmp")
frmBis.imgT3.Picture = LoadPicture(App.Path & "Images" & intDigit1 & ".bmp")
frmBis.imgT4.Picture = LoadPicture(App.Path & "Images" & Right$(tcount, 1) & ".bmp")
End Select
Would this be better to do or does it really matter? If you need any more info, please let me know.

Thanks!

---

Select Case
can anyone give me an example of how a select case works?

---

Select Case?
how can i do this?

select case x
case is <90 and is>3
do something
case is>0 and is <4
do something else
end select

i need to know how to use the IS and AND in a case statement to test if something is in a certain range

---

Using OR In A Select Case
Just wondering if one can use OR in a case?


Code:
Select Case p_RawRecord(p_FieldNumber)
Case "IV" Or "IVORY"
p_FinalRecord(14) = "IVORY"

Case "BK" Or "BLACK" Or "BLK"
p_FinalRecord(14) = "BLACK"

Case "WH" Or "WHITE"
p_FinalRecord(14) = "WHITE"

Case "GY" Or "GRAY"
p_FinalRecord(14) = "GRAY"

Case "LT GY" Or "LTGY" Or "LT GRAY" Or "LIGHT GRAY"
p_FinalRecord(14) = "LT GRAY"

Case "BR" Or "BROWN"
p_FinalRecord(14) = "BROWN"

End Select

Otherwise i can just do individule cases for each case.

Thanks

---

Select Case
I need to make a tic tac toe game and use the DragDrop Event, and DragIcon and DragMode properties to make it work.

I am stuck on how to write code to check for a winning tic tac toe combinaiton.

I know that there are 8 combinations of indexes of the imgBoard control where all three images are the same and result in a winner of that current source control (being the last image dragged and dropped onto the board)

indexes that are winners:
0, 3, 6
1, 4, 7
2, 5, 8
0, 1, 2
3, 4, 5
6, 7, 8
0, 4, 8
2, 4, 6

I tried a series of if...else...then loops to check if the source.picture matched the image control in the imgBoard array, but I am getting an error with my if...else....then loop.

Please point me in the right direction.

---

Select Case
Can anyone see why I am able to calculate correctly using this select statment? If I enter a number < 199, it doesnt calculate until it hits 0.6. If I enter 199, it will calculate at 0.5 like it should.
Most of the number I enter will not calculate correctly, most will calculate on the 0.6.
Have any ideas, see any problem with my statement?

Private Sub cmdCalc_Click()
'CHECK VALUE OF TEXT BOX COUNT TO DETERMINE RATE
If IsNumeric(txtCount) Then
Select Case txtCount
Case 1 To 199
msngEarned = Val(txtCount) * 0.5
Case 200 To 399
msngEarned = Val(txtCount) * 0.55
Case 400 To 599
msngEarned = Val(txtCount) * 0.6
Case Is >= 600
msngEarned = Val(txtCount) * 0.65
End Select

Thanks
Dale

---

Select Case
How would I make a select case so that whenever in a specified string there is one of the cases it does the assigned commands?

---

Select Case
Hi all. Please help.

I'm using a select case statement on 2 conditions namely on a controls left and top property. Here the code snippet:

Dim TopPos As Integer, LeftPos As Integer
TopPos = imgVideo(i).Top
LeftPos = imgVideo(i).Left
Select Case LeftPos And TopPos
Case LeftPos = 60, TopPos = 120
imgVideo(i).Top = TopPos - 60
Case LeftPos = 60, TopPos = 3480
imgVideo(i).Left = LeftPos + 60
Case LeftPos = 3840, TopPos = 120
imgVideo(i).Left = LeftPos - 60
Case LeftPos = 3840, TopPos = 3780
imgVideo(i).Top = TopPos - 60
End Select

The problem is that no case statement is executed. If I debug the program I see that the value of LeftPos = 60 and TopPos = 120, but the corresponding case statement isn't executed.

What could b the problem? Is my syntax wrong or what?
Thanks for the help.

---

Right$ In Select Case
I have the code belose in the LostFocus event of a combo box:
The combobox is populated from a Access Table.
For 2 of the dates there is a Matinee performance so in the combobox they are listed as 7/23/2005 MAT.
When the form is submitted there is a field in another table in the db where there is a date/time field for the date and a text field for the matinee.
I want to split string from the combo box in the event a matinee performance is selected so that the date selected can go into the date field in the proper format.

The Problem: When the date with "MAT" following it is selected in the combobox the select case falls past the case statement for that selection and on to the Case Else statment (where I get a Type Mis-Match error)

What syntax should I use to get this statement to work?

Code:
Private Sub cmbAttended_LostFocus()
'cmbattended.text=7/23/2005 MAT
Dim sDate() As String

Select Case cmbAttended.Text
Case "Mail In"
dDate = "NULL"
sMatMail = "Mail In"
Case Right(cmbAttended.Text, 3) = "MAT" '<---This is the wrong Syntax?
sDate = Split(cmbAttended.Text, " ")
dDate = CDate(sDate(0))
sMatMail = "Matinee"
Case Else
dDate = CDate(cmbAttended.Text)
sMatMail = "NULL"
End Select


End Sub

As always thank you in advance

Bart

---

Help With Select Case!!
There has to be a better way to preform this or just make it shorter... Anyone have any ideas?


Code:
Private Sub SetPiece_Index(CellIndex As Integer, PieceType As Pieces)
Select Case CellIndex
Case 1
SetPiece 1, 2, PieceType
Case 2
SetPiece 1, 4, PieceType
Case 3
SetPiece 1, 6, PieceType
Case 4
SetPiece 1, 8, PieceType
Case 5
SetPiece 2, 1, PieceType
Case 6
SetPiece 2, 3, PieceType
Case 7
SetPiece 2, 5, PieceType
Case 8
SetPiece 2, 7, PieceType
Case 9
SetPiece 3, 2, PieceType
Case 10
SetPiece 3, 4, PieceType
Case 11
SetPiece 3, 6, PieceType
Case 12
SetPiece 3, 8, PieceType
Case 13
SetPiece 4, 1, PieceType
Case 14
SetPiece 4, 3, PieceType
Case 15
SetPiece 4, 5, PieceType
Case 16
SetPiece 4, 7, PieceType
Case 17
SetPiece 5, 2, PieceType
Case 18
SetPiece 5, 4, PieceType
Case 19
SetPiece 5, 6, PieceType
Case 20
SetPiece 5, 8, PieceType
Case 21
SetPiece 6, 1, PieceType
Case 22
SetPiece 6, 3, PieceType
Case 23
SetPiece 6, 5, PieceType
Case 24
SetPiece 6, 7, PieceType
Case 25
SetPiece 7, 2, PieceType
Case 26
SetPiece 7, 4, PieceType
Case 27
SetPiece 7, 6, PieceType
Case 28
SetPiece 7, 8, PieceType
Case 29
SetPiece 8, 1, PieceType
Case 30
SetPiece 8, 3, PieceType
Case 31
SetPiece 8, 5, PieceType
Case 32
SetPiece 8, 7, PieceType
End Select

frmMain.Cell(CellIndex).Picture = frmMain.Images.ListImages.Item(PieceType).Picture
End Sub

---

Select Case
is there a better code for this?

Code:
Select Case MAIN64K.Label9(0).Caption
Case 0
lblcredit.Caption = "0"
Case 1
lblcredit.Caption = "1"
Case 2
lblcredit.Caption = "2"
Case 3
lblcredit.Caption = "3"
Case 4
lblcredit.Caption = "4"
Case 5
lblcredit.Caption = "5"
End Select
Select Case MAIN64K.Label9(1).Caption
Case 0
lblcredit.Caption = "0"
Case 1
lblcredit.Caption = "5"
Case 2
lblcredit.Caption = "10"
Case 3
lblcredit.Caption = "15"
Case 4
lblcredit.Caption = "20"
Case 5
lblcredit.Caption = "25"
End Select
Select Case MAIN64K.Label9(2).Caption
Case 0
lblcredit.Caption = "0"
Case 1
lblcredit.Caption = "10"
Case 2
lblcredit.Caption = "20"
Case 3
lblcredit.Caption = "30"
Case 4
lblcredit.Caption = "40"
Case 5
lblcredit.Caption = "50"
End Select
Select Case MAIN64K.Label9(3).Caption
Case 0
lblcredit.Caption = "0"
Case 1
lblcredit.Caption = "20"
Case 2
lblcredit.Caption = "40"
Case 3
lblcredit.Caption = "60"
Case 4
lblcredit.Caption = "80"
Case 5
lblcredit.Caption = "100"
End Select

---

Select Case
Is it possible to have 2 different values as the criteria for selection by case or must I use an If statement. I have 2 variables with and want to fill a third based on the 2.

I hope I explained this ok?

---

Select Case
16 text boxes named mix(0).text... mix(15).text

under the 'got focus' event, i want which ever text box that has the focus to then display the word "hello"

how would i write a select case statement for that?

i know the structure is something like:


Code:
Private Sub mix_GotFocus(Index As Integer)

Select Case name

case 1:

case 2:

End Sub

im not sure hwo to do it though in this instance. thanks in advance for any help!

---

Select Case
Can you help me with this please? Here is the code:
Dim intTotalPrice As Integer
intTotalPrice = txtReg.Text
Select Case intTotalPrice
Case optSem1.Value = True
lblTotal.Caption = intTotalPrice * 100
Case optSem1.Value = True And chkDisc.Value = True
lblTotal.Caption = (intTotalPrice * 100) - 0.1
Case optSem2.Value = True
lblTotal.Caption = intTotalPrice * 120
Case optSem2.Value = True And chkDisc.Value = True
lblTotal.Caption = (intTotalPrice * 120) - 0.01
End Select

What I have is a frame with 2 option buttons in it. And a check box with a 10% discount, not in the frame.

What I need it to do if option one then the cost is $100 * number entered. If option button 2 then $120 * number entered. and then if the 10% discount check box is checked then subtract .1 from the total.


Please help thanks

---