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

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

1、(中职）Visual Basic 6.0程序设计第6章ppt课件消息对话框与通用对话框消息对话框与通用对话框 v【实例23】系统日期修改器v【实例24】图像浏览器【实例【实例23】系统日期修改器系统日期修改器 案例效果 v程序实例用于显示/改变系统时间。v程序运行时，可以单击“修改系统日期”或“修改系统时间”按钮，在弹出的输入对话框中输入新的日期或时间进行系统日期/时间的设置，设置成功后将弹出消息对话框提示成功。技术分析技术分析 1消息对话框 2输入对话框 操作步骤操作步骤 v1创建程序界面v新建一个“标准 EXE”工程，按照图6-1左图所示为工程添加三个命令按钮、三个标签、两个文本框，再为程

2、序添加一个用于计时的时钟（Timer）控件。v2程序代码编辑v在代码窗口中为程序添加如下代码。v程序代码：vPrivate Sub Command1_Click()v Dim strTmp As Stringv获取新日期字符串v strTmp=InputBox(请输入新的系统日期:(yyyy-mm-dd),修改系统日期)v If strTmp Thenv Date=CDate(strTmp)改变系统日期v MsgBox 新的系统日期为+Str(Date)显示改变后的日期v End IfvEnd SubvPrivate Sub Command2_Click()v Dim strTmp As St

3、ringv获取新时间字符串v strTmp=InputBox(请输入新的系统日期:(hh-mm-ss),修改系统时间)v If strTmp Thenv Time=CDate(strTmp)改变系统时间v MsgBox 新的系统时间为+Str(Time)显示改变后的时间v End IfvEnd SubvPrivate Sub Command3_Click()v EndvEnd SubvPrivate Sub Form_Load()v Timer1.Interval=1000设置时钟间隔vEnd SubvPrivate Sub Timer1_Timer()v Text1.Text=Date刷新日

4、期和时间v Text2.Text=TimevEnd Sub 知识进阶知识进阶 1带返回值的消息对话框 2进阶实例消息对话框的应用 思考练习思考练习 v1填空题v（1）消息对话框的返回值类型为 ，输入对话框的返回值类型为 。v（2）在输入对话框中，想显示多行提示文本，应使用 进行换行。v2程序设计题v（1）设计一个四则运算程序，使用输入对话框提示输入答案，使用消息对话框提示是否正确、重作、放弃等操作。v（2）设计一个计划任务程序，使用输入对话框提示计划的时间，到时间后使用消息对话框作提醒。【实例【实例24】图像浏览器图像浏览器 案例效果 本实例是一个可以进行图像浏览、保存的图像浏览器 程序运行中

5、，单击“打开”按钮，可以调用“打开”对话框加载图像文件；单击“另存为”按钮，可以调出“另存为”对话框，进行图像文件的保存；单击“放大”、“缩小”按钮进行图像的缩放，当图像超出图片框时，可以通过滚动条进行滚动查看。技术分析技术分析 1ActiveX控件与可插入对象 2在Visual Basic中使用ActiveX控件 3通用对话框 4“打开”对话框与“另存为”对话框 操作步骤操作步骤 v1创建程序界面v新建一个“标准 EXE”工程，在窗体上添加一个驱动器列表框、一个目录列表框、一个文件列表框、一个文本框、五个命令按钮、一个图片框控件和一个通用对话框控件。v2程序代码编辑v在代码窗口中输入以下的程

6、序代码。v程序代码：vPrivate Sub Form_Load()v 初始化图像控件大小v Image1.Top=0v Image1.Height=Picture1.Height-HScroll1.Heightv Image1.Left=0v Image1.Width=Picture1.Width-VScroll1.WidthvEnd SubvPrivate Sub Command1_Click()v 设置过滤器，只显示可打开文件类型的文件v CommonDialog1.Filter=BMP图像（*.bmp）|*.BMP|JPG图像（*.jpg）|*.JPG|_v +GIF图像（*.gif)

7、|*.gif|所有文件（*.*）|*.*v CommonDialog1.ShowOpen 调用打开对话框获取文件路径v Set Image1.Picture=LoadPicture(CommonDialog1.FileName)加载选中的图像vEnd Sub vPrivate Sub Command2_Click()v CommonDialog1.FileName=重置文件名v 设置默认文件名v CommonDialog1.DefaultExt=BMP图像（*.bmp）|*.BMP|JPG图像（*.jpg）|*.JPG|_v +GIF图像（*.gif)|*.gif|所有文件（*.*）|*.*v

8、 CommonDialog1.Flags=2 如果文件存在，则询问是否覆盖v CommonDialog1.ShowSave 调用另存为对话框获取文件路径v If CommonDialog1.FileName Thenv SavePicture Image1.Picture,CommonDialog1.FileName 保存图片框内容v End IfvEnd SubvPrivate Sub Command3_Click()v 放大图像控件v Image1.Width=Image1.Width*2v Image1.Height=Image1.Height*2v Image1.Left=0v Ima

9、ge1.Top=0vEnd SubvPrivate Sub Command4_Click()v 缩小图像控件v Image1.Width=Image1.Width/2v Image1.Height=Image1.Height/2v Image1.Left=0v Image1.Top=0vEnd Sub vPrivate Sub Command5_Click()v EndvEnd SubvPrivate Sub HScroll1_Change()v 滚动图像v n=(Picture1.Width-Image1.Width-VScroll1.Width)/HScroll1.Maxv Image1.

10、Left=n*HScroll1.ValuevEnd SubvPrivate Sub VScroll1_Change()v 滚动图像v n=(Picture1.Height-Image1.Height-HScroll1.Height)/VScroll1.Maxv Image1.Top=n*VScroll1.ValuevEnd Sub 知识进阶知识进阶 1“颜色”对话框2“字体”对话框 3进阶实例颜色与文字 4“打印”对话框 5“帮助”对话框 6进阶实例通用对话框综合演示 思考练习思考练习 v1填空题v（1）ActiveX控件文件的扩展名为_，可插入对象是随_安装的。v（2）Windows 的通用对话框在程序中以_形式存在，当在不同版本的Windows 操作系统中调用了通用对话框，会发现对话框会_的不同而改变。v（3）Filter属性用于_对话框中设置文件类型的过滤。使用“打开”对话框和“另存为”对话框主要是为了获取_，并不是文件的内容。v（4）在程序调用“字体”对话框之前，应先设置_属性。v2程序设计题v（1）设计一个“外部程序管理器”，可以调用外部可执行程序。v（2）设计一个可以在图片框中绘图的程序，颜色、文字等使用通用对话框来设置。