VB 版 (精华区)

调整 Combo 下拉部分的宽度 

    声明：

Private Declare Function SendMessage Lib _

"USER32" Alias "SendMessageA" _

(ByVal hwnd As Long, ByVal Msg As Long, _

ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const CB_GETDROPPEDWIDTH = &H15F

Private Const CB_SETDROPPEDWIDTH = &H160

Private Const CB_ERR = -1

    函数：

' 取得 Combo 下拉的宽度

' 可以利用该函数比例放大或缩小宽度

Public Function GetDropdownWidth(cboHwnd As Long) As Long

Dim lRetVal As Long

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

If lRetVal <> CB_ERR Then

GetDropdownWidth = lRetVal

'单位为 pixels

Else

GetDropdownWidth = 0

End If

End Function

'设置 Combo 下拉的宽度

'单位为 pixels

Public Function SetDropdownWidth(cboHwnd As _

Long, 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