VB编程疑问

来源:百度知道 编辑:UC知道 时间:2024/05/13 12:11:38
各位大虾谁能帮我解释一下下面的代码
Private Sub Form_Click()
Dim I
ScaleHeight=8
For I=0 to 6
DrawStyle=I
Line(0,I+1)-(ScaleWidth,I+1)
Next I

尤其是Line(0,I+1)-(ScaleWidth,I+1)这以行请重点解释。Line()是个函数么?是的话,那么他是什么函数
敬请指教~!
End Sub
Private Sub Form_Click()
Dim i '声明变量
ScaleHeight = 8 '用8除高
For i = 0 To 6
DrawStyle = i '改变线性
Line (0, i + 1)-(ScaleWidth, i + 1) '画新线
Next i
End Sub
问:ScaleHeight = 8 '用8除高 怎么解释?

line是画线的方法,默认就是绘制在窗体上..

http://zhidao.baidu.com/question/38026879.html?ansup1

呵呵
ScaleHeight = 8 '用8除高 怎么解释?

比如原来的窗体的ScaleHeight(加标题栏的高度)为800, 那个800单位是缇..

然后你使用ScaleHeight = 8 以后,就相当于,无视原来的单位了,把原来的高度800分为8行, 每行如果用原来的单位表示就是100

这样I值每增加1次,就相当于增加了100,所以可以理解为用8除高 呵

补充 VB妮可 的回答
ScaleHeight=8
建立一个自定义的纵坐标,以窗体的顶部为0,底部为8。

For I=0 to 6
DrawStyle=I
Line(0,I+1)-(ScaleWidth,I+1)
Next I

在窗体上均匀的画7条横线,每条各使用不同的DrawStyle。

Line (x1,y1)-(x2,y2)
顾名思义的函数,我就不多说了。注意这里“-”是连接符,不是减号。