Scrollable Viewport for a Picture

It’s easy to make a scrollable viewport for a picture in both VB3 VB4. In addition to a picture, you can also use other objects that grow. First, create a new form. Place a picture box on the form, name it “picParent,” and resize it. This will be the viewport. Place a picture box inside the other picture box (picParent) and name it “picPICTURE.” The value of the Left and Top properties must be zero. This one will contain the picture you want to view.Next, place a vertical scrollbar on the right of the picParent Picture. Name it “vsbPict.” This scrollbar should have the same Top and Height values as picParent. Do the same with a horizontal scrollbar. Place it on the bottom of “picParent”-the Left and Width values should be equal to picParent. Name it “hsbPic.” In both scrollbars, set the LargeChange property to the height and width of picParent, respectively. Then place this code on the declarations section of Form1. You can also copy this code to the Scroll event:

 Private Sub hsbPIC_Change()	picPicture.Left =hsbPIC.ValueEnd SubPrivate Sub vsbPIC_Change()	picPicture.Top =vsbPIC.ValueEnd SubPrivate Sub picPicture_Resize()	If picPicture.Height > picParent.Height Then		vsbPIC.Max =picParent.Height - picPicture.Height	Else		vsbPIC.Max = 0	End If	If picPicture.Width > picParent.Width Then		hsbPIC.Max =picParent.Width - picPicture.Width	Else		hsbPIC.Max =0	End If		vsbPIC.Value = 0		hsbPIC.Value = 0End Sub

Every time you load a new picture, the scrollbars will adjust to its size. Write the code to load the pictures, and write other code to deal with exceptions to the rules.

Share the Post:
Share on facebook
Share on twitter
Share on linkedin


Recent Articles: