Как сделать форму со ScrollBar`ами

[jangle]

Подскажите, как сделать такую форму на VB?
Например на PowerBASIC это делается относительно просто, пример в аттаче. Мне нужен подобный пример только на VB6...

[keks-n]

Удивительно просто, фишка в изменении стиля через SetWindowLong. Инфу о скроллбарах заносишь, аналогично PB.

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

Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const WS_HSCROLL = &H100000
Private Const WS_VSCROLL = &H200000

Private Sub Form_Load()
SetWindowLong Me.hwnd, -16, GetWindowLong(Me.hwnd, -16) Or (WS_HSCROLL Or WS_VSCROLL)
Me.Width = Me.Width + 1
End Sub

[jangle]

keks-n - спасибо, а как обрабатывать события от скролов?
VB ведь не работает с циклом обработки сообщений...

[Viper]

есть такое слово сабклассинг и слово это есть в кирпичах

[IIIypuk]

Можно проще. Все контролы на PictureBox и два скролл бара. Дешево и сердито.