摘要:本文给出了一个用VB5.0实现的鼠标绘图程序,对程序的主要功能及实现细节作了详细说明,并给出了部分源程序.
　　关键词:VB5.0,可视化程序设计
　　
　　1.引言
　　MicroSoft公司推出的新一代可视化程序设计语言VB5.0以其功能强大和简单易学而深受广大程序设计人员的喜爱,人们用它开发出了许多绚丽多彩的应用程序,可以这样说,VB5.0将成为最流行的可视化程序设计语言.
　　笔者在学习和使用VB5.0的过程中编制了一个实用的鼠标绘图程序,现提供给大家,以供大家参考.
　　
　　2.程序主要功能
　　本绘图程序的模块结构图如下所示:
　　鼠标绘图程序:
　　文件
　　新建
　　装入
　　保存
　　退出
　　绘图
　　颜色
　　前景色
　　背景色
　　线宽
　　1象素宽
　　2象素宽
　　3象素宽
　　4象素宽
　　清除
　　
　　3.实现细节
　　本程序主要是实现用鼠标在窗体上绘图,在绘图过程中可选择颜色及线宽,同时可将所绘图形以位图(.bmp)文件的形式存储在盘上,也可将盘上的其它图形文件调入窗体.
　　3.1用鼠标在窗体上绘图
　　利用窗体对象的MouseDown和MouseMove事件可实现鼠标在窗体上绘图:
　　
　　PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　CurrentX=X
　　CurrentY=Y
　　EndSub
　　PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　IfButtonThen
　　Line-(X,Y),forcolor
　　EndIf
　　EndSub
　　
　　其中forcolor为绘图的前景色,在本程序中前景色由用户选取.
　　
　　3.2颜色选取
　　利用通用对话框控件Commondialog的ShowColor方法可实现前景色和背景色的选取:
　　
　　PrivateSubmnubkcolor_Click()
　　CommonDialog1.CancelError=True
　　OnErrorGoToerrhandler
　　CommonDialog1.Flags=&H1&
　　CommonDialog1.ShowColor
　　BackColor=CommonDialog1.Color
　　ExitSub
　　errhandler:
　　ExitSub
　　EndSub
　　
　　3.3线宽的设置
　　通过设置窗体对象的属性DrawWidth的值可实现绘图时线宽的设置,DrawWidth=1时,线宽为1个象素,以此类推.
　　
　　3.4图形的保存
　　结合使用通用对话框控件Commondialog的ShowSave方法和SavePicture语句可实现图形的保存:
　　
　　PrivateSubmnusave_Click()
　　OnErrorGoToerrhandler
　　CommonDialog1.Filter="bmpfiles(*.bmp)"
　　CommonDialog1.ShowSave
　　SavePictureImage,CommonDialog1.FileName
　　ExitSub
　　errhandler:
　　ExitSub
　　EndSub
　　
　　3.5图形的调入
　　结合使用通用对话框控件Commondialog的ShowOpen方法和LoadPicture函数可实现图形的调入:
　　
　　PrivateSubmnuload_Click()
　　OnErrorGoToerrhandler
　　CommonDialog1.Filter="bmpfiles(*.bmp)"
　　CommonDialog1.ShowOpen
　　Picture=LoadPicture(CommonDialog1.FileName)
　　ExitSub
　　errhandler:
　　ExitSub
　　EndSub
　　4.源程序清单
　　
　　VERSION5.00
　　Object="{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0";"COMDLG32.OCX"
　　BeginVB.Formfrmdraw
　　AutoRedraw=-1'True
　　Caption="绘图工具软件(嘉兴高专机电系计算中心)"
　　ClientHeight=4230
　　ClientLeft=1140
　　ClientTop=1815
　　ClientWidth=6720
　　BeginPropertyFont
　　Name="隶书"
　　Size=5.25
　　Charset=134
　　Weight=400
　　Underline=0'False
　　Italic=0'False
　　Strikethrough=0'False
　　EndProperty
　　LinkTopic="Form1"
　　PaletteMode=1'UseZOrder
　　ScaleHeight=4230
　　ScaleWidth=6720
　　WindowState=2'Maximized
　　BeginMSComDlg.CommonDialogCommonDialog1
　　Left=4920
　　Top=2880
　　_ExtentX=847
　　_ExtentY=847
　　_Version=393216
　　End
　　BeginVB.Menumnufile
　　Caption="文件"
　　BeginVB.Menumnunew
　　Caption="新建"
　　End
　　BeginVB.Menumnustepa
　　Caption="-"
　　End
　　BeginVB.Menumnuload
　　Caption="装入"
　　End
　　BeginVB.Menumnustepb
　　Caption="-"
　　End
　　BeginVB.Menumnusave
　　Caption="保存"
　　End
　　BeginVB.Menumnustepc
　　Caption="-"
　　End
　　BeginVB.Menumnuexit
　　Caption="退出"
　　End
　　End
　　BeginVB.Menumnudraw
　　Caption="绘图"
　　BeginVB.Menumnucolor
　　Caption="颜色"
　　BeginVB.Menumnuforcolor
　　Caption="前景色"
　　End
　　BeginVB.Menumnustep1a
　　Caption="-"
　　End
　　BeginVB.Menumnubkcolor
　　Caption="背景色"
　　End
　　End
　　BeginVB.Menumnustepg
　　Caption="-"
　　End
　　BeginVB.Menumnudrawwidth
　　Caption="线宽"
　　BeginVB.Menumnupixel1
　　Caption="1象素宽"
　　End
　　BeginVB.Menumnustep31
　　Caption="-"
　　End
　　BeginVB.Menumnupixel2
　　Caption="2象素宽"
　　End
　　BeginVB.Menumnustep32
　　Caption="-"
　　End
　　BeginVB.Menumnupixel3
　　Caption="3象素宽"
　　End
　　BeginVB.Menumnustep33
　　Caption="-"
　　End
　　BeginVB.Menumnupixel4
　　Caption="4象素宽"
　　End
　　End
　　BeginVB.Menumnustepf
　　Caption="-"
　　End
　　BeginVB.Menumnuclearz
　　Caption="擦除"
　　BeginVB.Menumnuclear1
　　Caption="全部擦除"
　　End
　　BeginVB.Menumnustepo
　　Caption="-"
　　End
　　BeginVB.Menumnuclear2
　　Caption="部分擦除"
　　End
　　End
　　End
　　End
　　AttributeVB_Name="frmdraw"
　　AttributeVB_GlobalNameSpace=False
　　AttributeVB_Creatable=False
　　AttributeVB_PredeclaredId=True
　　AttributeVB_Exposed=False
　　DimforcolorAsLong
　　
　　PrivateSubmnubkcolor_Click()
　　CommonDialog1.CancelError=True
　　OnErrorGoToerrhandler
　　CommonDialog1.Flags=&H1&
　　CommonDialog1.ShowColor
　　BackColor=CommonDialog1.Color
　　ExitSub
　　errhandler:
　　ExitSub
　　EndSub
　　
　　PrivateSubmnuclear1_Click()
　　Picture=LoadPicture("")
　　EndSub
　　
　　PrivateSubmnuforcolor_Click()
　　CommonDialog1.CancelError=True
　　OnErrorGoToerrhandler
　　CommonDialog1.Flags=&H1&
　　CommonDialog1.ShowColor
　　forcolor=CommonDialog1.Color
　　ExitSub
　　errhandler:
　　ExitSub
　　EndSub
　　
　　PrivateSubmnuexit_Click()
　　End
　　EndSub
　　PrivateSubmnuload_Click()
　　OnErrorGoToerrhandler
　　CommonDialog1.Filter="AllFiles(*.*)"
　　CommonDialog1.ShowOpen
　　Picture=LoadPicture(CommonDialog1.FileName)
　　ExitSub
　　errhandler:
　　ExitSub
　　EndSub
　　PrivateSubmnunew_Click()
　　Picture=LoadPicture("")
　　EndSub
　　PrivateSubmnupixel1_Click()
　　DrawWidth=1
　　EndSub
　　PrivateSubmnupixel2_Click()
　　DrawWidth=2
　　EndSub
　　PrivateSubmnupixel3_Click()
　　DrawWidth=3
　　EndSub
　　PrivateSubmnupixel4_Click()
　　DrawWidth=4
　　EndSub
　　PrivateSubmnusave_Click()
　　OnErrorGoToerrhandler
　　CommonDialog1.Filter="AllFiles(*.*)"
　　CommonDialog1.ShowSave
　　SavePictureImage,CommonDialog1.FileName
　　ExitSub
　　errhandler:
　　ExitSub
　　EndSub
　　PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　CurrentX=X
　　CurrentY=Y
　　EndSub
　　PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　IfButtonThen
　　Line-(X,Y),forcolor
　　EndIf
　　EndSub
　　
　　5.结束语
　　本程序已在VB5.0环境下调试通过,有兴趣的读者可对该程序进行扩充,以完成更强的绘图功能->