(中职）Visual Basic 6.0程序设计第7章课件.ppt

《(中职）Visual Basic 6.0程序设计第7章课件.ppt》由会员分享，可在线阅读，更多相关《(中职）Visual Basic 6.0程序设计第7章课件.ppt（32页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、(中职）Visual Basic 6.0程序设计第7章ppt课件程序界面设计程序界面设计 v【实例25】绘图程序v【实例26】图像浏览与打印v【实例27】多文档程序【实例【实例25】绘图程序绘图程序 案例效果 本节的实例程序可以完成简单的图像绘制功能 v在程序中，可以使用菜单完成如下功能：v图形文件的打开和保存；在图形上鼠标所在位置绘制圆形、矩形和正、余弦曲线；还可以调用“颜色”对话框进行图形颜色的设置。技术分析技术分析 1菜单编辑器（1）“标题”（2）“名称”（3）“索引”（4）“帮助上下文ID”（5）“快捷键”（6）“协调位置”（7）“复选”（8）“有效”（9）“可见”（10）“显示窗口列

2、表”（11）“菜单显示区域”（12）左箭头按钮（13）右箭头按钮（14）上箭头按钮（15）下箭头按钮（16）“下一个”按钮（17）“插入”按钮（18）“删除”按钮 技术分析技术分析2菜单的编辑 技术分析技术分析3弹出式菜单（1）设计弹出式菜单（2）调用弹出式菜单 操作步骤操作步骤 v1创建程序界面v（1）新建一个“标准 EXE”工程。v（2）创建程序菜单，程序菜单的创建请参见本节前面的“菜单的编辑”中小节，此处不再重述。v（3）在窗体中添加一个PictureBox控件和一个通用对话框控件。PictureBox控件用于绘图窗口，通用对话框控件用于在程序中调出“打开”、“保存”和“颜色”对话框，进

3、行相关的操作。v2程序代码编辑v完成界面设计后，在程序代码窗口中输入以下代码。v程序代码：vDim Shape As Integer 图形类型vDim blChange As Boolean 图片是否改变vPrivate Sub Cir_Click()v Shape=1vEnd SubvPrivate Sub ELLIPSE_Click()v Shape=2vEnd SubvPrivate Sub RECT_Click()v Shape=3vEnd SubvPrivate Sub SinLine_Click()v Shape=4vEnd SubvPrivate Sub CosLine_Clic

4、k()v Shape=5vEnd Sub vPrivate Sub DRAW_CLEAR_Click()v Picture1.Cls 清除图片框所绘的内容vEnd SubvPrivate Sub CLR_BLUE_Click()v Picture1.ForeColor=RGB(0,0,255)设置绘图前景色vEnd SubvPrivate Sub CLR_GREEN_Click()v Picture1.ForeColor=RGB(0,255,0)vEnd SubvPrivate Sub CLR_MORE_Click()v CommonDialog1.ShowColor 通过颜色对话框设置绘图前

5、景色v Picture1.ForeColor=CommonDialog1.COLORvEnd SubvPrivate Sub CLR_RED_Click()v Picture1.ForeColor=RGB(255,0,0)vEnd SubvPrivate Sub Exit_Click()v EndvEnd Sub vPrivate Sub FileNew_Click()v If blChange=True Thenv If MsgBox(图片内容已改变，是否要保存当前图片？,vbYesNo)=vbYes Thenv CommonDialog1.ShowSavev SavePicture Pic

6、ture1.Image,CommonDialog1.FileName 保存图片框内容v End Ifv End Ifv Picture1.Picture=LoadPicture()清空图片框内容vEnd SubvPrivate Sub FileOpen_Click()v CommonDialog1.ShowOpenv Picture1.Picture=LoadPicture(CommonDialog1.FileName)载入图片文件vEnd SubvPrivate Sub FileSave_Click()v CommonDialog1.ShowSavev SavePicture Picture

7、1.Image,CommonDialog1.FileName 保存图片框内容v blChange=FalsevEnd SubvPrivate Sub Form_Load()v Picture1.ScaleMode=vbPixels 设置度量单位为像素v Picture1.DrawWidth=3 设置线宽v Picture1.AutoRedraw=True 设置自动重绘有效，以便保存图片v CommonDialog1.Filter=BMP位图|*.bmp|全部文件|*.*设置打开对话框文件过滤v blChange=Falsev Picture1.Scale(-400,-300)-(400,300

8、)定义坐标系v Picture1.DrawStyle=6 设置线类型为内部实线v Picture1.DrawWidth=2 设置线宽为2个点vEnd Sub vPrivate Sub Form_Resize()v 在窗体大小改变后，图片框自动调整大小v Picture1.Top=200v Picture1.Left=100v Picture1.Height=Me.Height-1000v Picture1.Width=Me.Width-300vEnd SubvPrivate Sub Picture1_MouseDown(Button As Integer,Shift As Integer,X

9、As Single,Y As Single)v Dim PX As Integer,PY As Integer,Xh As Singlev Const PI=3.1415926v If Button=2 Then Me.PopupMenu DRAW 鼠标右键按下时弹出菜单v Select Case Shapev Case 1v Picture1.Circle(X,Y),50 绘制圆形v Case 2v Picture1.Circle(X,Y),100,0.5 绘制椭圆v Case 3v Picture1.Line(X,Y)-(X+150,Y+150),B 绘制矩形v Case 4v For P

10、X=-360 To 360 绘制一条的正弦曲线v Xh=PI/180*PXv PY=200*Cos(Xh)v Picture1.PSet(PX,PY)v Nextv Case 5v For PX=-360 To 360 绘制一条的余弦曲线v Xh=PI/180*PXv PY=200*Sin(Xh)v Picture1.PSet(PX,PY)v Nextv End Selectv blChange=TruevEnd Sub 知识进阶知识进阶 1菜单数组 菜单实质上可以理解为一个特殊的控件对象，它也可以像控件一样组成控件数组 v2动态菜单v动态菜单是指在程序运行中可以通过某些条件对菜单结构进行动态

11、调整，以增强菜单的易用性，使菜单更为灵活有效。v3程序进阶动态菜单设计 思考练习思考练习 v1填空题v（1）菜单可以响应_事件。v（2）在菜单的Caption属性取值的后面输入一个_符号，表示选择该菜单选项将调出一个对话框；在字母前输入一个_符号，该字母就成了热键字母。如果要在菜单中加入隔离线，应输入一个_符号。v（3）要显示弹出式菜单，可以在代码中使用_方法。v（4）菜单数组共用相同的_,通过_属性来判断选择了哪一个菜单项。v（5）菜单的_属性可以使菜单项的显示/隐藏，_语句和_语句可以添加和删除菜单项。v2程序设计题v（1）在菜单栏内创建一个名称为“工具与游戏”菜单标题，它的子菜单是“工具

12、”和“游戏”，“工具”菜单下又有“记事本”、“画图”和“WORD XP”菜单选项，“游戏”菜单下又有“游戏1”、“游戏2”和“游戏3”菜单选项。单击菜单命令后，会执行相应的应用程序。v（2）修改本例中的绘图程序，在菜单中添加画线、画点、画圆弧、画扇形等功能。【实例【实例26】图像浏览与打印图像浏览与打印 案例效果 本节实例是一个可用于图像文件浏览、放大、缩小和打印的程序 技术分析技术分析 1工具栏（1）工具栏的创建 常 数值描 述vbAlignNone0不对齐，在设计时或在程序中确定大小和位置。如果对象在 MDI 窗体上，则忽略该设置值。它是非 MDI 窗体的默认值vbAlignTop1对象显

13、示在窗体的顶部，其宽度等于窗体的 ScaleWidth 属性设置值。它是MDI窗体的默认值vbAlignBottom2与窗口工作空间底部对齐，其宽度等于窗体的 ScaleWidth 属性值，可自动改变对象大小以适合窗体的宽度vbAlignLeft3与窗口工作空间左边对齐，其宽度等于窗体的 ScaleWidth 属性值vbAlignRight4与窗口工作空间右边对齐，其宽度等于窗体的 ScaleWidth 属性值技术分析技术分析（2）在工具栏中加入工具按钮（3）为工具按钮加载图像 技术分析技术分析2工具栏的应用（1）ImageList属性（2）AllowCustomize属性（3）ShowTip

14、s属性（4）Add方法（5）Remove方法（6）Clear方法 操作步骤操作步骤 v1程序界面设计v（1）新建一个“标准EXE”工程。v（2）再为窗体添加一个菜单栏。菜单栏的各项设计 v（3）按本节前面所述创建一个工具栏。v（4）为窗体添加一个PictureBox控件，再在该控件内部添加一个水平滚动条、一个垂直滚动条和一个Image控件。v（5）再为窗体添加一个通用对话框控件用于打开文件。v2添加程序代码v为程序添加如下代码。v程序代码：vPrivate Sub Form_Load()v 设置打开对话框过滤器v CommonDialog1.Filter=JPG图像|*.jpg|BMP图像|*

15、.bmp|GIF图像|*.gif|全部文件|*.*v 初始化滚动条v VScroll1.Max=100v VScroll1.LargeChange=10v VScroll1.SmallChange=2v HScroll1.Max=100v HScroll1.LargeChange=10v HScroll1.SmallChange=2v Image1.Stretch=True Image控件内图形大小为可适应控件vEnd Sub vPrivate Sub Form_Resize()v 当窗体大小改变时v 改变PictureBox控件大小v Picture1.Top=Toolbar1.Height

16、v Picture1.Left=100v Picture1.Height=Me.Height-1500v Picture1.Width=Me.Width-300v 改变垂直滚动条控件大小v VScroll1.Top=0v VScroll1.Left=Picture1.Width-300v VScroll1.Width=300v VScroll1.Height=Picture1.Heightv 改变水平滚动条控件大小v HScroll1.Top=Picture1.Height-300v HScroll1.Left=0v HScroll1.Width=Picture1.Width-300v HSc

17、roll1.Height=300v 改变Image控件大小v Image1.Top=0v Image1.Left=0v Image1.Width=Picture1.Width-300v Image1.Height=Picture1.Height-300vEnd Sub vPrivate Sub Fill_Click()v Image1.Height=Picture1.Height-300 填充图片框v Image1.Width=Picture1.Width-300v Image1.Top=0v Image1.Left=0vEnd SubvPrivate Sub OpenFile_Click()

18、v CommonDialog1.ShowOpenv Image1.Picture=LoadPicture(CommonDialog1.FileName)载入图片v vEnd SubvPrivate Sub Print_Click()v Printer.PaintPicture Image1.Picture,100,100 使用Printer对象打印图片v Printer.EndDocvEnd SubvPrivate Sub Quit_Click()v EndvEnd SubvPrivate Sub ZoomIn_Click()v Image1.Width=Image1.Width*2 放大图像

19、v Image1.Height=Image1.Height*2vEnd Sub vPrivate Sub ZoomOut_Click()v Image1.Width=Image1.Width/2 缩小图像v Image1.Height=Image1.Height/2vEnd SubvPrivate Sub VScroll1_Change()v 滚动时移动图片v Image1.Top=-VScroll1.Value/VScroll1.Max*Image1.HeightvEnd SubvPrivate Sub HScroll1_Change()v 滚动时移动图片v Image1.Left=-HSc

20、roll1.Value/HScroll1.Max*Image1.WidthvEnd SubvPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)v 当单工具栏按钮时v Select Case Button.Keyv Case Openv OpenFile_Click 调用“打开”菜单命令的事件过程v Case ZoomOutv ZoomOut_Click 调用“缩小”菜单命令的事件过程v Case ZoomInv ZoomIn_Click 调用“放大”菜单命令的事件过程v Case Fillv Fill_Cli

21、ck 调用“填充”菜单命令的事件过程v Case Printv Print_Click 调用“打印”菜单命令的事件过程v End SelectvEnd Subv在工具栏按钮按下的事件Toolbar1_ButtonClick中，通过Buttons集合的Key属性来区别哪一个按钮被按下，并执行相应的动作，如下所示。vSelect Case Button.Keyv Case Openv OpenFile_Click 调用“打开”菜单命令的事件过程v Case ZoomOutv ZoomOut_Click 调用“缩小”菜单命令的事件过程v 知识进阶知识进阶 1状态栏（1）状态栏的创建（2）通过“属性页

22、”设置状态栏属性 2进阶实例能显示信息的图像浏览器 思考练习思考练习 v1填空题v（1）工具栏中的按钮通常作为一个_集合对象供程序访问。v（2）工具栏、图像列表和状态栏在_控件中提供。v2程序设计题v（1）为本章的“绘图程序”添加工具栏，使其可以使用工具栏按钮来选择所绘图形，选择多种常用颜色。v（2）为本章的“绘图程序”添加状态栏，使其可以显示当前鼠标位置、所绘图形等信息。【实例27】多文档程序 案例效果 程序中将显示一个多文档窗口，通过菜单操作，可以加载其他的子窗体到多文档窗口中。程序运行效果 技术分析 1单文档程序与多文档程序（1）多文档界面（MDI）有一个可以包容许多其他窗体的“父窗体”

23、，好像是一个窗体的容器，它可以容纳多个文档窗体，每个文档窗体内都显示各自的文档（2）多文档界面（MDI）与多重窗体不是一个概念。（3）当子窗体被最小化后，它将以标题栏形式出现在父窗体中，而不会出现在Windows的任务栏中 技术分析（4）当父窗体最大化时，父窗体可以充满整个屏幕；当子窗体最大化时，子窗体可以充满整个父窗体划定的工作区域，同时子窗体的标题栏消失，其标题与MDI窗体的标题合并，并出现在父窗体的标题栏中（5）如果MDI子窗体有菜单，那么，当MDI子窗体为活动窗体时，子窗体的菜单将自动取代MDI窗体的菜单。（6）一个MDI应用程序可以含有三类窗体，即普通窗体（也称标准窗体）、MDI父窗

24、体和MDI子窗体，通常把MDI父窗体简称为父窗体或MDI窗体，而把MDI子窗体简称为子窗体。技术分析v2创建多文档程序v（1）创建MDI窗体v（2）创建子窗体 v（3）设置MDI窗体为启动窗体 v3MDI窗体的属性、方法与事件 v（1）AutoShowChildren属性 v（2）Arrange方法 v（3）Dim语句 v（4）QueryUnload事件和Unload事件 操作步骤 1程序界面设计 菜 单 项标 题名 称索 引主菜单项1程序(&Program)MainForm子菜单项1-1子窗体1ChForm1子菜单项1-2子窗体2 ChForm2子菜单项1-3子窗体3ChForm3子菜单项1

25、-4子窗体4ChForm4子菜单项1-5-sp子菜单项1-6退出Quitv2添加程序代码v最后，在MDI窗体的程序代码窗口中添加如下代码。v程序代码：vPrivate Sub ChForm_Click(Index As Integer)v Select Case Indexv Case 1v Form1.Showv Case 2v Form2.Showv Case 3v Form3.Showv Case 4v Form4.Showv End SelectvEnd SubvPrivate Sub Quit_Click()v EndvEnd SubvPrivate Sub Cascade_Clic

26、k()v MDIForm1.Arrange 0 层叠窗口vEnd SubvPrivate Sub TileH_Click()v MDIForm1.Arrange 1 水平并排窗口vEnd SubvPrivate Sub TileV_Click()v MDIForm1.Arrange 2 垂直并排vEnd Sub 知识进阶（1）设置是否保存的状态信息（2）卸载MDI窗体 思考练习 v1填空题v（1）一个MDI应用程序可以含有三类窗体：_、_和_。v（2）MDI子窗体是一个_属性为True的普通窗体。v（3）一个应用程序可以有_个MDI窗体，_个MDI子窗体。v（4）MDI窗体的_属性决定子窗体的排列形式。v2程序设计题v（1）为本例的MDI程序添加一个工具栏，工具栏按钮可以执行对应的菜单命令。v（2）完善前面的MDI程序，在程序关闭时进行提示。