vb6设置下拉框的宽度

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Const CB_GETDROPPEDWIDTH = &H15F

Const CB_SETDROPPEDWIDTH = &H160

Const CB_ERR = -1

Private Function SetDropdownWidth(ByVal cboHwnd As Long, ByVal NewWidthPixel As Long) As Boolean

    Dim lRetVal As Long

    lRetVal = SendMessage(cboHwnd, CB_SETDROPPEDWIDTH, NewWidthPixel, 0)

    

    If lRetVal <> CB_ERR Then

        SetDropdownWidth = True

    Else

        SetDropdownWidth = False

    End If

End Function

Private Function GetDropdownWidth(ByVal cboHwnd As Long) As Long

    Dim lRetVal As Long

    lRetVal = SendMessage(cboHwnd, CB_GETDROPPEDWIDTH, 0, 0)

    If lRetVal <> CB_ERR Then

        GetDropdownWidth = lRetVal

    Else

        GetDropdownWidth = 0

    End If

End Function

Private Sub Form_Load()

    Call SetDropdownWidth(Combo1.hwnd, GetDropdownWidth(Combo1.hwnd) * 2)

End Sub​​​​