Urgent~~Vscrollbar

[enzotam]

Private Sub VScroll1_Change()
    VScroll1.Max = scrollMax
    If VScroll1.Value = 0 Then
        picPV.Top = 600 'PicScale.Top
    Else
        picPV.Top = ((VScroll1.Value) / 20) * -ScaleHeight
    End If
End Sub

i want to set the vscrollbar in the picturebox.
however, it seems ot sth wrong in the code.
the whole picturebox move up when i pulled down the scrollbar..
is the setting correct?

[amrita]

Private Sub VScroll1_Change()
    VScroll1.Max = scrollMax
    If VScroll1.Value = 0 Then
        picPV.Top = 600 'PicScale.Top
    Else
        picPV.Top = ((VScroll1.Value) / 20) * -ScaleHeight
    End If
End Sub

i want to set the vscrollbar in the picturebox.
however, it seems ot sth wrong in the code.
the whole picturebox move up when i pulled down the scrollbar..
is the setting correct?

Check this KB article
"http://support.microsoft.com/kb/186429" --How To Create Scrollable Viewports

[enzotam]

but the image on the picture is plotted using the data not the picture
is it also useful for this situation?

[jcis]

See post #2 here: http://www.vbforums.com/showthread.php?t=444764

[enzotam]

oh...

Set mPic = LoadPicture("D:\chory.jpg")

However, i m not load the picture from driver directly.
I get the data from database and then use the function to plot the picture.
then how to set it???

[jcis]

Set mPic = Picture1.Image

[enzotam]

Private Sub Form_Load()
    PicColor.Visible = False
    RefreshButton.Enabled = False
    'scrollMax = 51
    'HScroll1.Max = scrollMax   ' Set maximum value.
    'HScroll1.LargeChange = 3   ' Cross in 17 clicks.
    'HScroll1.SmallChange = 1    ' Cross in 51 clicks.
     With Picture2
        .ScaleMode = vbPixels
        .AutoRedraw = True
        
        Set mPic = picPV.Image 'LoadPicture("C:\mypic.bmp")  '(Load your picture in this line)
        
        mWidth = ScaleX(mPic.Width, vbHimetric, vbPixels)
        mHeight = ScaleX(mPic.Height, vbHimetric, vbPixels)
        .PaintPicture mPic, 0, 0
    End With
            
    If mHeight > Picture2.ScaleHeight Then
        With VScroll1
            .Min = 0
            .Max = mHeight - Picture2.ScaleHeight
            .SmallChange = ((mHeight - Picture2.ScaleHeight) / 100) + 1
            .LargeChange = ((mHeight - Picture2.ScaleHeight) / 10) + 1
        End With
    Else
        VScroll1.Enabled = False
    End If
    
    If mWidth > Picture2.ScaleWidth Then
        With HScroll1
            .Min = 0
            .Max = mWidth - Picture2.ScaleWidth
            .SmallChange = ((mWidth - Picture2.ScaleWidth) / 100) + 1
            .LargeChange = ((mWidth - Picture2.ScaleWidth) / 10) + 1
        End With
    Else
        HScroll1.Enabled = False
    End If
End Sub

i already changed it.
but it seems not work~
it only show the image on picPV..and nth on picture2.

my picture2 is sited inside the picPV.
and HScroll and VScroll also sited outside both picturebox~
is anything step i set wrongly?