комбобокс - VB
Формулировка задачи:
как сделать так чтобы список не выпадал. программный код напишите пжл, тока не енаблед, а чтоб оно было видно как и обычно тока кнопка (стрелочка, треугольник как ищо) не действовала.
Код к задаче: «комбобокс - VB»
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

Эта работа вам не подошла?
Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.
СДЕЛАЙТЕ РЕПОСТ
6 голосов, оценка 4.000 из 5
Похожие ответы