Установить количество открываемых строк в ComboBox 2 - Интерфейс - Интересные решения для программистов - Примеры кода

Интерфейс → Установить количество открываемых строк в ComboBox 2 → Visual Basic

Еще один пример показывает, как можно изменить количество выпадающих строк в ComboBox.

' Разместите на форме два элемента CommandButton, один элемент TextBox и ComboBox

'*********************************************
'КОД ФОРМЫ
'*********************************************

Option Explicit

Private Sub Command1_Click()
 Command1.Enabled = Not (Command1.Enabled)
 Command2.Enabled = Not (Command2.Enabled)
 Hook
End Sub

Private Sub Command2_Click()
 Command1.Enabled = Not (Command1.Enabled)
 Command2.Enabled = Not (Command2.Enabled)
 Unhook
End Sub

Private Sub Text1_Change()
 iListItems = Val(Text1)
 If iListItems < 1 Then iListItems = 1
End Sub

Private Sub Form_Load()
 Dim i As Integer
 For i = 1 To 51
  Combo1.AddItem "Строка " & i
 Next
 
 Command2.Enabled = False
 Text1 = "5"
 iListItems = 5
 lHookedhWnd = Combo1.hWnd
End Sub

'*********************************************
'КОД МОДУЛЯ
'*********************************************
Option Explicit

Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const GWL_WNDPROC = (-4)
Private Const LB_GETITEMHEIGHT = &H1A1
Private Const WM_CTLCOLORLISTBOX = &H134
Private lpPrevWndProc As Long

Private Type RECT
 Left As Long
 Top As Long
 Right As Long
 Bottom As Long
End Type

Public lHookedhWnd As Long
Public iListItems As Integer

Public Sub Hook()
 lpPrevWndProc = SetWindowLong(lHookedhWnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub

Public Sub Unhook()
 Dim lRetVal As Long
 lRetVal = SetWindowLong(lHookedhWnd, GWL_WNDPROC, lpPrevWndProc)
End Sub

Private Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
 Select Case uMsg
  Case WM_CTLCOLORLISTBOX
   Dim rc As RECT, lItemHeight As Long, lListHeight As Long
   Static bIgnore As Boolean
   Const LIST_ITEMS As Long = 20
   If Not bIgnore Then
    With rc
     lItemHeight = SendMessage(lParam, LB_GETITEMHEIGHT, 0, ByVal 0&)
     lListHeight = lItemHeight * iListItems + 2
     GetWindowRect lParam, rc
     bIgnore = True
     MoveWindow lParam, .Left, .Top, (.Right - .Left), lListHeight, True
     bIgnore = False
    End With
   End If
  Case Else
 End Select
End Function

combobox, count, line, vb, visual basic

KOS_MOS

Алексей

19.10.2008

Меню

Подписка на RSS:

Подпишись на RSS-ленту

Поиск

Облако тегов

	Интерфейс → Установить количество открываемых строк в ComboBox 2 → Visual Basic Еще один пример показывает, как можно изменить количество выпадающих строк в ComboBox. ' Разместите на форме два элемента CommandButton, один элемент TextBox и ComboBox '******************************************* 'КОД ФОРМЫ '***************************************** Option Explicit Private Sub Command1_Click() Command1.Enabled = Not (Command1.Enabled) Command2.Enabled = Not (Command2.Enabled) Hook End Sub Private Sub Command2_Click() Command1.Enabled = Not (Command1.Enabled) Command2.Enabled = Not (Command2.Enabled) Unhook End Sub Private Sub Text1_Change() iListItems = Val(Text1) If iListItems < 1 Then iListItems = 1 End Sub Private Sub Form_Load() Dim i As Integer For i = 1 To 51 Combo1.AddItem "Строка " & i Next Command2.Enabled = False Text1 = "5" iListItems = 5 lHookedhWnd = Combo1.hWnd End Sub '***************************************** 'КОД МОДУЛЯ '******************************************* Option Explicit Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long Private Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Const GWL_WNDPROC = (-4) Private Const LB_GETITEMHEIGHT = &H1A1 Private Const WM_CTLCOLORLISTBOX = &H134 Private lpPrevWndProc As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Public lHookedhWnd As Long Public iListItems As Integer Public Sub Hook() lpPrevWndProc = SetWindowLong(lHookedhWnd, GWL_WNDPROC, AddressOf WindowProc) End Sub Public Sub Unhook() Dim lRetVal As Long lRetVal = SetWindowLong(lHookedhWnd, GWL_WNDPROC, lpPrevWndProc) End Sub Private Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam) Select Case uMsg Case WM_CTLCOLORLISTBOX Dim rc As RECT, lItemHeight As Long, lListHeight As Long Static bIgnore As Boolean Const LIST_ITEMS As Long = 20 If Not bIgnore Then With rc lItemHeight = SendMessage(lParam, LB_GETITEMHEIGHT, 0, ByVal 0&) lListHeight = lItemHeight * iListItems + 2 GetWindowRect lParam, rc bIgnore = True MoveWindow lParam, .Left, .Top, (.Right - .Left), lListHeight, True bIgnore = False End With End If Case Else End Select End Function combobox, count, line, vb, visual basic KOS_MOS Алексей 19.10.2008 Ваше имя Ваш E-mail (если хотите отслеживать комментарии) Дoкажи, что ты не робот Текст комментария	Меню CodeIgniter Алгоритмы Базы данных Дата и Время Интернет Интерфейс Мультимедиа ОС и Железо Работа с текстом Разное Технологии Файлы Подписка на RSS: Подпишись на RSS-ленту Поиск Облако тегов .net array asp bash browser charset check class clean convert count create css curl database date delete directory download element email equivalent extension file find form format function get height html http ie image javascript jquery load mysql number page perl php random scriplet send shell size sql string text time url utf8 variable vb visual basic width window xml xslt