图库的使用

元件的变形

自定义属性

按钮

闪烁信号灯

编辑选中的图形

动态创建图形

可移动标签

定义连接点

读写图形属性

编辑线条顶点

调用Windows API函数

调用Visual Graph函数

脚本回调控件的事件

运行状态鼠标拖动图形

表格

明细式报表

制作对话盒

制作菜单

工具栏的使用

使用WEB数据库

ActiveX在VC6中的使用

ActiveX在Delphi6中使用

ActiveX在VB6中的使用

首页

正弦曲线的制作

下面我们制作一条折线,折线上面有很多个点,我们要用这条折线模拟正弦曲线。

制作方法:

一、在页面上画一条直线Line1。

二、在页面上放一个矩形单元,里面添加下面的文字:

Line1.PointCount=121
i=0
while i <= 120
Line1.X[i]=100+2*i
Line1.Y[i]=100+50*sin(i*3.1416/60)
i=i+1
wend
Line1.Refresh()

三、选择菜单“程序/命令行”。在调试窗口中输入:

Execute( rect1.text )

回车,直线变成一条正弦曲线,如下图:

四、把上面矩形里面的代码改为:

Line1.PointCount = 122
pi = 3.14159265359
i = 0
while i <= 120
Line1.X[i] = 100 + 50 * cos( i / 60 * pi )
Line1.Y[i] = 100 - 50 * sin( i / 60 * pi )
Line1.Bytes[i] = 6
Line1.X[i+1] = 100 + 60 * cos( i / 60 * pi )
Line1.Y[i+1] = 100 - 60 * sin( i / 60 * pi )
Line1.Bytes[i+1] = 2
i = i + 2
wend
Line1.Refresh()

在菜单“程序/命令行”中,再次输入Execute( Rect1.Text ),线条变成下面这样:

由于线条偶数顶点(0,2,4,6,8....)的顶点属性Bytes被定义成6,所以,此处为新线段的起始点,整个线条Line1内含很多段小短线,但仍然是一个对象,仍然算“一条线”。