Как убрать из ListBox эти тупые Scroll_ы? Помогите plz

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
zaf
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 194
Зарегистрирован: 27.03.2006 (Пн) 23:04

Как убрать из ListBox эти тупые Scroll_ы? Помогите plz

Сообщение zaf » 12.05.2006 (Пт) 22:34

Как убрать из ListBox эти тупые Scroll_ы? Помогите plz

BV
Thinker
Thinker
Аватара пользователя
 
Сообщения: 3987
Зарегистрирован: 12.09.2004 (Вс) 0:55
Откуда: Молдавия, г. Кишинёв

Сообщение BV » 12.05.2006 (Пт) 22:50

Выдающийся вопрос...

Во-первых, ListBox имеет (по умолчанию) только один вертикальный Scroll.
Во-вторых, тот появляется лишь в случае, когда пункты не умещаются в размеры контрола.
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16478
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 12.05.2006 (Пт) 22:54

есть функция SetWindowLong, а есть ещё такое понятие WS_VSCROLL

Дальше сами разбирайтесь (не думайте что я перестал быть добрым, просто уже засыпаю :drunken: )
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

zaf
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 194
Зарегистрирован: 27.03.2006 (Пн) 23:04

Сообщение zaf » 12.05.2006 (Пт) 23:07

BV писал(а):Выдающийся вопрос...

Во-первых, ListBox имеет (по умолчанию) только один вертикальный Scroll.
Во-вторых, тот появляется лишь в случае, когда пункты не умещаются в размеры контрола.


Просто у мя много листов!
Во всех много инфы и поэтому у всех скрол есть некрасиво так!
Хочу чтобы все листы прокручивались "автоматом" т.е. спомощью VScroll

Код: Выделить всё
For s = 0 To 9
List1(s).ListIndex = VScroll1.Value
Next s


s - количество листов

Типа таблицы ;)

zaf
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 194
Зарегистрирован: 27.03.2006 (Пн) 23:04

Сообщение zaf » 12.05.2006 (Пт) 23:19

Хакер писал(а):есть функция SetWindowLong, а есть ещё такое понятие WS_VSCROLL

Дальше сами разбирайтесь (не думайте что я перестал быть добрым, просто уже засыпаю :drunken: )


сделал я в яндексе поиск...
Но если я такое вставлю в код программы ( курсовик ) препод не то что мя завалит... :)

Если кто знает как очень просто избавиться то скажите!:)
Если нет то и ненада пусто скролы будут... Х*Й сними :!: :P

BV
Thinker
Thinker
Аватара пользователя
 
Сообщения: 3987
Зарегистрирован: 12.09.2004 (Вс) 0:55
Откуда: Молдавия, г. Кишинёв

Сообщение BV » 12.05.2006 (Пт) 23:23

Код: Выделить всё
Option Explicit

Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long

Private Const SB_VERT As Long = 1

Private Sub Form_Load()
    ShowScrollBar lstMain.hwnd, SB_VERT, False
End Sub
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;

zaf
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 194
Зарегистрирован: 27.03.2006 (Пн) 23:04

Сообщение zaf » 12.05.2006 (Пт) 23:37

BV писал(а):
Код: Выделить всё
Option Explicit

Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long

Private Const SB_VERT As Long = 1

Private Sub Form_Load()
    ShowScrollBar lstMain.hwnd, SB_VERT, False
End Sub

:shock: :? мдя
:arrow: спасибо :wink:

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 13.05.2006 (Сб) 7:25

zaf писал(а):Если кто знает как очень просто избавиться то скажите!:)
Если нет то и ненада пусто скролы будут... Х*Й сними :!: :P

zaf, предупреждение.
Lasciate ogni speranza, voi ch'entrate.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 62

    TopList