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

消息对话框与通用对话框 【实例23】 系统日期修改器 【实例24】 图像浏览器 【实例23】 系统日期修改器 案例效果 程序实例用于显示/改变系统时间。 程序运行时，可以单击“修改系统日期”或“修改系统时间”按钮，在弹出的输入对话框中输入新的日期或时间进行系统日期/时间的设置，设置成功后将弹出消息对话框提示成功。 技术分析 1．消息对话框 2．输入对话框 操作步骤 1．创建程序界面 新建一个“标准 EXE”工程，按照图6-1左图所示为工程添加三个命令按钮、三个标签、两个文本框，再为程序添加一个用于计时的时钟（Timer）控件。 2．程序代码编辑 在代码窗口中为程序添加如下代码。 程序代码： Private Sub Command1_Click() Dim strTmp As String '获取新日期字符串 strTmp = InputBox("请输入新的系统日期:(yyyy-mm-dd)", "修改系统日期") If strTmp <> "" Then Date = CDate(strTmp) '改变系统日期 MsgBox "新的系统日期为" + Str(Date) '显示改变后的日期 End If End Sub Private Sub Command2_Click() Dim strTmp As String '获取新时间字符串 strTmp = InputBox("请输入新的系统日期:(hh-mm-ss)", "修改系统时间") If strTmp <> "" Then Time = CDate(strTmp) '改变系统时间 MsgBox "新的系统时间为" + Str(Time) '显示改变后的时间 End If End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Timer1.Interval = 1000 '设置时钟间隔 End Sub Private Sub Timer1_Timer() Text1.Text = Date '刷新日期和时间 Text2.Text = Time End Sub 知识进阶 1．带返回值的消息对话框 2．进阶实例——消息对话框的应用 思考练习 1．填空题 （1）消息对话框的返回值类型为 ，输入对话框的返回值类型为 。 （2）在输入对话框中，想显示多行提示文本，应使用 进行换行。 2．程序设计题 （1）设计一个四则运算程序，使用输入对话框提示输入答案，使用消息对话框提示是否正确、重作、放弃等操作。 （2）设计一个计划任务程序，使用输入对话框提示计划的时间，到时间后使用消息对话框作提醒。 【实例24】 图像浏览器 案例效果 本实例是一个可以进行图像浏览、保存的图像浏览器 程序运行中，单击“打开”按钮，可以调用“打开”对话框加载图像文件；单击“另存为”按钮，可以调出“另存为”对话框，进行图像文件的保存；单击“放大”、“缩小”按钮进行图像的缩放，当图像超出图片框时，可以通过滚动条进行滚动查看。 技术分析 1．ActiveX控件与可插入对象 2．在Visual Basic中使用ActiveX控件 3．通用对话框 4．“打开”对话框与“另存为”对话框 操作步骤 1．创建程序界面 新建一个“标准 EXE”工程，在窗体上添加一个驱动器列表框、一个目录列表框、一个文件列表框、一个文本框、五个命令按钮、一个图片框控件和一个通用对话框控件。 2．程序代码编辑 在代码窗口中输入以下的程序代码。 程序代码： Private Sub Form_Load() ' 初始化图像控件大小 Image1.Top = 0 Image1.Height = Picture1.Height - HScroll1.Height Image1.Left = 0 Image1.Width = Picture1.Width - VScroll1.Width End Sub Private Sub Command1_Click() '设置过滤器，只显示可打开文件类型的文件 CommonDialog1.Filter = "BMP图像（*.bmp）|*.BMP|JPG图像（*.jpg）|*