计算机应用基础.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（图形）控件，将Image1的DragMode属 性设置为1，在Image1的Picture属性中装入一个 图标文件。要求在对Image1进行拖放操作时，如 果Image1控件拖放到标有“禁区”字样的Label1控 件上方时，取消对Image1的拖放操作。 4、鼠标拖放应用举例 实现上述要求的DragDrop和DragOver事件 程序如下： Private Sub Form_DragDrop(Source As Control, _ X As Single, Y As Single) Source.Move (X - Source.Width / 2), (Y - _ Source.Height / 2) End Sub 4、鼠标拖放应用举例 Private Sub Label1_DragOver(Source As Control, _ X As Single, Y As Single, State As Integer) Source.Drag 0 End Sub 所谓OLE（Object Linking And Embedding）拖 放，是指将一个控件或应用程序中的数据移动到另一 个控件或应用程序中。在VB中，几乎所有的控件都 支持OLE拖放。 四、OLE拖放 OLEDragMode属性的值只有0和1。0表示“手动”， 即必须编写程序来处理OLE的拖放操作；1表示“自动”， 即控件可以自行处理它所接受的OLE拖放操作。如果要 令控件中的数据可以被用OLE拖走，必须将控件的 OLEDragMode属性设置为1。 如果要令一个控件中的数据可以被用OLE拖走， 必须要对控件的OLEDragMode属性进行设置。如果 要使另一个控件接收拖来的数据，也必须要对控件的 OLEDropMode属性进行设置。 OLEDropMode属性的值有0、1、2。0表示“不接 受”（默认）；1表示“手动”，即当放下拖动对象时， 将触发OLEDragDrop事件。此时可以编写程序来处 理；2表示“自动”，即如果拖动对象的数据格式可以 被控件识别，则接受控件可以自动接收OLE拖放的 数据。如果要令接受控件接收OLE拖放的数据，必 须将接收方控件的OLEDropMode属性设置为2。 下面举例说明OLE拖放的实现方法： 在窗体上设置两个文本框Text1和Tex2，将Text1 的OLEDragMode属性设置为1，Text2的OLEDropMode 设置为2，于是Text1文本框中的内容就可以拖动到 另一个文本框Text2中，或拖动到Word、写字板等 应用程序中，反之亦然。 第七章 图形操作 图形可以为应用程序的界面增加趣味，提供可视结 构。在管理信息系统中，经常需要通过直方图、圆饼 图、折线图等图形来表现系统处理的数据结果，以直 观的方式为用户提供管理和决策方面的信息。 Visual Basic 具有丰富的图形功能，不仅可以通过图形控件 进行创建图形和绘图的操作，还可以通过图形的方法 在窗体或图形框上输出文字和图形。VB提供的图形控 件除了我们已经介绍的Picture Box、Image、Shape 之 外，最主要的有MSChart控件，MSChart控件是本章 重点介绍的内容。MSChart控件支持真正三维的图形 表示，支持所有主要的图