Excel VBA基础教程:移动 Line 控件

发布: 2009-1-31 16:20  作者: webmaster  查看: 684次 共有0条评论

Excel 基础教程:移动 Line 控件

如前面提到的,直线控件没有 Left 和 Top 属性。但是,可使用特殊的属性,对窗体上直线控件的位置进行控制。下表列出这些属性,以及用它们怎样决定直线控件的位置。

属性描述
X1直线起点的 x 坐标。该坐标用当前刻度单位给出。直线的起点是开始画之前创建的端点。
Y1直线起点的 y 坐标。
X2直线终点的 x 坐标。直线终点是停止画时最后创建的端点。
Y2直线终点的 y 坐标。

Blanker 应用程序的跳跃直线演示程序,使用以下语句随机地改变 DemoForm 上直线控件的位置:

'为第一个直线端点,设置随机的X位置值。linLineCtl.X1 = Int(DemoForm.Width * Rnd)'为第一个直线端点,设置随机的Y位置值。linLineCtl.Y1 = Int(DemoForm.Height * Rnd)'为第二个直线端点,设置随机的X位置值。linLineCtl.X2 = Int(DemoForm.Width * Rnd)'为第二个直线端点,设置随机的Y位置值。linLineCtl.Y2 = Int(DemoForm.Height * Rnd)'清除移动直线遗留像素。Cls'在下次移动之前使显示暂停。Delay
大家对 Excel VBA基础教程:移动 Line 控件 的评论
最新PPT教程
最新评论
PPT问答