怎样突破Picturebox 最大的宽度

Question

Picture2.Line (0, 2500)-(Picture2.Width, 3000), , B
For i = 1 To 31
  For ii = 1 To 24
      For iii = 1 To 60
             xxx = 30 + xxx
             Picture2.Line (xxx, 2500)-(xxx, 2600)
             cc = cc + 1
             If cc = 10 Then
                 Picture2.Line (xxx, 2500)-(xxx, 2640)
                 ccc = ccc + 1
                 If ccc = 1 Then
                    Picture2.FontName = "宋体"
                    Picture2.FontSize = 8
                    Picture2.CurrentX = xxx - 180
                    Picture2.CurrentY = 2300
                    Picture2.Print 10
                 End If
                 If ccc = 2 Then
                    Picture2.FontName = "宋体"
                    Picture2.FontSize = 8
                    Picture2.CurrentX = xxx - 180
                    Picture2.CurrentY = 2300
                    Picture2.Print 20
                 End If
                 If ccc = 3 Then
                    Picture2.FontName = "宋体"
                    Picture2.FontSize = 8
                    Picture2.CurrentX = xxx - 180
                    Picture2.CurrentY = 2300
                    Picture2.Print 30
                 End If
                 If ccc = 4 Then
                    Picture2.FontName = "宋体"
                    Picture2.FontSize = 8
                    Picture2.CurrentX = xxx - 180
                    Picture2.CurrentY = 2300
                    Picture2.Print 40
                 End If
                 If ccc = 5 Then
                    Picture2.FontName = "宋体"
                    Picture2.FontSize = 8
                    Picture2.CurrentX = xxx - 180
                    Picture2.CurrentY = 2300
                    Picture2.Print 50
                 End If
                 If ccc = 6 Then
                    Picture2.FontName = "宋体"
                    Picture2.FontSize = 8
                    Picture2.CurrentX = xxx - 220
                    Picture2.CurrentY = 2100
                    Picture2.Print Str(ii) + ":" + "00"
                    Picture2.Line (xxx, 2500)-(xxx, 2700)
                    cccc = cccc + 1                 End If
                 If ccc = 6 Then ccc = 0
                 cc = 0
             End If
            
            ' Picture1.FontItalic = True            
      Next iii
                             
      Picture2.FontName = "宋体"
      Picture2.FontSize = 10
      Picture2.CurrentX = xxx - 180
      Picture2.CurrentY = 2750
      Picture2.Print CStr(i) + "号"  Next ii
  
Next i
i = 0
End SelectEnd Sub
Private Sub HScroll1_Change()
HScroll1.Min = 0
HScroll1.Max = Picture2.Width / 10
HScroll1.SmallChange = 10
B = HScroll1.Value
Picture2.Left = -B * 10
End Sub
----------------------------------------------------------------------------------
我想用条型图  显示出  一个月的所有时间     
可是Picturebox 的宽度不够用了
有什么办法解决呢

Answer 1

要是可以，你半个月半个月的显示吧，似乎没有更好的办法。

Answer 2

就算你要显示一千年的记录,同时显示在屏幕上的数据也只有那么多.滚动条应该控制"需要显示在屏幕上的内容"的"时间坐标".比如,现在确定了是一千年,那么按屏幕宽度来算,可以显示的是一屏一年.那么你拖动一下就偏移一年,并显示一年的数据.有必要全部数据一起显示出来么?