VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 调整 Combo 下拉部分的宽度
发表评论(0)作者:, 平台:, 阅读:14607, 日期:2000-03-12
调整 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