图库的使用

元件的变形

自定义属性

按钮

闪烁信号灯

编辑选中的图形

动态创建图形

可移动标签

定义连接点

读写图形属性

编辑线条顶点

调用Windows API函数

调用Visual Graph函数

脚本回调控件的事件

运行状态鼠标拖动图形

表格

制作对话盒

制作菜单

工具栏的使用

使用WEB数据库

ActiveX在VC6中的使用

ActiveX在Delphi6中使用

ActiveX在VB6中的使用

首页

表格

我们要在表格中填写九九乘法表。

一、选择菜单“Table/New table”。将列数与行数都改为10,单击确定。

 

二、在工作区中按住鼠标左键拖动,画出表格大小。然后添加数字如图。

 

三、我们把表格编为9个单元组。首先选中要编为单元组的单元(虚线部分)。

 

 选择菜单“页面/单元组”,弹出对话框,选择“新建”,这样我们就把选中的单元设置为一个单元组。

 

 用这个方法,继续将表格其余八行编为8个单元组。

四、在当前页面OnShow函数中添加如下代码。

m=0
while m<groupcount
n=0
while n<groups[m].UnitCount
d=Groups[m].Units[n]
d.Text=((m+1)*(n+1)).ToString()
n=n+1
wend
m=m+1
wend


遍历所有单元组。

遍历单元组中的图形。           

乘法运算,显示到相对应的单元中。


注意必须写这一行,否则会死循环。

五、选择菜单“程序/运行”,结果如图:

 

在这个例子中我们用到了单元组和单元的一些关系,以及函数ToString转换函数和循环语句的用法。