Ad:

VB.NET Discussion Thread
Marked Solved
Views: 16521

Jul 18th, 2004

combo box help

Expand Post »

i have four combo boxes in my form, each combo box has 2 or 3 selections

i need to check each combo box for a selection, if nothing is selected i need to have a error message come up in a message box

each selection in the combobox is woth different points so i am using a counter and when the user click the button it shows the total points in a message box

here is my code

VB.NET Syntax (Toggle Plain Text)
Private Sub btnAssessment_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAssessment.Click
        Dim intPtsCnt As Integer
 
        If cmbAge.SelectedIndex = -1 Then
            MessageBox.Show("Please Select Your Age", "Error")
            cmbAge.Focus()
        Else
            If cmbAge.SelectedIndex = 0 Then
                intPtsCnt = intPtsCnt + 1
            ElseIf cmbAge.SelectedIndex = 1 Then
                intPtsCnt = intPtsCnt + 2
            ElseIf cmbAge.SelectedIndex = 2 Then
                intPtsCnt = intPtsCnt + 3
            End If
        End If
 
 
        If cmbSmoke.SelectedIndex = -1 Then
            MessageBox.Show("Please Select", "Error")
            cmbSmoke.Focus()
        Else
            If cmbSmoke.SelectedIndex = 0 Then
                intPtsCnt = intPtsCnt + 4
            ElseIf cmbSmoke.SelectedIndex = 1 Then
            End If
        End If
 
        If cmbBP.SelectedIndex = -1 Then
            MessageBox.Show("Please Select", "Error")
            cmbBP.Focus()
        Else
            If cmbBP.SelectedIndex = 0 Then
                intPtsCnt = intPtsCnt + 2
            ElseIf cmbBP.SelectedIndex = 1 Then
            End If
        End If
 
        If cmbDiet.SelectedIndex = -1 Then
            MessageBox.Show("Please Select", "Error")
            cmbDiet.Focus()
        Else
            If cmbDiet.SelectedIndex = 0 Then
                intPtsCnt = intPtsCnt + 1
            ElseIf cmbDiet.SelectedIndex = 1 Then
            End If
        End If
 
        MessageBox.Show(Convert.ToString(intPtsCnt), "Total")
 
    End Sub
Private Sub btnAssessment_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAssessment.Click
        Dim intPtsCnt As Integer

        If cmbAge.SelectedIndex = -1 Then
            MessageBox.Show("Please Select Your Age", "Error")
            cmbAge.Focus()
        Else
            If cmbAge.SelectedIndex = 0 Then
                intPtsCnt = intPtsCnt + 1
            ElseIf cmbAge.SelectedIndex = 1 Then
                intPtsCnt = intPtsCnt + 2
            ElseIf cmbAge.SelectedIndex = 2 Then
                intPtsCnt = intPtsCnt + 3
            End If
        End If


        If cmbSmoke.SelectedIndex = -1 Then
            MessageBox.Show("Please Select", "Error")
            cmbSmoke.Focus()
        Else
            If cmbSmoke.SelectedIndex = 0 Then
                intPtsCnt = intPtsCnt + 4
            ElseIf cmbSmoke.SelectedIndex = 1 Then
            End If
        End If

        If cmbBP.SelectedIndex = -1 Then
            MessageBox.Show("Please Select", "Error")
            cmbBP.Focus()
        Else
            If cmbBP.SelectedIndex = 0 Then
                intPtsCnt = intPtsCnt + 2
            ElseIf cmbBP.SelectedIndex = 1 Then
            End If
        End If

        If cmbDiet.SelectedIndex = -1 Then
            MessageBox.Show("Please Select", "Error")
            cmbDiet.Focus()
        Else
            If cmbDiet.SelectedIndex = 0 Then
                intPtsCnt = intPtsCnt + 1
            ElseIf cmbDiet.SelectedIndex = 1 Then
            End If
        End If

        MessageBox.Show(Convert.ToString(intPtsCnt), "Total")

    End Sub

when i run the program and click the button all 4 error message boxes show up then it shows the total points, i want it to go through each combo box one at a time

Similar Threads

combo box in PHP
Want to use radio button or menu bar instead of combo box in Java
combo box in ASP
How do I limit text char in Combo box? in VB.NET

salating

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

2 posts
since Jul 2004

Permalink

Jul 19th, 2004

Re: combo box help

Hi,

If I am understanding you correctly, then all you need to do is add an Exit Sub after the Focus() in each check for -1.

An example:

VB.NET Syntax (Toggle Plain Text)
        If cmbAge.SelectedIndex = -1 Then
            MessageBox.Show("Please Select Your Age", "Error")
            cmbAge.Focus()
            Exit Sub
        Else
            ...
        If cmbAge.SelectedIndex = -1 Then
            MessageBox.Show("Please Select Your Age", "Error")
            cmbAge.Focus()
            Exit Sub
        Else
            ...

Eyrestes

Reputation Points: 10

Solved Threads: 1

Newbie Poster

Offline

3 posts
since Jul 2004

Permalink

Jul 20th, 2004

Re: combo box help

yea i actually did it like this

VB.NET Syntax (Toggle Plain Text)
        If cmbAge.SelectedIndex = -1 Then
            MessageBox.Show("Please Select Your Age", "No Selection")
            cmbAge.Focus()
        ElseIf cmbSmoking.SelectedIndex = -1 Then
            MessageBox.Show("Please Select Smoker or Nonsmoker", "No Selection")
            cmbSmoking.Focus()
        ElseIf cmbBloodPressure.SelectedIndex = -1 Then
            MessageBox.Show("Please Select Your Blood Pressure", "No Selection")
            cmbBloodPressure.Focus()
        ElseIf cmbDiet.SelectedIndex = -1 Then
            MessageBox.Show("Please Select Your Diet Type", "No Selection")
            cmbDiet.Focus()
        End If
 
        If cmbAge.SelectedIndex = 0 Then
            intCounter = intCounter + 1
        ElseIf cmbAge.SelectedIndex = 1 Then
            intCounter = intCounter + 2
        ElseIf cmbAge.SelectedIndex = 2 Then
            intCounter = intCounter + 3
        End If
        If cmbAge.SelectedIndex = -1 Then
            MessageBox.Show("Please Select Your Age", "No Selection")
            cmbAge.Focus()
        ElseIf cmbSmoking.SelectedIndex = -1 Then
            MessageBox.Show("Please Select Smoker or Nonsmoker", "No Selection")
            cmbSmoking.Focus()
        ElseIf cmbBloodPressure.SelectedIndex = -1 Then
            MessageBox.Show("Please Select Your Blood Pressure", "No Selection")
            cmbBloodPressure.Focus()
        ElseIf cmbDiet.SelectedIndex = -1 Then
            MessageBox.Show("Please Select Your Diet Type", "No Selection")
            cmbDiet.Focus()
        End If

        If cmbAge.SelectedIndex = 0 Then
            intCounter = intCounter + 1
        ElseIf cmbAge.SelectedIndex = 1 Then
            intCounter = intCounter + 2
        ElseIf cmbAge.SelectedIndex = 2 Then
            intCounter = intCounter + 3
        End If

it works both ways though

salating

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

2 posts
since Jul 2004

Permalink

Jul 20th, 2004

Re: combo box help

That's a more elegant solution. Well done.

Eyrestes

Reputation Points: 10

Solved Threads: 1

Newbie Poster

Offline

3 posts
since Jul 2004

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: Checking if a file is in Writing/Saving mode

Next Thread in VB.NET Forum Timeline: AutoCAD API and VB.NET

DaniWeb Message

Cancel Changes

User Name
Password