VB绘图中Scale 方法怎么使用?

发布网友 发布时间：2022-05-02 11:24

我来回答

共4个回答

热心网友 时间：2022-06-19 18:53

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 mark 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

热心网友 时间：2022-06-19 18:54

用以定义 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（两组坐标都省略），坐标系统将重置为缇。

Private Sub Command1_Click()
Scale (-300, 200)-(300, -200)
Line (-300, 0)-(300, 0) '画x轴
Line (0, 200)-(0, -200) '画y轴
CurrentX = 290
CurrentY = -5
Print "x300" '标示x轴
CurrentX = 5
CurrentY = 200
Print "y200" '标示y轴
CurrentX = 5
CurrentY = -5
Print "0" '标示原点
End Sub

热心网友 时间：2022-06-19 18:54

Private Sub Form_Load() DrawWidth = 1 Scale (-8, -8)-(8, 8)'定义左下角坐标是(-8,-8),右上角坐标是(8,8) Line (-8, 0)-(8, 0), vbBlack Line (0, -8)-(0, 8), vbBlack DrawWidth = 4 For i = -8 To 8 PSet (i, 0) Print i Next i For i = -8 To 8 PSet (0, -i) Print i Next i DrawWidth = 2 End Sub

热心网友 时间：2022-06-19 18:55

Scale 方法
用以定义 Form、PictureBox 或 Printer 的坐标系统。不支持命名参数。
语法：object.Scale (x1, y1) - (x2, y2)
如果使用不带参数的 Scale（两组坐标都省略），坐标系统将重置为缇。(注：这句话可能为错误翻译，因为与缇没有关系。)
理解：这里的坐标系统是指一个“十”字型的横坐标、纵坐标体系，相交的点为0，起点。这里的x1,y1不是指点的坐标，而是 x1 表示左边宽度，y1表示右边宽度。(x2,y2)则表示上面宽度，下面宽度。
这里的x1,y1都是指当前窗口的宽度比例，不是实数。例如：(-100, 200),表示窗口总宽为100+200＝300，即把窗口宽度分成300份，左x轴（负数轴）宽为100，右X轴（正数轴）为200。
同理，假如(x2,y2)为（100，-200），则表示Y轴的正数轴（上半轴）为100，负数轴（下半轴）为200，窗口总高度为300。
也可以把 (x1, y1) 化成分数来理解，如：(-1, 3) 表示左半部分和右半部分比例为1:3，即左边占窗口总宽度的1/4，右边占3/4 。请参照下边的程序来观看理解。
Private Sub Command1_Click()
Scale (-300, 200)-(300, -200)
Line (-300, 0)-(300, 0) '画x轴
Line (0, 200)-(0, -200) '画y轴
CurrentX = 290
CurrentY = -5
Print "x300" '标示x轴
CurrentX = 5
CurrentY = 200
Print "y200" '标示y轴
CurrentX = 5
CurrentY = -5
Print "0" '标示原点。（注：这个程序将所有数字缩小100倍，运行结果也是一样的，因为是按比例来的。）
End Sub