任务四制作简单绘图程序解读.ppt

Visual Basic程序设计 第三章应用程序窗体设计 任务四 制作简单绘图程序 一、窗体的MouseDown事件 窗体的MouseDown事件是当按下鼠标按钮时发生，语法格式如下： Private Sub Form_MouseDown(button As Integer, shift As Integer, x As Single, y As Single) 二、窗体的MouseUp事件 窗体的MouseUp事件是当释放鼠标按钮时发生，语法格式如下： Private Sub Form_MouseUp(button As Integer, shift As Integer, x As Single, y As Single) 三、窗体的MouseMove事件 窗体的MouseMove事件是当鼠标指针在屏幕上移动时发生，当鼠标指针处在窗体和控件的边框内时，窗体和控件均能识别MouseMove事件。语法格式如下： Private Sub Form MouseMove(button As Integer, shift As Integer, x As Single, y As Single) 说明： 1、在以上三个事件中，参数button的返回一个整数，用于标识该事件的产生是按下或者释放哪个鼠标按钮引起的，button参数的值可以是1、2、4，分别对应鼠标的左键，右键及中间键。 2、参数shift返回一个整数，在button参数指定的按键被按下或者释放的情况下，该整数对应于Shift、Ctrl和Alt键的状态。Shift键分别等于1、2和4，分别代表Shift、Ctrl和Alt键被按下。 3、参数x和y返回一个指定鼠标指针当前位置的数。 四、窗体的Line方法 窗体名.Line(x1, y1) - (x2, y2), [颜色],[B][F] 其中参数(x1,y1)是可选的，其数值类型为Single，指定直线或矩形的起点坐标。如果省略，线起始于由CurrentX和CurrentY指示的位置。 参数(x2, y2)是必需的，其数值类型为Single，指定直线或矩形的终点坐标。 参数color可选的，其数值类型为Long，画线时用的RGB颜色。如果省略该参数，则使用ForeColor属性值。可用RGB函数或QBColor函数指定颜色。 B是可选的。如果包括，则利用对角坐标画出矩形。 F是可选的。如果使用了B选项，则F选项规定矩形以矩形边框的颜色填充。不能不用B而用F。如果不用F只用B，则矩形用当前的FillColor和FillStyle填充。FillStyle的缺省值为transparent。 四、操作实例 创建一个简单的绘画程序。当程序运行时，可通过拖动鼠标左键连续画线，释放鼠标左键时停止画线，如图3-21所示；若单击鼠标右键，则画一条从上次画图位置出发的线段，如下图3所示。 【任务分析】 要想实现这一任务的目标，首先要定义保存鼠标在窗体中坐标的全局变量，有了全局变量，程序无论响应那一个鼠标事件，均可得到当前鼠标的坐标。用窗体的鼠标事件MouseMove和MouseDown完成连续画线，MouseUp事件结束画线。用窗体的鼠标事件MouseDown和MouseMove实现从上次画图位置到当前画直线。 １、窗体的line方法的作用是什么？ ２、窗体的MouseMove事件什么时候发生？ 3、窗体的MouseUp和MouseDown事件什么时发生？ 本节课到此结束 谢谢！ * / 任务四制作简单绘图程序 一、窗体的MouseDown事件 二、窗体的MouseUp事件 三、窗体的MouseMove事件 四、窗体的Line方法 五、操作实例 六、作业 思考与练习