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 писал(а):Если кто знает как очень просто избавиться то скажите!:)
Если нет то и ненада пусто скролы будут... Х*Й сними
Сейчас этот форум просматривают: SemrushBot и гости: 31