vb IMAGE控件 top值问题

Question

我用VB编了个看图的小程序,用到了picture控件做容器,image控件做显示图片的控件,用两个滚动条来拖动图片.但我用到的图片很大,拖动滚动条时,只能显示一部分图片
以下的程序是滚动条变化时,图片会自动显示,但我这个图片很大,已经突破了image1.top的-245760,其中vertMax = Image1.Height - Picture1.Height
Private Sub VScroll1_Change()
If VScroll1.Max > 0 Then
   Image1.Top = -(VScroll1.Value / VScroll1.Max) * vertMax
End If
End Sub
想请高手帮忙解决其问题,不胜感激

Answer 1

用OLE控件试试，VB我是新手，VFP能行。

Answer 2

噢,我再试,昨天有一名高手和我说是image的height值是有一个限制的,要找一个图片的第三方控件来试试