绘图版源代码学习.docVIP

求绘图版源代码 用VB代码做出下面的效果 求代码~~ 怎么样完成代码？？？ 作者：Bao贝_颖 2008-12-30 19:58 回复此发言? 2 回复：求绘图版源代码 设计一个简单的画图程序， 它包括改变线条的粗细和颜色的自定义等选项 作者：Bao贝_颖 2008-12-30 19:59 回复此发言? 3 回复：求绘图版源代码 这个的代码要怎么写哦??? 高手们快来帮忙下啊!!!! 作者：oO完美等待Oo 2008-12-31 10:03 回复此发言? 4 回复：求绘图版源代码 在窗体里添加一个picturebox?一个commandbutton?两个frame?在其中一个frame里加入4个optionbutton?另一个frame里加入3个optionbutton?名称都是默认的不用改?自己改变位置让它比较好看?下面是全部代码 Dim?co?As?Long,?xh?As?Single,?yh?As?Single Private?Sub?Command1_Click() Picture1.Cls End?Sub Private?Sub?Form_Load() Frame1.Caption?=?颜色 Frame2.Caption?=?线条粗细 Option1.Caption?=?红 Option2.Caption?=?蓝 Option3.Caption?=?绿 Option4.Caption?=?黑 Option5.Caption?=?小 Option6.Caption?=?中 Option7.Caption?=?大 Picture1.BackColor?=?HFFFFFF Picture1.Scale?(0,?0)-(300,?300) Command1.Caption?=?清空 Option1.Value?=?True Option5.Value?=?True co?=?HFF Picture1.DrawWidth?=?1 End?Sub Private?Sub?Option1_Click() co?=?HFF End?Sub Private?Sub?Option2_Click() co?=?HFF0000 End?Sub Private?Sub?Option3_Click() co?=?H8000 End?Sub Private?Sub?Option4_Click() co?=?H0 End?Sub Private?Sub?Option5_Click() Picture1.DrawWidth?=?1 End?Sub Private?Sub?Option6_Click() Picture1.DrawWidth?=?3 End?Sub Private?Sub?Option7_Click() Picture1.DrawWidth?=?5 End?Sub Private?Sub?Picture1_MouseDown(Button?As?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single) xh?=?X yh?=?Y End?Sub Private?Sub?Picture1_MouseMove(Button?As?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single) If?Button?=?1?Then ?Picture1.Line?(xh,?yh)-(X,?Y),?co ?xh?=?X ?yh?=?Y End?If End?Sub 作者：comeonbady 2008-12-31 12:09 回复此发言? 5 回复：求绘图版源代码 我在VB里做了这么张图~ 之后把代码复制进去了~ 可是运行的时候有错误~ 作者：oO完美等待Oo 2008-12-31 12:49 回复此发言? 6 回复：求绘图版源代码 提示是什么错误 作者：comeonbady 2008-12-31 13:06 回复此发言? 7 回复：求绘图版源代码 出错了后调试下就这样~ 作者：oO完美等待Oo 2008-12-31 13:22 回复此发言? 8 回复：求绘图版源代码 Option?Explicit Dim?mObject?As?DrawObject?定义绘图对象 Dim?CurrentObjec