一個用VB5.0實現的鼠標繪圖程序

2019-11-18 17:29:42

字體：大中小

來源：轉載

供稿：網友

摘要:本文給出了一個用VB5.0實現的鼠標繪圖程序,對程序的主要功能及實現細節作了詳細說明,并給出了部分源程序.
關鍵詞:VB5.0,可視化程序設計

1.引言
MicroSoft公司推出的新一代可視化程序設計語言VB5.0以其功能強大和簡單易學而深受廣大程序設計人員的喜愛,人們用它開發出了許多絢麗多彩的應用程序,可以這樣說,VB5.0將成為最流行的可視化程序設計語言.
筆者在學習和使用VB5.0的過程中編制了一個實用的鼠標繪圖程序,現提供給大家,以供大家參考.

2.程序主要功能
本繪圖程序的模塊結構圖如下所示:
鼠標繪圖程序:
文件
新建
裝入
保存
退出
繪圖
顏色
前景色
背景色
線寬
1象素寬
2象素寬
3象素寬
4象素寬
清除

3.實現細節
本程序主要是實現用鼠標在窗體上繪圖,在繪圖過程中可選擇顏色及線寬,同時可將所繪圖形以位圖(.bmp)文件的形式存儲在盤上,也可將盤上的其它圖形文件調入窗體.
3.1用鼠標在窗體上繪圖
利用窗體對象的MouseDown和MouseMove事件可實現鼠標在窗體上繪圖:

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環境下調試通過,有興趣的讀者可對該程序進行擴充,以完成更強的繪圖功能->