CLB
New Member
Posts: 9
|
Post by CLB on Sept 1, 2003 8:16:47 GMT -5
I have a picture in a pictute box thats to lage for the form... Now i want a vscroll to scroll the picture. How do i do that?
|
|
zak2zak
New Member
Helping Others Is A Religion In Programming..?
Posts: 0
|
Post by zak2zak on Sept 30, 2003 12:43:05 GMT -5
May I Comment. I think This Would help! First U should place the VScroll on left most of Form
Private Sub Form_Resize() Picture1.Move 0, 0 VScroll1.Move Picture1.Width + 30, 0, VScroll1.Width, Me.ScaleHeight VScroll1.SmallChange = 100 VScroll1.LargeChange = 300 VScroll1.Min = 0 VScroll1.Max = (Picture1.Height - Me.ScaleHeight) End Sub
Private Sub VScroll1_Change() If VScroll1.Value > 0 Then Picture1.Top = -VScroll1.Value ElseIf VScroll1.Value = 0 Then Picture1.Top = 0 End If End Sub
Private Sub VScroll1_Scroll() If VScroll1.Value > 0 Then Picture1.Top = -VScroll1.Value ElseIf VScroll1.Value = 0 Then Picture1.Top = 0 End If End Sub
|
|