(中职）Visual Basic 6.0程序设计第7章ppt课件-【中职专用】《计算机类》同步教学课件

程序界面设计 【实例25】 绘图程序 【实例26】 图像浏览与打印 【实例27】 多文档程序 【实例25】 绘图程序 案例效果 本节的实例程序可以完成简单的图像绘制功能 在程序中，可以使用菜单完成如下功能： 图形文件的打开和保存；在图形上鼠标所在位置绘制圆形、矩形和正、余弦曲线；还可以调用“颜色”对话框进行图形颜色的设置。 技术分析 1．菜单编辑器 （1）“标题” （2）“名称” （3）“索引” （4）“帮助上下文ID” （5）“快捷键” （6）“协调位置” （7）“复选” （8）“有效” （9）“可见” （10）“显示窗口列表” （11）“菜单显示区域” （12）左箭头按钮 （13）右箭头按钮 （14）上箭头按钮 （15）下箭头按钮 （16）“下一个”按钮 （17）“插入”按钮 （18）“删除”按钮 技术分析 2．菜单的编辑 技术分析 3．弹出式菜单 （1）设计弹出式菜单 （2）调用弹出式菜单 操作步骤 1．创建程序界面 （1）新建一个“标准 EXE”工程。 （2）创建程序菜单，程序菜单的创建请参见本节前面的“菜单的编辑”中小节，此处不再重述。 （3）在窗体中添加一个PictureBox控件和一个通用对话框控件。PictureBox控件用于绘图窗口，通用对话框控件用于在程序中调出“打开”、“保存”和“颜色”对话框，进行相关的操作。 2．程序代码编辑 完成界面设计后，在程序代码窗口中输入以下代码。 程序代码： Dim Shape As Integer '图形类型 Dim blChange As Boolean '图片是否改变 Private Sub Cir_Click() Shape = 1 End Sub Private Sub ELLIPSE_Click() Shape = 2 End Sub Private Sub RECT_Click() Shape = 3 End Sub Private Sub SinLine_Click() Shape = 4 End Sub Private Sub CosLine_Click() Shape = 5 End Sub Private Sub DRAW_CLEAR_Click() Picture1.Cls '清除图片框所绘的内容 End Sub Private Sub CLR_BLUE_Click() Picture1.ForeColor = RGB(0, 0, 255) '设置绘图前景色 End Sub Private Sub CLR_GREEN_Click() Picture1.ForeColor = RGB(0, 255, 0) End Sub Private Sub CLR_MORE_Click() CommonDialog1.ShowColor '通过颜色对话框设置绘图前景色 Picture1.ForeColor = CommonDialog1.COLOR End Sub Private Sub CLR_RED_Click() Picture1.ForeColor = RGB(255, 0, 0) End Sub Private Sub Exit_Click() End End Sub Private Sub FileNew_Click() If blChange = True Then If MsgBox("图片内容已改变，是否要保存当前图片？", vbYesNo) = vbYes Then CommonDialog1.ShowSave SavePicture Picture1.Image,CommonDialog1.FileName '保存图片框内容 End If End If Picture1.Picture = LoadPicture("") '清空图片框内容 End Sub Private Sub FileOpen_Click() CommonDialog1.ShowOpen Picture1.Picture = LoadPicture(CommonDialog1.FileName) '载入图片文件 End Sub Private Sub FileSave_Click() CommonDialog1.ShowSave SavePicture Picture1.Image, Commo