| Вопрос: Вопрос ListBox | Добавлено: 29.10.03 16:53 |
Автор вопроса:  Vit | Web-сайт: www.home-soft.jino-net.ru
|
|
Кто знает как отобразить данные ListBox'а в несколько столбцов. Пробовал со свойством Colum..., но он просто отображал данные из одного столбца в несколько столбцов с горизонтальной прокруткой, а не в виде таблицы. Т.е. как сделать нечто вроде объединённых ListBox'ов |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #1 | Добавлено: 30.10.03 09:07 |
|
1. Использовать ListView (в режиме Report). 2. Написать контрол самому. |
||
|
Номер ответа: 2 Автор ответа:  Kovalenko P.S. Вопросов: 3 Ответов: 4 |
Профиль | | #2 | Добавлено: 31.10.03 10:36 |
|
В модуле: Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const LB_SETTABSTOPS = &H192 В фору добавь ListBox (list1): Private Sub Form_Load() Dim TabSets(1) As Long TabSets(0) = 50 'второй столбец на 50/4=12,5 табуляций от края TabSets(1) = 100'третий столбец на 100/4=25 табуляций от края, что-то типа этого Call SendMessage(List1.hWnd, LB_SETTABSTOPS, 2, TabSets(0)) For i = 1 To 100 List1.AddItem String(Int(Rnd(1) * 10), "A") & Chr$(9) & String(Int(Rnd(1) * 10), "A") & Chr$(9) & String(Int(Rnd(1) * 10), "A") Next i End Sub |
||
Страница: 1 |