寻一个会vb的好心人，，跪求，，急求，，会做（简单画面的模拟试验）

计算机软件技术基础（VB）
课  程  设  计  任  务  书
本题难度级别：C  实现基本要求代码: 约100行  主要涉及: 基本控件的使用
一、设计题目：简单画笔的模拟实现（出题人：宋洁）
二、目的与要求
1.目的
培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件、通用对话框控件进行设计。 
2.基本要求
   程序运行时：
 单击窗体左边的“开始画图”按钮，能够在画板区任意涂写。
 按“停止画图”按钮取消画图功能。
 用“画板清空”来清空画板区的内容。
 单击“设置颜色”按钮设置画笔的颜色。
 单击“设置宽度”按钮设置画笔的线条的宽度。
 单击“退出”按钮，结束程序运行
3.创新要求
 增加一些功能：比如规则和不规则的封闭图形，并将其填充颜色。三、设计方法和基本原理
1．问题描述
   单击“开始画图”按钮，能够在画板区按默认的颜色和线条宽度进行开始涂写，按“停止画图”按钮取消涂写。也可以单击“设置颜色”按钮，出现“颜色”对话框选取画笔的颜色，单击“设置宽度”按钮出现“设置宽度”的线对话框（图 1）设置条的宽度后再去涂写，按“停止画图”按钮取消涂写。2. 问题的解决方案
①设计程序界面
参考上述给出的界面，添加命令控件、通用控件（CommonDialog）和Picture1控件，完成窗体界面的设计。
②编写代码
 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函数输入画线宽度。
    
四、主要技术问题的描述：
 通用控件（CommonDialog）参看课本第十章。
 PictuieBox控件属性的使用可参看课本第十一章和MSDN中文版。五、参考资料
★ Visual Basic 程序设计教程 及 Visual Basic 实验教程
★ VB6.0程序员指南
★ VB6.0控件参考手册
★ VB参考资料中的“文本编辑器.ZIP”
★ MSDN中文版，课程设计网站上提供的其它资料。
六、设计部分的评分标准（本题难度为C级，综合时乘难度系数0.8）
完成基本要求 60-80
创新要求完成，并有自己独创性 100
[注：最后得分是根据本部分得分(占最大比例）以及课程设计期间纪律、设计报告书、答辩情况综合得出]