计算机应用基础-Read.PPT

（2）、DragOver事件 当对象在拖动过程中越过一个控件时，会引发 DragOver事件。 DragOver事件的过程形式如下： Private Sub 对象_ DragOver (Source As Control, _ X As Single, Y As Single,state as Integer) …… End Sub 说明： ① 过程中的Source是一个对象变量，代表被拖动的对象。 ③ State表示被拖动对象与它所越过控件之间相对位置的 改变状态。State的值有：0表示移入所越控件；1表示 移出所越控件；2表示跨越所越控件。 ② 过程中的X，Y表示当用户松开鼠标键的位置。 。 与拖放有关的方法有Move和Drag。其中Move 方法已介绍，下面介绍Drag方法。 Drag方法的格式为： 3、与拖放有关的方法 控件.Drag n （n的取值范围是：0，1，2） 说明： 0 表示取消控件的拖放； 1 表示当Drag方法出现在控件的事件过程中时，允 许拖放控件； 2 表示结束控件的拖动，并触发越过DragDrop的 事件。 例：在窗体上创建一个Label1（标签）控件， 并将Label1的背景颜色设置为白色，将其Caption 属性设置为“禁区”两个汉字。然后再创建一个 Image1（图形）控件，