P.T.A.M.
Administrator
Joined: 08 Oct 2003
Posts: 752
Location: Greece
|
 Posted: Oct 10th, 2003 08:38 AM Post subject: Show/Hide a ComboBox dropdown list |
 |
|
| Code: | 'declare api procedures
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
'declare constants
Public Const CB_SHOWDROPDOWN = &H14F
Public Sub DropList(WhichCombo As ComboBox, DropItDown As Boolean)
On Error Resume Next
Dim vTmpLng as Long
vTmpLng = SendMessage(WhichCombo.hWnd, CB_SHOWDROPDOWN, _
ByVal Abs(CLng(DropItDown)), ByVal CLng(0))
End Sub |
Usage :
| Code: | | DropList Form1.Combo1, True |
_________________
No one is completely useless. They can at least be an example of what to avoid. |
|
