|
|
|
HScrollBar в ListBox
|
|||
|---|---|---|---|
|
#18+
Есть Listbox, в который вводятся строки текста. Как сделать горизонтальный ScrollBar для Listbox? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.07.2005, 23:55:54 |
|
||
|
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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.07.2005, 08:01:01 |
|
||
|
|
start [/forum/topic.php?fid=60&tid=2167476]: |
0ms |
get settings: |
6ms |
get forum list: |
12ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
45ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
27ms |
get tp. blocked users: |
1ms |
| others: | 194ms |
| total: | 299ms |
| 0 / 0 |
