Picture Box

[Dan]

Как засунуть в Picture Box скроллинг?
Подскажите.Запарился искать. Спасибо.заранее.
Помог мне только новичок. А у кого больше звезд. изгалялись над английским. Странно. Может. звездная болезнь?

[keks-n]

А что такое Pikture Box?

З. Ы. Для начала выучи английский... Хотя бы частично.

[GB826]

Это американский английский...

[Efiop]

Dan

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

Private Declare Function ShowScrollBar Lib "user32" (ByVal hWnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
Private Const SB_HORZ = 0
Private Const SB_VERT = 1
Private Const SB_BOTH = 3
Private hw As Long
Private Sub Command1_Click()
  ShowScrollBar hw, SB_BOTH, True
End Sub
Private Sub Command2_Click()
  ShowScrollBar hw, SB_BOTH, False
End Sub
Private Sub Form_Load()
    Command1.Caption = "Показать": Command2.Caption = "Убрать"
    hw = Picture1.hWnd   
End Sub
Private Sub Form_Unload(Cancel As Integer)
   ShowScrollBar hw, SB_BOTH, False
End Sub

[keks-n]

Ага... А потом мучится с падениями IDE, на End и Stop, из-за сабклассинга, который нужен, для ловли WM_HSCROLL и WM_VSCROLL...

[Viper]

ну щас он спросит как этим скроллиногом управлять... может быть

[RayShade]

Рicture box с ошибкой 2 раза написано...

[Tarik]

Рicture box с ошибкой 2 раза написано...

Хм... Новый бот-спеллчекер?

По существу: а взять из тулбокса обычный скроллбар и в пикчурбокс его поместить религия не позволяет?

[DirectXManiac]

Конечно спросит а как-же... Для чего же он писал как его поместить? Вариант: Для красоты не покактит