ComboBox Basics

I am learning on my own VB6 and have some basic questions:
Using a dropdown ComboBox I would like the commands as examples for the following:

Using a menuBox I would like the following in the simplist terms:

Add an item to the box
Remove an item
Clear the list
Print the list
Set alphabetically

LVL 13
Who is Participating?
sirbountyConnect With a Mentor Commented:
In an event of some sort...

Add an item to the box
  Combo1.AddItem {Item to Add}

Remove an item
  Combo1.RemoveItem({index number of item}
Clear the list

Print the list
  To a printer?  Hmm - I'll have to think on this one a bit.


Set alphabetically
Here's some good instructions for the above as well:
Offhand (though I've never had a need) - I'd say set up a loop to gather all your combo items for printing...

For x = 0 To Combo1.ListCount - 1
    strPrint = strPrint & vbCrLf & Combo1.List(x)
Next x
strPrint = Right(strPrint, Len(strPrint) - Len(vbCrLf))
printer.print strPrint
The new generation of project management tools

With’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

gonzal13RetiredAuthor Commented:
Please Close out this question and refund the points

gonzal13 - are you saying that your questions weren't answered?
I think I've answered most, if not all of them and see no reason why there should be a refund...
gonzal13RetiredAuthor Commented:
I did not refer to the notes for this question. On Thursday, I went to see the professor. Thus, I feel that since I did not refer to this site I should geet a rfund of points.

Here is the final code. It a complete working code and more detailed then you provided.

'Maintain a list box.
'Use dropdown combo box
'Use command Buttons

Private Sub cboClear_Click()

    'The list is named cboCombo1
    'The command clears the Combo1 list
End Sub

Private Sub cboCombo1_Change()

End Sub

Private Sub cboCount_Click()

    'The ListCount command is used with the message box
    'to view the number of lines in the list
    MsgBox "The number of Types is " & cboCombo1.ListCount
End Sub

Private Sub cboPrint_Click()

    'The ListCount returns the number of items in a list
    'If no item is selected, the ListIndex is set to -1.
    'The first item in the list is ListIndex 0 and ListCount
    'is always one more than the largest List Index
    ' Index is a database object that provides access to
    'Data in rows of a table, based on key values.
    Dim intIndex As Integer
    Dim intFinalValue As Integer
    intFinalValue = cboCombo1.ListCount - 1
    For intIndex = 0 To intFinalValue
    Printer.Print cboCombo1.List(intIndex)
    Next intIndex
End Sub

    'vbExclamation dislays using the Msb Box a
    'message found in quotes. Usually a warning Message.
    'Private Sub cmdADD_Click()
    'If cboCombo1.Text <> "" Then
    'cboCombo1.AddItem cboCombo1
    'MsgBox "Blank data", vbExclamation, "Error"
    'End If
    'End Sub

Private Sub cmdExit_Click()

End Sub

Private Sub cmdRemove_Click()

   'A combo box control combining the features of a text box
   'and list box.
   'This control allows the user to select an item either
   'by typing into a ComboBox or by selecting it from a list.
   'Remove an item from a ListBox or Combo Box.
   'vbInformation Display information using a combo box
   If cboCombo1.ListIndex <> -1 Then
    cboCombo1.RemoveItem cboCombo1.ListIndex
        MsgBox " First select Item to remove", vbInformation, _
        "No Selection made"
    End If
End Sub

Private Sub cmdSort_Click(Index As Integer)

    'Take the combo box list, name the row and sort

    cboCombo1.Recordset.sort = "bagles"
End Sub

'Private Sub mnuADD_Click()

'End Sub
'Private Sub mnuFile_Click()

'End Sub
Private Sub Form_Load()

End Sub
All Courses

From novice to tech pro — start learning today.