Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
18.07.2005, 23:55:54
|
|||
|---|---|---|---|
HScrollBar в ListBox |
|||
|
#18+
Есть Listbox, в который вводятся строки текста. Как сделать горизонтальный ScrollBar для Listbox? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
19.07.2005, 08:01:01
|
|||
|---|---|---|---|
HScrollBar в ListBox |
|||
|
#18+
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 Const LB_SETHORIZONTALEXTENT = &H194 Private Sub Form_Load() Call lstAddHScroll(List1) End Sub Sub lstAddHScroll(lst As ListBox) For a = 0 To lst.ListCount - 1 If Me.TextWidth(lst.List(a)) > m Then m = Me.TextWidth(lst.List(a)) Next SendMessageByNum lst.hwnd, LB_SETHORIZONTALEXTENT, m / 15 + 5, 0 End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&tablet=1&tid=2167476]: |
0ms |
get settings: |
8ms |
get forum list: |
15ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
47ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
41ms |
get tp. blocked users: |
1ms |
| others: | 205ms |
| total: | 332ms |
| 0 / 0 |
