Question

vb Picture1的问题啊

Picture1.Cls
MSFlexGrid1.TopRow = MSFlexGrid1.Rows - 1
Picture1.AutoRedraw = True
Picture1.Scale (0, 15)-(150, 0)

For it = 2 To MSFlexGrid1.Rows - 1
s = MSFlexGrid1.TextMatrix(it - 1, 5)

m = MSFlexGrid1.TextMatrix(it, 5)

Picture1.Line (it - 1, Val(s))-(it, Val(m))

Picture1.CurrentX = it - 1
Picture1.CurrentY = Val(m + 1)
Picture1.Print Val(m)
Next
我的数据很长，这个代码在Picture1显示不全，如何修改能让其Picture1.Scale (0, 15)-(150, 0)
自动调整，使整个数据都显示出来

Answer 1

auto=true 不行，还是加个VScroll

Answer 2

你给Picture加个VScroll吧。

Answer 3

auto=true

Answer 4

1