这篇博客介绍了如何在VB6中设置组合框（ComboBox）的下拉列表宽度。通过使用`SendMessage`函数，可以获取（CB_GETDROPPEDWIDTH）和设置（CB_SETDROPPEDWIDTH）组合框的下拉宽度。在`Form_Load`事件中，代码演示了将组合框的下拉宽度设置为原来两倍的方法。
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
扫一扫
3083
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
