Visual Basic - Примеры, Как осуществить скролинг картинки.

Visual Basic. Программирование на Visual Basic

..........................................................................................................................

[ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ Microsoft Agent 2.0 ] [ Пособие ] [ Уроки ] [ Разное ]

..........................................................................................................................

Как осуществить скролинг картинки.
Данный пример покажет, как можно осуществить скролинг большой картинки в маленьком окне.
Вам необходимо добавить 2 PictureBox, а также VScrollBar и HScrollBar (вертикальную и горизонтальную полосу прокрутки).

Option Explicit
Private Sub Form_Load()
HScroll1.Min = 0
HScroll1.Max = ScaleX(Picture1.Picture.Width, 8, vbTwips) - Picture2.Width
HScroll1.LargeChange = 10 * Screen.TwipsPerPixelX
HScroll1.SmallChange = Screen.TwipsPerPixelX
VScroll1.Min = 0
VScroll1.Max = ScaleX(Picture1.Picture.Height, 8, vbTwips) - Picture2.Height
VScroll1.LargeChange = 10 * Screen.TwipsPerPixelY
VScroll1.SmallChange = Screen.TwipsPerPixelY
HScroll1_Change
End Sub

Private Sub HScroll1_Change()
Picture2.PaintPicture Picture1.Picture, 0, 0, _
Picture2.Width, Picture2.Height, _
HScroll1.Value, VScroll1.Value, _
Picture2.Width, Picture2.Height
End Sub

Private Sub HScroll1_Scroll()
Picture2.PaintPicture Picture1.Picture, 0, 0, _
Picture2.Width, Picture2.Height, _
HScroll1.Value, VScroll1.Value, _
Picture2.Width, Picture2.Height
End Sub

Private Sub VScroll1_Change()
HScroll1_Change
End Sub

Private Sub VScroll1_Scroll()
HScroll1_Scroll
End Sub

..........................................................................................................................

[ Главная ] [ Диски ] [ Книги ] [ Архив рассылки ] [ Архив новостей ] [ Готовые кусочки программ ] [ Карта сайта ]

..........................................................................................................................

По страницам сайта Visaul Progs
или Изучение Visual Basic

>>> Подпишись на рассылку - будешь получать новые статьи , примеры и много полезной информации из первых рук!!!

>>>Если у вас есть статья которой нет на сайте
пришлите ее мне--------> Послать статью
>>>Если вы хотите задать вопрос
пишите--------> Мне нужна помощь

...:::Design by Mystf0rse 2005-2010 year:::...