vb Scale问题Private Sub Form_Click()X1 = -100Y1 = 100X2 = 100Y
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/07/18 02:56:11
vb Scale问题
Private Sub Form_Click()
X1 = -100
Y1 = 100
X2 = 100
Y2 = -100
Form1.Scale (X1,Y1)-(X2,Y2)
Line (0,100)-(0,-100)
Line (100,0)-(-100,0)
End Sub
个人认为画出的两条线的位置应该在框外(红色线标示),而正确的答案是在框内(绿色线标示)?为什么?请不要用复制粘帖来解决我的问题!请用个人说明的方式,
![](http://img.wesiedu.com/upload/b/27/b2718b67289526137ce0253e89342769.jpg)
Private Sub Form_Click()
X1 = -100
Y1 = 100
X2 = 100
Y2 = -100
Form1.Scale (X1,Y1)-(X2,Y2)
Line (0,100)-(0,-100)
Line (100,0)-(-100,0)
End Sub
个人认为画出的两条线的位置应该在框外(红色线标示),而正确的答案是在框内(绿色线标示)?为什么?请不要用复制粘帖来解决我的问题!请用个人说明的方式,
![](http://img.wesiedu.com/upload/b/27/b2718b67289526137ce0253e89342769.jpg)
待编辑.
------
首先需要明确Scale方法:用以定义 Form、PictureBox 或 Printer 的坐标系统.不支持命名参数.
Scale要么不带参数,要么带两个参数,即(x1,y1)和(x2,y2),这两个参数之间必须使用“-”连接.
(x1,y1)表示Form的左上角坐标,(x2,y2)表示Form的右下角坐标.
Scale方法使用之后意味着Form的布局范围在以(x1,y1)和(x2,y2)作为对角点的矩形之内.
您的例程中,Form的坐标范围就在(-100,100)和(100,-100)决定的矩形之内.
Line方法画线的时候,第一句表示从(0,100)画到(0,-100),就意味着画了一条竖线.这条竖线正式在窗体中间.(此时Form的四个顶点的分别为 左上(-100,100) 左下(-100,-100) 右上(100,100) 右下(100,-100))
第二句同理可得.
------
首先需要明确Scale方法:用以定义 Form、PictureBox 或 Printer 的坐标系统.不支持命名参数.
Scale要么不带参数,要么带两个参数,即(x1,y1)和(x2,y2),这两个参数之间必须使用“-”连接.
(x1,y1)表示Form的左上角坐标,(x2,y2)表示Form的右下角坐标.
Scale方法使用之后意味着Form的布局范围在以(x1,y1)和(x2,y2)作为对角点的矩形之内.
您的例程中,Form的坐标范围就在(-100,100)和(100,-100)决定的矩形之内.
Line方法画线的时候,第一句表示从(0,100)画到(0,-100),就意味着画了一条竖线.这条竖线正式在窗体中间.(此时Form的四个顶点的分别为 左上(-100,100) 左下(-100,-100) 右上(100,100) 右下(100,-100))
第二句同理可得.
vb Scale问题Private Sub Form_Click()X1 = -100Y1 = 100X2 = 100Y
VB程序问题Option Explicit'这是老师给的答案:Private Sub Form_Click()Dim y
问几道 Private Sub Form_Click()X=4Y=X ^ 4If X * Y> 444 ThenPrin
VB里面Private Sub form_click()什么意思
Private Sub Form_Click() x = 1 y = 5 z = 2 For k = x To y St
Private Sub Form_Click()
1.Private Sub Form_Click()
VB的if语句的问题Private Sub Command1_Click()If Text1 = "111" ThenF
VB问题Private Sub Command1_Click()
Private Sub Form_Click() a = 1: b = a Do Until a >= 5 x = a
Private Sub Form_click() Dim x,i,j x = 0 For i = 0 To 1 x =
access下面程序运行后输出的是 Private Sub Form_Click() For i=1 To 4 x=1