Excel中combox可以设置listwidth,VB6中combo怎么设置?谢谢大家

谢谢,我要的不是加入item,而是加入的数据字符太长,显示不完整,怎么设置宽度!

我实在太菜了,可以告诉我这个涵数怎么用吗? SetComboWidth ((4))为何提示类型不匹配?

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                  (ByVal hwnd As Long, _
                  ByVal wMsg As Long, _
                  ByVal wParam As Long, _
                  lParam As Any) As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Sub SetComboWidth(cboIn As ComboBox)
    ' Resize the with of the dropdown portion of a combobox to accomodate the longest item
     
     Dim nCount As Long
     Dim nNumChars As Long
     Dim nLongestComboItem As Long
     Dim nNewDropDownWidth As Long
     Dim nOldScaleMode As Integer
     Dim nLongestComboItemIndex As Integer
     Dim oOldFont As Font
     
     ' Loop through the cboIn entries, to determine the longest item
     For nCount = 0 To cboIn.ListCount - 1
     nNumChars = SendMessage(cboIn.hwnd, CB_GETLBTEXTLEN, nCount, CLng(0))
     If nNumChars > nLongestComboItem Then
     nLongestComboItem = nNumChars
     nLongestComboItemIndex = nCount
     End If
     Next
     
     ' Save the parent's font and scale mode
     nOldScaleMode = cboIn.Parent.ScaleMode
     Set oOldFont = cboIn.Parent.Font
     
     cboIn.Parent.ScaleMode = vbPixels
     Set cboIn.Parent.Font = cboIn.Font
     
     ' Get Width of longest item in pixels
     nNewDropDownWidth = cboIn.Parent.TextWidth(cboIn.List(nLongestComboItemIndex))
     cboIn.Parent.ScaleMode = nOldScaleMode
     Set cboIn.Parent.Font = oOldFont
     
     ' Add width of vertical scrollbar
     If cboIn.ListCount > 8 Then
     nNewDropDownWidth = nNewDropDownWidth + GetSystemMetrics(SM_CYVSCROLL) + 7
     Else
     nNewDropDownWidth = nNewDropDownWidth + 7
     End If
     ' Resize the dropdown portion of the cboIn box
     SendMessage cboIn.hwnd, CB_SETDROPPEDWIDTH, nNewDropDownWidth, CLng(0)
    End Sub

[ 本帖最后由 yuk_yu 于 2010-3-19 12:03 编辑 ]

期待大家指点指点！

版主，如果我有个combo1(i)数组，怎样才能实现将我要显示的内容显示全？谢谢

见附件

我要的是Width,显示行的宽度 你的代码是Height,可以帮忙修改下吗?

[ 本帖最后由 yuk_yu 于 2010-3-22 14:20 编辑 ]

我是在Excel中用做的,Excel中可以直接设置listwidth.

对不起,是我让你困惑了,因为在EXCEL中很容易就能设置listwidth,但在VB6中好象没有现成的属性设置项,还是请大家帮帮忙!谢谢