教学课件：《Visula Bisic程序设计教程》.ppt

与自动拖放不同，手动拖放不必把DragMode属性设置为“1-Automatic”，仍保持默认的“0-Manual”。 3. 手 动 拖 放 下图说明了实现手动拖放在各个对象上所涉及的属性、方法和事件。 手动拖放比自动拖放提供了更多控制，可以由用户自行决定何时拖放，何时停止，允许指定可以拖动控件的时间以及不可拖动控件的时间（在自动拖放里，只要设置不变，就总能拖动控件）。 3. 手 动 拖 放 手动拖放所涉及的属性、方法和事件 比如在响应MouseUp和MouseDown事件或响应键盘命令或菜单命令时得以进行拖放。有了手动拖放，还可以在开始拖放前识别MouseDown事件，这样就可以记录鼠标的位置。 知识点链接 有时不需要把整个数组传送给通用过程，可以只传送所需要的某个元素，只要在实参数组名后的小括号内写上要传送的元素的下标。这时，形参不需要定义成数组，只要定义成与作实参的数组元素同类型的变量即可。这种用法其实与前面介绍的传值或传址调用类似。 设 手 动 拖 放 图 标 任务实施 何丽娜是某软件公司的程序员，接到新任务。他需要制作手动拖放图标表单，要求用户可随意拖动窗体中的图标。 在Windows环境中，我们经常使用拖放操作。由于VB也提供拖放功能，用户可利用此功能来完成特殊的项目，提高工作效率。因此何丽娜使用此功能来完成工作任务。 任务 实施 手动拖放图标 程序代码： （1）新建标准工程 在安装主板之前，首先简查主板是否与机箱对应。 新建一个标准工程，在窗体上放置一个图片框（Picture1），在图片框里装入一个图标。 （2）图片框的DragIcon属性 在装载窗体时，设置图片框的DragIcon属性： Private Sub Form_Load() Picture1.DragIcon = Picture1.Picture End Sub 运行该程序，运行结果如下图所示。 （3） 编写代码 当在图片框上按下鼠标键时，用Drag方法打开拖拉开关，产生拖拉操作。则在图片框的MouseDown事件过程中编写如代码： Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.Drag 1 End Sub 当松开鼠标键时，关闭拖拉开关，停止拖拉，并产生DragDrop事件。则在图片框的MouseUp事件过程中编写如下代码： Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.Drag 2 End Sub 在窗体的DragDrop事件过程中，编写如下代码，实现图片框的真正移动： 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 在这里，如果直接使用鼠标光标的位置（X，Y），即使用Source.Move X，Y，则鼠标光标所指的是控件的左上角，而现在鼠标光标所指的是控件的中心。 运行程序，鼠标键按下拖动，但还未释放时的界面如下图示。 重 点 难 点 重点难点 键盘与鼠标的属性 重点 难点 应用键盘与鼠标事件 在Windows环境下，几乎所有的应用软件都通过菜单实现各种操作。而对于Visual Basic应用程序来说，简单的应用程序只由一个窗体和几个控件组成，但是对于复杂的程序，则可以使用菜单来增强应用程序的功能。在本项目中，通过2个工作任务，向读者展示菜单以及对话框的制作过程。 任务一 制作弹出式菜单 任务二 改变标签的字体颜色 制 作 弹 出 式 菜 单 准备知识 1. 菜单概述 2. 菜单编辑器 用菜单编辑器建立菜单 菜单项的增减 5. 弹出式菜单 1. 菜 单 概 述 在实际应用中，菜单可分为两种基本类型：弹出式菜单和下拉式菜单。在使用Windows和其他应用软件时，我们经常见到这两种菜单。 弹出式菜单一般是当单击鼠标右键时出现的菜单，是显示在窗体上，独立于菜单栏的浮动菜单。弹出式菜单上显示的菜单项取决于鼠标右键按下时的鼠标指针所在的位置，因此，弹出式菜单又称为上下文菜单，应该用弹出式菜单提供一种访问公共的上下文命令的高效方法。下拉式菜单是一种典型的窗口式菜单。 在Windows及各种应用软件中，下拉式菜单得到了广泛的应用，下拉式菜单的结构及组成元素如下图所示。