VB Forum / Controls / July 2008

Zero <Zero@discussions.microsoft.com>'s wild thoughts were
released on Thu, 17 Jul 2008 08:13:02 -0700 bearing the
following fruit:

The definitive answer is WAY more than you should ever put
in a listbox.

I'm serious. Having to scroll through thousands of entries!

--
Jan Hyde

https://mvp.support.microsoft.com/profile/Jan.Hyde

Unless you're trying to win a bar bet the answer is "It doesn't matter,
because you should never put anywhere near the amount of items in a list box
that are actually allowed."

The one about bytes is completely wrong, however.

You know, you could write a REALLY quick test program to find the answer....

(But I have to wonder: what exactly do you mean by "16-bit listbox
control"?)

List box and combo box controls
Maximum number of items is 32K
the limit on the size of each item is 1K (1024 bytes).

http://msdn.microsoft.com/en-us/library/aa240865(VS.60).aspx

LONGs worth if you use SendMessage
Other SendMessages operations do the other Box operations too.

sample for retrieving given the index is
Public Function BoxTextGet(oObj As Object, lIndex As Long) As String

   Dim lParam1 As Long
   Dim lParam2 As Long
   Dim lLen As Long
   Dim sTxt As String

   ' get length
   Select Case UCase$(TypeName(oObj))
   Case "LISTBOX"
       ' retreive form the list of a ListBox
       lParam1 = LB_GETTEXTLEN
       lParam2 = LB_GETTEXT

   Case "COMBOBOX"
       ' retreive form the list of a ComboBox
       lParam1 = CB_GETLBTEXTLEN
       lParam2 = CB_GETLBTEXT

   Case Else
       Exit Function

   End Select

   lLen = SendMessage(oObj.hwnd, lParam1, lIndex, -1)

   If lLen > 0 Then
       ' get text
       sTxt = Space$(lLen)
       SendMessage oObj.hwnd, lParam2, lIndex, ByVal sTxt
   End If

   BoxTextGet = sTxt

End Function 'BoxTextGet