帮忙：在picturebox控件内绘曲线图，怎么才能实现放大缩小功能？有源程序者100分全送

Question

没有那么复杂
只要设置一下picturebox的属性就可以了
picture1.scalewidth和scaleheight就可以了
自己试试看

Answer 1

设置坐标系就行了
Scale 方法
      用以定义 Form、PictureBox 或 Printer 的坐标系统。不支持命名参数。语法object.Scale (x1, y1) - (x2, y2)Scale 方法的语法包含下列部分：部分 描述 
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则带有焦点的 Form 对象缺省为 object。 
x1, y1 可选的。均为单精度值，指示定义 object 左上角的水平（x-轴）和垂直（y-轴）坐标。这些值必须用括号括起。如果省略，则第二组坐标也必须省略。 
x2, y2 可选的。均为单精度值，指示定义 object 右下角的水平和垂直坐标。这些值必须用括号括起。如果省略，则第一组坐标也必须省略。 
说明Scale 方法使您能够将坐标系统重置到所选择的任意刻度。Scale 对运行时的图形语句以及控件位置的坐标系统都有影响。如果使用不带参数的 Scale（两组坐标都省略），坐标系统将重置为缇。
Scale 方法示例 
本示例使用 Move 方法设立一个自定义座标系统，使得一个条形图可以在窗体上画出。要检验此示例，可将本例代码粘贴到一个窗体的声明部分，然后按 F5 键并单击该窗体。Private Sub Form_Click ()
   Dim I, OldFontSize   ' 声明变量。
   Width = 8640: Height = 5760   ' 按缇设置窗体大小。
   Move 100,100   ' 移动窗体起点。
   AutoRedraw = -1   ' 打开AutoRedraw。
   OldFontSize = FontSize   ' 保持旧的字体大小。
   BackColor = QBColor(7)   ' 将背景设置为灰色。
   Scale (0, 110)-(130, 0)   ' 设定自定义座标系统。
   For I = 100 To 10 Step -10
      Line (0, I)-(2, I)   ' 每隔 10 个单位划尺寸标记。
      CurrentY = CurrentY + 1.5   ' 移动光标位置。
      Print I   ' Print scale  value on left.
      Line (ScaleWidth - 2, I)-(ScaleWidth, I)
      CurrentY = CurrentY + 1.5   ' 移动光标位置。
      CurrentX = ScaleWidth - 9
      Print I   ' 将尺寸标记值打印在右边。
   Next I
   ' 画条形图。
   Line (10, 0)-(20, 45), RGB(0, 0, 255), BF   ' 第一个蓝色条。
   Line (20, 0)-(30, 55), RGB(255, 0, 0), BF   ' 第一个红色条。
   Line (40, 0)-(50, 40), RGB(0, 0, 255), BF
   Line (50, 0)-(60, 25), RGB(255, 0, 0), BF
   Line (70, 0)-(80, 35), RGB(0, 0, 255), BF
   Line (80, 0)-(90, 60), RGB(255, 0, 0), BF
   Line (100, 0)-(110, 75), RGB(0, 0, 255), BF
   Line (110, 0)-(120, 90), RGB(255, 0, 0), BF
   CurrentX = 18: CurrentY = 100   ' 移动光标位置。
   FontSize = 14   ' 放大标题尺寸。
   Print "Widget Quarterly Sales"   ' 打印标题。
   FontSize = OldFontSize   ' 还原字体大小。
   CurrentX = 27: CurrentY = 93   ' 移动光标位置。
   Print "Planned Vs. Actual"   ' 打印子标题。
   Line (29, 86)-(34, 88), RGB(0, 0, 255), BF   ' 打印图例。
   Line (43, 86)-(49, 88), RGB(255, 0, 0), BF
End Sub

Answer 2

进行图形缩放的原理就是进行坐标转换,但是在pictureBox中进行图形缩放只要对PictureBox的Scale属性进行重设就可以了.其具体操作如下:
第一:
   对PictureBox的Scale属性进行重设:picture1.scale(10,10)-(100,100)
第二:
  重新进行绘图

Answer 3

可以 画 个 wmf 保存起来再显示时，用 image 自动缩放

Answer 4

就如楼上各位所说，研究一下 Scale 属性

Answer 5

scalewidth和scaleheight是内在尺寸，可以作为调整的依据。
举例吧，如果width=100,然后将scalewidth设置为50，则picturebox尺寸将放大1倍，反之，将scalewidth设置为200，则picturebox尺寸将缩小1倍
以上这样说应该比较容易理解，用起来也很方便。

Answer 6

scalewidth和scaleheight为负值又怎么理解？

Answer 7

用 image 做模型不可以吗？不是很方便，可以直接改变大少？？PS，我是菜鸟，随便说说的。