1. Главная
  2. Готовые программы Visual basic

комбобокс - VB

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

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


textual

Код к задаче: «комбобокс - 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

Источник
Похожие ответы