图库的使用

元件的变形

自定义属性

按钮

闪烁信号灯

编辑选中的图形

动态创建图形

可移动标签

定义连接点

读写图形属性

编辑线条顶点

调用Windows API函数

调用Visual Graph函数

脚本回调控件的事件

运行状态鼠标拖动图形

表格

明细式报表

制作对话盒

制作菜单

工具栏的使用

使用WEB数据库

ActiveX在VC6中的使用

ActiveX在Delphi6中使用

ActiveX在VB6中的使用

首页

在运行状态下用鼠标拖动图形

操作步骤如下：

一、在集成开发环境中新建一个文件，然后在页面上画一个圆（ circle1 ）。

二、在页面的 Initialize 事件中添加代码：

FStartX = 0

FStartY = 0

三、在圆的 OnLButtonDown 事件中添加代码：

Sender.Tag = 1

FStartX = X

FStartY = Y

四、在圆的 OnLButtonUp 事件中添加代码：

Sender.Tag = 0

五、在圆的 OnMouseMove 事件中添加代码：

if Sender.Tag = 1 then

Sender.MoveBy( X - FStartX, Y - FStartY )

FStartX = X

FStartY = Y

end if