BV писал(а):Выдающийся вопрос...
Во-первых, ListBox имеет (по умолчанию) только один вертикальный Scroll.
Во-вторых, тот появляется лишь в случае, когда пункты не умещаются в размеры контрола.
For s = 0 To 9
List1(s).ListIndex = VScroll1.Value
Next s
Хакер писал(а):есть функция SetWindowLong, а есть ещё такое понятие WS_VSCROLL
Дальше сами разбирайтесь (не думайте что я перестал быть добрым, просто уже засыпаю)
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
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
zaf писал(а):Если кто знает как очень просто избавиться то скажите!:)
Если нет то и ненада пусто скролы будут... Х*Й сними![]()
Сейчас этот форум просматривают: Google-бот и гости: 2