请问在picturebox画线时,当画到picturebox框底时,能否使其具有象VScrollbar一样的作用???

Question

请问在picturebox画线时,当画到picturebox框底时,能否使其具有象VScrollbar一样的作用?谢谢!

Answer 1

需要图片框进行嵌套,用一个大的图片框作容器,里头再建一个图片框作画板,当滚动条滚动时,只需要设置画板的TOP值即可.

Answer 2

不行啊,我现在的图片框高度已经和form一样大了,

Answer 3

Private Sub Form_Load()
 Form1.ScaleMode = 3
 Picture1.ScaleMode = 3
 Picture1.ScaleMode = 3
 Picture1.Appearance = 0
 Picture2.Appearance = 0
 Picture2.AutoSize = True
 Picture1.AutoSize = False
 Picture2.Left = 0
 Picture2.Top = 0
 HScroll1.Min = 0
 VScroll1.Min = 0
 VScroll1.Left = Picture1.ScaleWidth - VScroll1.Width
 VScroll1.Top = 0
 VScroll1.Height = Picture1.ScaleHeight - HScroll1.Height
 HScroll1.Left = 0
 HScroll1.Top = Picture1.ScaleHeight - HScroll1.Height
 HScroll1.Width = Picture1.ScaleWidth - VScroll1.Width
 HScroll1.Visible = False
 VScroll1.Visible = False
 Picture2_Resize '如果用loadpicture就不用加这句了
End Sub
Private Sub HScroll1_Change()
  Picture2.Left = -HScroll1.Value
End Sub
Private Sub Picture2_Resize()
 If Picture2.Width > Picture1.Width Then
  HScroll1.Visible = True
  HScroll1.Max = Picture2.Width - Picture1.Width
 End If
 If Picture2.Height > Picture1.Height Then
  VScroll1.Visible = True
  VScroll1.Max = Picture2.Height - Picture1.Height
 End If
End SubPrivate Sub VScroll1_Change()
  Picture2.Top = -VScroll1.Value
End Sub
这个是两个picturebox做成的，

Answer 4

danielinbiti(金),谢谢你,不过好象还是不行.我的意思是:我从一个文件中提取数据,将这些数据转换成坐标,在picturebox中绘制曲线,因为曲线太长,所以在picturebox中显示不完,因此需要我所说的功能,如果有两个picturebox我该如何实现曲线的绘制?