第4章 常用内部控件.ppt

“拖放（Drag and Drop）”技术 即用鼠标将对象从一个地方拖到另一个地方再放下。可以把整个拖放过程分解成两个操作：一个是发生在源对象的“拖”操作；另一个是发生在目标对象上的“放”操作，即把源对象“放”在目标对象上。在拖动的过程中，被拖动的对象变为灰色。 4.7鼠标和键盘事件 一、属性、事件和方法 除了菜单、计时器和通用对话框外，其它控件均可在程序运行期间被拖放。 1.属性：（1）DragMode属性 用来设置自动或人工（手动）拖放模式。默认值为0（人工方式）。为了能对一个控件执行自动拖放操作，须把它的DragMode属性设置为1。可在属性窗口中设置，也可在程序代码中设置。 4.7鼠标和键盘事件 4.7鼠标和键盘事件 例如：Picture1.DragMode=1 （2）DragIcon属性 拖动过程中，并不是对象本身在移动，而是移动代表的图标。即一旦要拖动一个控件，这个控件就变成一个图标，等放下后再恢复成原来的控件。DragIcon属性含有一个图片或图标的文件名，在拖动时作为控件的图标。 4.7鼠标和键盘事件 例如：Picture1.DragIcon=Loadpicture(“c:\vb98\graphics\icon\computer\disk06.ico) 当拖动该图片框时，图片框变成由disk06.ico所表示的图标。 4.7鼠标和键盘事件 2. 事件 与拖放有关的事件是DragDrop和DragOver。 (1) DragDrop事件 当把控件（图标）拖到目标之后，如果松开鼠标键，则产生一个DragDrop事件。格式： Sub 对象名_DragDrop (Source As Control, X As Single,Y As Single) End Sub 4.7鼠标和键盘事件 其中：Source是一个对象变量，其类型为Control，该参数含有被拖动对象的属性。 参数X，Y是松开鼠标键放下对象时鼠标光标的位置。 (2) DragOver事件 当拖动对象越过一个控件时，产生DragOver事件。 格式：Sub 对象名_DragOver(Source As Control, X As Single, Y As Single, State As Integer) End Sub 4.7鼠标和键盘事件 其中：Source参数的含义同前。 X、Y是拖动时鼠标光标的坐标位置。 State参数是一个整数值，可以取以下三个值： 0——鼠标光标正进入目标对象的区域； 1——鼠标光标正退出目标对象的区域； 2——鼠标光标正位于目标对象的区域之内。 3. 方法 与拖放有关的方法有Move和Drag。下面主要介绍Drag方法。 格式：控件. Drag 整数 不管控件的DragMode属性如何设置，都可以用Drag方法来人工地启动或停止一个拖放过程。 4.7鼠标和键盘事件 “整数”的取值为0、1或2，其含义分别为： 0——取消指定控件的拖放； 1——当Drag方法出现在控件的事件过程中时，允许拖放指定的控件； 2——结束控件的拖动，并发出一个DragDrop事件。 自动拖放：例4.13 手动拖放：例4.14 4.7鼠标和键盘事件 * 4.4列表框和组合框 2. Selected 属性 该属性只能在程序中设置或引用。Selected属性是一个逻辑数组，其元素对应列表框中相应的项，表示对应的项在程序运行期间是否被选中。 4.4列表框和组合框 三、列表框和组合框的方法 列表框和组合框中的选项可以在设计状态通过List属性设置，也可以在程序中用AddItem方法来添加，用RemoveItem或Clear方法删除。 4.4列表框和组合框 （1）AddItem方法: 功能：把一个选项加入列表框或组合框。 格式：对象. AddItem Item [，Index] 其中，Item：必须是字符串表达式，是将要加入列表框或组合框的选项。Index：决定新增选项在列表框或组合框中的位置，如果Index省略，则新增选项添加在最后。对于第一个选项，Index为0。 4.4列表框和组合框 （2）RemoveItem方法： 功能：从列表框或组合框中删除一个选项应使用RemoveItem方法。 格式：对象. Removeltem Index 其中，Index：被删除项目的位置，对于第一个选项，Index为0。 4.4列表框和组合框 （3）Clear方法 功能：Clear方法可清除列表框或组合框的所有内容。 格式：对象. Clear 四、列表框和组合框的事件 列表框能够响应Click