重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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(两组坐标都省略),坐标系统将重置为缇。
这个可以自定义坐标系统,你看看下边的代码:
Private Sub Form_Load()
Me.AutoRedraw = True
End Sub
Private Sub Form_Resize()
Me.Scale (-100, -100)-(100, 100)
Me.Circle (0, 0), 15, RGB(255, 0, 0)
Me.Circle (30, 30), 15, RGB(0, 0, 255)
Me.Scale (100, 100)-(-100, -100)
Me.Circle (30, 30), 15, RGB(255, 0, 255)
Me.Circle (60, 60), 15, RGB(0, 128, 0)
End Sub
scale(x1,y1)-(x2,y2)
你只要记住,这里的x1,y1是左上角的坐标,x2,y2是右下角的坐标,通过这两个点的坐标设定,就可以决定坐标原点的位置以及坐标轴的方向了,比如
Scale (-300,200)-(300,-200)
以上是把坐标原点设在窗体中心,x轴长600,方向从左到右,y轴长400,方向从下向上。
Scale (800,0)-(0,600)
以上是把坐标原点设在窗体右上角,x轴长800,方向从右到左,y轴长600,方向从上向下。
下面说坐标轴和原点的标示法:
假定自定义坐标设为:
Scale (-300, 200)-(300, -200)
则
Line (-300, 0)-(300, 0) '画x轴
Line (0, 200)-(0, -200) '画y轴
CurrentX = 290
CurrentY = -5
Print "x" '标示x轴
CurrentX = 5
CurrentY = 200
Print "y" '标示y轴
CurrentX = 5
CurrentY = -5
Print "0" '标示原点
Scale 方法 用以定义 Form、PictureBox 或 Printer 的坐标系统.不支持命名参数. 语法 object.Scale (x1, y1) - (x2, y2) Scale 方法的语法包含下列部分: 部分 描述 object 可选的.一个对象表达式,其值为“应用于”列表中的一个对象.如果省略 obje