Programming Forums > Application Development > Visual Basic

FredVietnam · Feb 13th, 2006, 9:22 PM

i have one if and i am wanting to insert multiple thens how could i go about doing this?

For Example

Quote:

Private Sub Cmd.Start_Click()

If Combo.Text = 1 Then MsgBox Text1.Text

End Sub

how would i add more thens to this one IF ?

DaWei · Feb 13th, 2006, 10:12 PM

Investigate elses and elseifs. Otherwise you sound like a teen girl: She goes, then I go, then she goes, then I go....

MrMan9879 · Feb 13th, 2006, 11:26 PM

There's also "And" is there not? So, you could do "If <condition> Then <some code> And <Some more code>".

So, your code would look like this (just an example) -

(Toggle Plain Text)

Private Sub Cmd.Start_Click()

If Combo.Text = 1 Then MsgBox Text1.Text And MsgBox Text2.Text

End Sub

If I am wrong, somebody correct me, as I cannot test this... my Visual Basic 2005 program will not work properly. Everytime I open it, it crashes when I try to do a few things.

DaWei · Feb 14th, 2006, 7:42 AM

Okay. That's not correct. "And" is a logical function which makes it part of the expression being dealt with in evaluating the THEN, not a separate path of execution. Here's an actual example:

(Toggle Plain Text)

    If name = "" Then

        result = MsgBox("     Name required for replace operation     ", , "Error")

    ElseIf oldRow <> newRow Then

        result = MsgBox("     Name and row don't agree     " + Chr(13) + "        Clear the row number     ", vbOKOnly, "Problem With Find")

    Else:

        For counter = 1 To 13
            If counter <> 55 Then

                Set curCell = Worksheets("Sheet1").Cells(counter, 2)
                myVal = curCell.Value
                Set curCell = Worksheets("Sheet1").Cells(newRow, counter)
                curCell.Value = myVal

            End If
        Next counter
    End If

Kaja Fumei · Feb 14th, 2006, 12:51 PM

Instead of "AND", you can use a semicolon (:) to seperate statements on the same line of a single line IF-THEN statement (didn't know that until a minute ago). Example:

(Toggle Plain Text)

If Combo.Text = 1 Then statement1: statement2

DaWei · Feb 14th, 2006, 1:09 PM

That has nothing to do with the question. AND is not a statement separator. AND cannot be replaced with a semicolon. Separating statements on one line is not the same thing as instituting a conditional, alternate path of execution.

Kaja Fumei · Feb 14th, 2006, 1:26 PM

Quote:

Originally Posted by DaWei

That has nothing to do with the question. AND is not a statement separator. AND cannot be replaced with a semicolon. Separating statements on one line is not the same thing as instituting a conditional, alternate path of execution.

I'm sorry it came out sounding it was a replacement for AND or that AND was a statement seperator. I know neither is true. What I meant to say was it was a way to seperate statement on a single line if-then. Apparaently, I misinterpreted the original question as "how do i add more lines to inside a THEN?" and not "how do i add more cases/conditionals/alternate paths of execution?"

Feb 13th, 2006, 10:12 PM	#2
DaWei Resident Grouch Join Date: Jun 2005 Posts: 6,453 Rep Power: 10	Investigate elses and elseifs. Otherwise you sound like a teen girl: She goes, then I go, then she goes, then I go.... __________________ Abstraction doesn't make it impossible to write bad code; it makes it possible to write superior code. Contributor's Corner: Grumpy on C++ Exceptions DaWei on Pointers

Feb 13th, 2006, 11:26 PM	#3
MrMan9879 Programmer Join Date: Sep 2005 Location: Nanaimo, BC, Canada Posts: 97 Rep Power: 0	There's also "And" is there not? So, you could do "If <condition> Then <some code> And <Some more code>". So, your code would look like this (just an example) - (Toggle Plain Text) Private Sub Cmd.Start_Click() If Combo.Text = 1 Then MsgBox Text1.Text And MsgBox Text2.Text End Sub Private Sub Cmd.Start_Click() If Combo.Text = 1 Then MsgBox Text1.Text And MsgBox Text2.Text End Sub If I am wrong, somebody correct me, as I cannot test this... my Visual Basic 2005 program will not work properly. Everytime I open it, it crashes when I try to do a few things.

Feb 14th, 2006, 7:42 AM	#4
DaWei Resident Grouch Join Date: Jun 2005 Posts: 6,453 Rep Power: 10	Okay. That's not correct. "And" is a logical function which makes it part of the expression being dealt with in evaluating the THEN, not a separate path of execution. Here's an actual example: (Toggle Plain Text) If name = "" Then result = MsgBox(" Name required for replace operation ", , "Error") ElseIf oldRow <> newRow Then result = MsgBox(" Name and row don't agree " + Chr(13) + " Clear the row number ", vbOKOnly, "Problem With Find") Else: For counter = 1 To 13 If counter <> 55 Then Set curCell = Worksheets("Sheet1").Cells(counter, 2) myVal = curCell.Value Set curCell = Worksheets("Sheet1").Cells(newRow, counter) curCell.Value = myVal End If Next counter End If If name = "" Then result = MsgBox(" Name required for replace operation ", , "Error") ElseIf oldRow <> newRow Then result = MsgBox(" Name and row don't agree " + Chr(13) + " Clear the row number ", vbOKOnly, "Problem With Find") Else: For counter = 1 To 13 If counter <> 55 Then Set curCell = Worksheets("Sheet1").Cells(counter, 2) myVal = curCell.Value Set curCell = Worksheets("Sheet1").Cells(newRow, counter) curCell.Value = myVal End If Next counter End If __________________ Abstraction doesn't make it impossible to write bad code; it makes it possible to write superior code. Contributor's Corner: Grumpy on C++ Exceptions DaWei on Pointers

Feb 14th, 2006, 12:51 PM	#5
Kaja Fumei Hobbyist Programmer Join Date: Oct 2005 Posts: 134 Rep Power: 3	Instead of "AND", you can use a semicolon (:) to seperate statements on the same line of a single line IF-THEN statement (didn't know that until a minute ago). Example: (Toggle Plain Text) If Combo.Text = 1 Then statement1: statement2 If Combo.Text = 1 Then statement1: statement2

Feb 14th, 2006, 1:09 PM	#6
DaWei Resident Grouch Join Date: Jun 2005 Posts: 6,453 Rep Power: 10	That has nothing to do with the question. AND is not a statement separator. AND cannot be replaced with a semicolon. Separating statements on one line is not the same thing as instituting a conditional, alternate path of execution. __________________ Abstraction doesn't make it impossible to write bad code; it makes it possible to write superior code. Contributor's Corner: Grumpy on C++ Exceptions DaWei on Pointers

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Programming Forums > Application Development > Visual Basic

Multiple Thens