Snippet Library

none

'
' From a Use-Net posting by Randy Birch
'
Private Sub Command10_Click()

   Dim r As Long
   Dim sSelected As String
   Dim rc As RECT

   Dim avgWidth As Single
   Dim newWidth As Long

   Dim i As Long
   Dim NumOfChars As Long
   Dim LongestSoFar As Integer
   Dim LongestIndex As Long

  '----------------------------------------------------------
  'loop through the combo entries, using SendMessage
  'with CB_GETLBTEXTLEN to determine the longest item
  'in the dropdown portion of the combo
   For i = 0 To Combo1.ListCount - 1

      NumOfChars = SendMessage(Combo1.hwnd, CB_GETLBTEXTLEN, i, 0)
      If NumOfChars > LongestSoFar Then
         LongestSoFar = NumOfChars
         LongestIndex = i
      End If

   Next

  'get the length of the longest combo item
  'and calc its average width.  Add .5 to round up
   sSelected = (Combo1.List(LongestIndex))

   r = DrawText(Form1.hDC, sSelected, -1&, rc, DT_CALCRECT)
   avgWidth = rc.Right / Len(sSelected)

  'calc the combo's new width by multiplying the
  'average * number of characters, and adding the
  'system metrics for a scrollbar
   newWidth = (Len(sSelected) * avgWidth) + (cScrollWidth * 2)

  'resize the dropdown portion of the combo box
   r = SendMessage(Combo1.hwnd, CB_SETDROPPEDWIDTH, newWidth, 0)

  'reflect the new dropdown list width in Label4
   r = SendMessage(Combo1.hwnd, CB_GETDROPPEDWIDTH, 0, 0)

End Sub
;