• Home
 · 
• Graphics
 · 
• How to scroll the image with in picture box. Imagine a small frame where you have to fit a partial

How to scroll the image with in picture box. Imagine a small frame where you have to fit a partial

How to scroll the image with in picture box. Imagine a small frame where you have to fit a partial picture of someone. You take the frame and

Rate How to scroll the image with in picture box. Imagine a small frame where you have to fit a partial

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Frame1.Caption = ""
    'Set picture box properties
    Picture1.AutoSize = True
    Picture1.Top = 0
    Picture1.Left = 0
    Picture1.Picture = LoadPicture("C:\mypicture.jpg")
    'Set vertical scroll bar properties
    VScroll1.Top = Frame1.Top
    VScroll1.Left = Frame1.Left + Frame1.Width
    VScroll1.Height = Frame1.Height
    VScroll1.Min = 0
    VScroll1.Max = Picture1.Height - Frame1.Height
    VScroll1.SmallChange = 50
    VScroll1.LargeChange = 100
    'Set horisontal scroll bar
    HScroll1.Left = Frame1.Left
    HScroll1.Top = Frame1.Top + Frame1.Height
    HScroll1.Width = Frame1.Width
    HScroll1.Min = 0
    HScroll1.Max = Picture1.Width - Frame1.Width
    HScroll1.SmallChange = 50
    HScroll1.LargeChange = 100
End Sub

Private Sub HScroll1_Change()
    Picture1.Left = HScroll1.Value * -1
End Sub

Private Sub VScroll1_Change()
    Picture1.Top = VScroll1.Value * -1
End Sub