комбобокс - VB

Формулировка задачи:

как сделать так чтобы список не выпадал. программный код напишите пжл, тока не енаблед, а чтоб оно было видно как и обычно тока кнопка (стрелочка, треугольник как ищо) не действовала.

Код к задаче: «комбобокс - VB»

textual
Private Const CB_SHOWDROPDOWN = &H14F
Private Declare Function SendMessageByNum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Sub SetComboDropDown(cboCombo As ComboBox, ByVal bDown As Boolean)
Dim nRet As Long
nRet = SendMessageByNum(cboCombo.hwnd, CB_SHOWDROPDOWN, bDown, 0)
End Sub
 
Private Sub Combo1_DropDown()
Timer1.Enabled = True
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Timer1.Enabled = True Then Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
Call SetComboDropDown(Combo1, False)
End Sub

6   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ