VB消息框MsgBox和输入对话框InputBox

1、教案八对话框授课方式：讲授法授课学时：2学时教学目的：通过本次课的学习,学生应该掌握能灵活使用消息框 MsgBox和输入对话框 InputBox和通用对话框,表达用户界面更具有交互性.能灵活使用控件数组,并能编写出响应事件的代码.教学重点和难点：1 .消息框MsgBox和输入对话框InputBox的语法格式；2 .各种属性的灵活使用.教学过程：消息框MsgBox和输入对话框InputBox 和通用对话框一、 消息框MsgBox和输入对话框1 . 了解其在VB中的用途.2 .掌握基语法格式3 .实际中的应用二、通用对话框1 .用途介绍其在VB中的用途.2 .主要属性3 .在实际中应用实例

2、1; Visual Basic程序设计语言?授课教案讲稿八对话框一、消息框MsgBox 和输入对话框我们已学习了两个函数的语法格式,下面通过例子来说明其在实际的用法.1 InputBox例如：设计一个程序,将输入的时、分和秒的和转换成秒数.要求从输入对话框 输入时、分和秒数.事件过程与代码：Private Sub Command1_Click()Dim h As Integer, m As Integer, s As IntegerDim x As Longh = Val(Text1.Text)m = Val(Text2.Text)s = Val(Text3.Text)x = h * 3600

3、 + m * 60 + sLabel1.Caption ="共计"& Str(x) & "秒End SubPrivate Sub Command2_Click()Text1.Text =""Text2.Text =""Text3.Text =""End SubPrivate Sub Command3_Click()Text1.Text = InputBox("时间中的小时数","请输入",0)End SubPrivate Sub Command4_C

4、lick()Text2.Text = InputBox("时间中的分钟数,"请输入",0)End SubPrivate Sub Command5_Click()Text3.Text = InputBox(" 时间中的秒数","请输入",0)End Sub2、MsgBox 函数例题：?将文本框中的英文字母进行大小写切换.切换结果用消息框给出.事件过程与代码：? Private Sub Command1_Click()? MsgBox UCase(Text1.Text), 0,"转换成大写字母"? End S

5、ub? Private Sub Command2_Click()? MsgBox LCase(Text1.Text), 0,转换成小写字母"? End Sub二、通用对话框通用对话框的使用：1、通用对话框不是标准控件,默认情况下不在工具箱中.2、添加到工具箱的方法：工程部件"控件选项卡,选中 “Microsoft Common Dialog Control6.0 3、通用对话框是一一个后台控件.4、翻开通用对话框的两种形式：Action属性表Show方法Action属性值方法对话框类型1SnowOpen翻开2ShowSave保存3ShowColor颜色4ShowFont字体

6、5ShowPrint打印机6例：ShowHelp帮助Commondialog1.Action = 1Commondialog1.ShowOpen1、文件对话框翻开、保存需设置的属性InitDirFileNaFilte翻开文件对话框属性页DialogTiltleFileNameFilterDefaultExtFilterindex属性FileName :包含路径；FileTitle :不包含路径.Filter ：例如,Documents(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|*.*Filterindex :决定在文件类型列表框中显示第几组类

7、型的文件.InitDir ：初始化路径.例：用命令按钮的 Click事件显示文件翻开对话框.CommonDialog1.InitDir= "C:Windows "' 设置初始目录CommonDialogl.Filter ="文本文件| *.Txt" '过滤文件类型CommonDialog1.CancelError = True'限制取消按钮CommonDialog1. ShowOpen'翻开对话框2 .、另存为对话框没有提供真正的存储文件操作,仍需要编程完成储存操作.属性 DefaultExt :缺省扩展名.3 .颜色对话

8、框属性 Color ：返回或设置选定的颜色.例：“颜色对话框的使用.FontName4 .“字体对话框FontBold、FontItaF(?ntSizeFontStrikethruFontUnderlineColor-r加那魁k r邮俄峨的Min 、MaxFlags属性：指示所显示的字体类型cdlCFScreenFonts &H1屏幕字体cdlCFPrinterFonts &H2打印机字体cdlCFBoth &H3 打印机字体和屏幕字体.cdlCFEffects &H100显示删除线和下划线检查框以及颜色组合框例：字体对话框的使用.5 .、“打印对话框属性Fro

9、mPage：起始页号；ToPage：终止页号；Copies：打印份数.如果打印驱动程序不支持多份打印,该属性有可能始终返回1.例：打印对话框的使用.6 .、“帮助对话框帮助文件需要用其他的工具制作,如 Microsoft Windows Help Compiler属性HelpCommand :在线Help帮助类型；HelpFile : Help文件的路径及其名称；HelpKey :在帮助窗口显示由该帮助关键字指定的帮助信息.例题：用通用对话框给文本进行格式化.事件过程与代码：Private Sub Check1_Click()Text1.FontBold = Check1.V alueEnd

10、SubPrivate Sub Check2_Click()Text1.FontItalic = Check2.V alueEnd SubPrivate Sub Check3_Click()Text1.FontUnderline = Check3.ValueEnd SubPrivate Sub Form_Load()设置文本框中的文本为常规格式(即无粗体,斜体和下划线效果)Text1.FontBold = FalseText1.FontItalic = FalseText1.FontUnderline = FalseText1.FontSize = 12 '设置默认选项按钮,字号为12O

11、ption3 = TrueEnd SubPrivate Sub Option1_Click()Textl.FontSize = 8.25End SubPrivate Sub Option2_Click()Text1.FontSize = 9.75End SubPrivate Sub Option3_Click()Text1.FontSize = 12End SubPrivate Sub Option4_Click()Text1.FontSize = 13.5End SubPrivate Sub Option5_Click()Text1.FontSize = 18End SubPrivate S

12、ub Option6_Click()Text1.FontSize = 24End SubPrivate Sub Command1_Click()CommonDialog1.FileName = "aa.txt"课彳VCommonDialog1.DialogTitle =" 翻开"CommonDialog1.Filter ="所有文件(*.*)|*.*| 文本文件(*.txt)|*.txt)CommonDialog1.ShowOpenOpen CommonDialog1.FileName For Input As #1Do Until EOF(1

13、)Line Input #1, s$Text1.Text = Text1.Text + Chr(13) + Chr(10) + s$LoopClose #1End SubPrivate Sub Command2_Click()CommonDialogl.Flags = 257CommonDialogl.Action = 4Textl.FontSize = CommonDialogl.FontSizeTextl.FontBold = CommonDialogl.FontBoldTextI.FontItalic = CommonDialogl.FontItalicTextl.FontName =

14、CommonDialogl.FontNameTextl.FontStrikethru = CommonDialogl.FontStrikethruTextl.FontUnderline = CommonDialogl.FontUnderlineTextl.ForeColor = CommonDialogl.ColorEnd SubPrivate Sub Command3_Click()CommonDialogl.Flags = 2CommonDialogl.ShowColorTextl.ForeColor = CommonDialogl.ColorEnd SubPrivate Sub Command4_Click()CommonDialogl.DialogTitle =" 保存"CommonDialogl.FileNam