VB课程设计任务书51-简单画笔的模拟实现.doc

河北工业大学计算机软件技术基础（VB） 课 程 设 计 任 务 书 本题难度级别：C 实现基本要求代码: 约100行 主要涉及: 基本控件的使用 一、设计题目：简单画笔的模拟实现（出题人：宋洁） 二、目的与要求1.目的培养学生综合利用语言进行程序设计的能力，主要是。基本要求3.创新要求、设计方法和基本原理 1问题描述 2. 问题的解决方案Private Sub Form_Load 事件中进行画笔颜色、画线宽度的初始化并将绘图标志初始化设为Flase. Private Sub CmdStar_Click 事件中将绘图标志初始化设为Ture。 在画图板画图时注意使用Picture控件的MouseDown “鼠标按下”和MouseMove“鼠标移动”事件，完成画图操作。如： Private Sub Picture1_MouseDown Button As Integer, Shift As Integer, X As Single, Y As Single ‘参数Button返回一个整数，分别是1、2和4，对应表示按下鼠标左键、右键和中间键 If Button 1 And DrawFlag True Then‘若按下的是鼠标左键并此时允许画线 X0 X ：Y0 Y ‘得到起始坐标 End If End Sub Private Sub Picture1_MouseMove Button As Integer, Shift As Integer, X As Single, Y As Single 事件中，使用Line方法实现画线功能。 在Private Sub CmdColor_Click 事件中用CommonDialog1.ShowColor方法显示“颜色”对话框来选取颜色。 在Private Sub CmdLineWidth_Click 中用InputBox函数输入画线宽度。 四、问题的描述：isual Basic 程序设计教程 及 Visual Basic 实验教程 VB6.0程序员指南 VB6.0控件参考手册 VB参考资料中的“文本编辑器.ZIP” MSDN中文版，课程设计网站上提供的其它资料。 六、设计部分的评分标准（本题难度为C级，综合时乘难度系数0.8） 完成基本要求 60-80 创新要求完成，并有自己独创性 100 [注：最后得分是根据本部分得分 占最大比例）以及课程设计期间纪律、设计报告书、答辩情况综合得出] VB课程设计任务书 – 简单画笔的模拟实现 第3页共3页 图 1