Модераторы: Akina
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Вопрос про ComboBox 
:(
    Опции темы
Guest
Дата 10.9.2005, 09:59 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Как сделать чтобы ComboBox раскрывался не на 8 строк (по умолчанию), а на 20.
  Вверх
Spawn™Production®
Дата 10.9.2005, 13:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Тестер ПО, VB.NET Developer
**


Профиль
Группа: Участник
Сообщений: 398
Регистрация: 12.4.2005
Где: Зеленоград

Репутация: нет
Всего: 12
Код by Dufa.
Код
Private Type TPoint
x As Long
y As Long
End Type
Private Type TRect
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
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 GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As TRect) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As TPoint) As Long
Dim i As Integer
Public Sub Size_Combo(frm As Form, rCbo As ComboBox, Width, Height)
Dim PT As TPoint, Rct As TRect
frm.ScaleMode = vbPixels
Call GetWindowRect(rCbo.hwnd, Rct)
PT.x = Rct.Left
PT.y = Rct.Top
Call ScreenToClient(frm.hwnd, PT)
Call MoveWindow(rCbo.hwnd, PT.x, PT.y, Width, Height, True)
End Sub
Private Sub Form_Load()
For i = 0 To 100
Combo1.AddItem "item - " + CStr(i)
Next i
Call Size_Combo(Me, Combo1, Combo1.Width, 500) '500 - размер выпадающей области.
End Sub


Это сообщение отредактировал(а) Spawn™Production® - 10.9.2005, 13:27


--------------------
ОС: WinXP SP2 Rus
Frameworks: v1.0.3705, v1.1.4322, v2.0.50215, v2.0.50727
Сам кодю на VB (6.0 (почти забросил), 7.1, 8.0)
PM WWW   Вверх
Guest
Дата 10.9.2005, 20:59 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
ну и че? создает длинющую ComboBox по ширине а не по высоте.
то что в строках будет написано у меня уже задано в List (properties)
нужно просто сделать раскрытие списка на 20 строк.
  Вверх
Akina
Дата 14.9.2005, 09:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Свойство ComboBox.ListRows не поддержано в VB.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0512 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.