vb图片控件：PictureBox

用图片控件显示文本不全，滚动条能加图片控件中吗？代码是？

Private Sub Form_Load()
Dim i As Integer
Picture2.AutoRedraw = True
Picture2.Width = Picture1.ScaleWidth
Picture2.Move 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight * 5
For i = 1 To 100
    Picture2.Print "第"; i; "行"
Next
VScroll1.Min = 0
VScroll1.Max = Picture2.Height - Picture1.ScaleHeight
VScroll1.LargeChange = Picture1.ScaleHeight
VScroll1.SmallChange = Picture2.TextHeight("I")
VScroll1.Value = 0
End Sub

Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub

Private Sub VScroll1_Scroll()
VScroll1_Change
End Sub

用到的控件是Picture1、Picture2和VScroll1，其中Picture2要放在Picture1中，Picture1作为框架，Picture2用来真正显示图片和文字，如下图：

运行效果如下图：

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/s74m2mqpp4vs7fmpfp.html