• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Take all of the items in a combo box and insert them all into a string.

Take all of the items in a combo box and insert them all into a string.

Take all of the items in a combo box and insert them all into a string.

API Declarations


Dim sValue As String: Dim x As Integer




Rate Take all of the items in a combo box and insert them all into a string.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim iItems() As String: Dim iCount As Integer
Dim sValue As String: Dim x As Integer

iCount = cbo.ListCount
ReDim iItems(iCount)

For x = LBound(iItems) To UBound(iItems) - 1
    sValue = sValue & cbo.List(x) & sDelimiter
Next
ComboToString = sValue
End Function