调整Combo下拉部分的宽度

声明:
私有声明函数sendmessage lib "user32 "别名" sendmessage a "(

ByVal hwnd为Long，ByVal Msg为Long，

ByVal wParam As Long，ByVal lParam As Long)

私有构造CB_GETDROPPEDWIDTH = &H15F

私有常数CB_SETDROPPEDWIDTH = &H160

私有常量CB_ERR = -1

函数:
'获取组合下拉菜单的宽度。

您可以使用此功能来放大或缩小宽度。

公共函数GetDropdownWidth(cboHwnd为Long)为Long

Dim lRetVal一样长

lRetVal = SendMessage(cboHwnd，CB _ GETDROPPEDWIDTH，0，0)

如果lRetVal CB_ERR，则

GetDropdownWidth = lRetVal

单位是像素。

其他

GetDropdownWidth = 0

如果…就会结束

结束功能

设置组合下拉菜单的宽度

单位是像素。

公共函数SetDropdownWidth(cboHwnd为Long，NewWidthPixel为Long)

作为布尔值

Dim lRetVal一样长

lRetVal = SendMessage(cboHwnd，CB _ SETDROPPEDWIDTH，NewWidthPixel，0)

如果lRetVal CB_ERR，则

SetDropdownWidth = True

其他

SetDropdownWidth = False

如果…就会结束

结束功能