内容正文:
涂鸦王国——鼠标控制
本课将学习用VB编写可以用鼠标器在屏幕上随意画图的程序。该程序运行后可以按住鼠标左键画线,按住鼠标右键擦除画线,程序还具有更改画笔线粗、更改画笔颜色和清除屏幕涂鸦的功能。程序运行界面如图所示。
1.编写“线段随意画”程序
任务分折
程序运行后要求,在窗体上以按下鼠标左键的位置为所画线段的起点,按住鼠标左键移动,以抬起鼠标左键的位置为线段的终点,画出起点到终点的连线。
设置对象属性
线段随意画窗体设计
对象的默认名称(Name)属性一般与默认标识( Caption)属性相同,为了更好地识别不同的对象,可以根据对象的含义修改对象的名称属性。
对象的名称属性设置应该遵循一定的规则,一般情况下,不同的控件生成的对象名称应使用不同的前缀,这样从名称上就可以区别出是哪一类控件生成的对象,常用基本对象/控件名称前缀如表所示。
常用基本对象/控件名称前缀
(2)编写事件过程代码
线段随意画的程序代码主要由“按下鼠标键 (Mouse Down)”和“抬起鼠标键 (Mouse Up)”的事件构成。
步骤1:在代码窗口对象下拉组合框中选择窗体Form,在事件下拉组合框中选择Mouse Down事件。
步骤2:编写按下鼠标键画点的MouseDown事件过程代码。
步骤3:编写抬起鼠标键时画线的MouseUp事件过程代码。
7
执行程序,在窗体的不同位置单击鼠标各键或键盘Shift键,通过输出的信息,试总结以下按键规律。即:
按下鼠标左键时变量Button中存放的值为 。
按下鼠标右键时变量Button中存放的值为 。
按下鼠标滚轮时变量Button中存放的值为 。
按下键盘 Shift键时变量Shif中存放的值为 ,否则为 。
(3)保存文件
以“线段随意画.frm”为窗体文件名,保存文件到“\第2单元\8 涂鸦王国”文件夹中。
2.编写“圆形随意画”程序
(1)编写事件过程代码:
①求圆的半径。
②“圆形随意画”的程序代码。
(2)保存程序
以“圆形随意画.frm”为窗体文件名,保存文件到“\第2单元\8 涂鸦王国”文件夹中。
3.编写“涂鸦王国”程序
(1)设计用户界面
(2)设