声明： 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
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 