例如:在 窗体中画一系列不同颜色的 矩形框和菱形框。代码是 :
Private sub form_click()
Dim CX,CY,F,F1,F2,I
ScaleMode=3
CX=ScaleWidth/2
CY=ScaleHeight/2
DrawWidth=8
For I=50 To 0 Step-2
F=I/50
F1=1-F:F2=1+F
ForeColor=QBColor(1 Mod 15)
Line(CX*F1,CY*F1)-(CX*F2,CY*F2),,BF
Next I
If CY>CX Then
DrawWidth=ScaleWidth/25
Else
DrawWidth=ScaleHeight/25
End IF
For I=0 To 50 Step 2
F=I/50
F1=1-F:F2=1+F
Line(CX*F1,CY)-(CX,CY*F1)
Line-(CX*F2,CY)
Line-(CX,CY*F2)
Line-(CX*F1,CY)
ForeColor=QBColor(I Mod 15)
Next I
End Sub如何理解这段代码啊?查了有关Line函数,都没详细介绍Line的使用。
那位大侠帮帮忙啊 。
Private sub form_click()
Dim CX,CY,F,F1,F2,I
ScaleMode=3
CX=ScaleWidth/2
CY=ScaleHeight/2
DrawWidth=8
For I=50 To 0 Step-2
F=I/50
F1=1-F:F2=1+F
ForeColor=QBColor(1 Mod 15)
Line(CX*F1,CY*F1)-(CX*F2,CY*F2),,BF
Next I
If CY>CX Then
DrawWidth=ScaleWidth/25
Else
DrawWidth=ScaleHeight/25
End IF
For I=0 To 50 Step 2
F=I/50
F1=1-F:F2=1+F
Line(CX*F1,CY)-(CX,CY*F1)
Line-(CX*F2,CY)
Line-(CX,CY*F2)
Line-(CX*F1,CY)
ForeColor=QBColor(I Mod 15)
Next I
End Sub如何理解这段代码啊?查了有关Line函数,都没详细介绍Line的使用。
那位大侠帮帮忙啊 。
object 可选的。 对象表达式,其值为“应用于”列表中的对象。如果object 省略,具有焦点的窗体作为object。
Step 可选的。关键字,指定起点坐标,它们相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置。
(x1, y1) 可选的。Single (单精度浮点数),直线或矩形的起点坐标。ScaleMode 属性决定了使用的度量单位。如果省略,线起始于由 CurrentX 和 CurrentY 指示的位置。
Step 可选的。关键字,指定相对于线的起点的终点坐标。
(x2, y2) 必需的。Single (单精度浮点数),直线或矩形的终点坐标。
color 可选的。Long (长整型数),画线时用的 RGB 颜色。如果它被省略,则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。
B 可选的。如果包括,则利用对角坐标画出矩形。
F 可选的。如果使用了 B 选项,则 F 选项规定矩形以矩形边框的颜色填充。不能不用 B 而用 F。如果不用 F 光用 B,则矩形用当前的 FillColor 和 FillStyle 填充。FillStyle 的缺省值为 transparent。
说明画联结的线时,前一条线的终点就是后一条线的起点。线的宽度取决于 DrawWidth 属性值。在背景上画线和矩形的方法取决于 DrawMode 和 DrawStyle 属性值。执行 Line 方法时, CurrentX 和 CurrentY 属性被参数设置为终点。这个方法不能用于With...End With 语句块。
--------------------------------------------------------------------------------Line 方法示例
这个示例用 Line 方法在窗体上画了几个同心矩形。要运行这个示例,将此代码放入窗体的 General 部分。按 F5 并单击窗体。Sub Form_Click ()
Dim CX, CY, F, F1, F2, I ' 声明变量。
ScaleMode = 3 ' 设置 ScaleMode 为像素。
CX = ScaleWidth / 2 ' 水平中点。
CY = ScaleHeight / 2 ' 垂直中点。
DrawWidth = 8 ' 设置 DrawWidth。
For I = 50 To 0 Step -2
F = I / 50 ' 执行中间步骤。
F1 = 1 - F: F2 = 1 + F ' 计算。
Forecolor = QBColor(I Mod 15) ' 设置前景颜色。
Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF
Next I
DoEvents ' 做其它处理。
If CY > CX Then ' 设置 DrawWidth。
DrawWidth = ScaleWidth / 25
Else
DrawWidth = ScaleHeight / 25
End If
For I = 0 To 50 Step 2 ' Set up loop.
F = I / 50 ' 执行中间。
F1 = 1 - F: F2 = 1 + F ' 计算。
Line (CX * F1, CY)-(CX, CY * F1) ' 画左上角。
Line -(CX * F2, CY) ' 画右上角。
Line -(CX, CY * F2) ' 画右下角。
Line -(CX * F1, CY) ' 画左下角。
Forecolor = QBColor(I Mod 15) ' 每次改变颜色。
Next I
DoEvents ' 进行其它处理。
End Sub--------------------------------------------------------------------------------应用于: Form 对象、Forms 集合PropertyPage 对象UserControl 对象
--------------------------------------------------------------------------------相关基础知识: 对象表达式
说明具体对象的表达式,可以包含对象的容器。例如,应用程序可以拥有 Application 对象,其中包含 Document 对象,而 Document 对象又包含 Text 对象。焦点
在任何时间接收鼠标单击或键盘输入的能力。在 Microsoft Windows 环境中,在同一时间只有一个窗口、窗体或控件具有这种能力。“具有焦点”的对象通常会以突出显示标题或标题栏来表示。用户或应用程序可设置焦点。关键字
Visual Basic 程序语言中的保留字或符号;例如, 语句、函数名称或运算符。
x1 y1 x2 y2
Line (300, 500)-(600, 2500), , BF
MsgBox "矩形"
Line (900, 900)-(900 + 0.3, 2900), , BF
MsgBox "竖线"
Line (1200, 1000)-(3200, 1000 + 0.3), , BF
MsgBox "横线"
End Sub