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