21世纪高等学校计算机基础教育系列教材 第7章菜单和控件
第7章 菜单和控件 •人民邮电出版社 21世纪高等学校计算机基础教育系列教材
菜单和控件 常用控件 文本框 D Mi crosoft ADO Data Control 6.0(SP4)(A 2.标签 nnl 命粤 3.命令按钮 □ Microsoft D □ Microsoft BataLi 4.列表框 □ Microsoft DDs □ Microsoft Di 厂只显示选定项( 5.下拉列表框 ft Common Dial 定位:C:IT\ system32 ACOMDLG32 6.时钟控件 匚确定取消应用 7.通用对话框控件
菜单和控件 常用控件 1. 文本框 2. 标签 3. 命令按钮 4. 列表框 5. 下拉列表框 6. 时钟控件 7. 通用对话框控件
菜单和控件 方法 所显示的对话框 Action值 hown显示“打开”对话框 ShowSave 显示“另存为”对话框 ShowColor显示“颜色”对话框 ShowFont 显示“字体”对话框 ShowPrinter显示“打印”或“打印选项” 对话框 2-3—4-5-6 howEl 调用 Windows帮助引擎
方法 所显示的对话框 Action值 ShowOpen 显示“打开”对话框 1 ShowSave 显示“另存为”对话框 2 ShowColor 显示“颜色”对话框 3 ShowFont 显示“字体”对话框 4 ShowPrinter 显示“打印”或“打印选项” 对话框 5 ShowHelp 调用 Windows 帮助引擎 6 菜单和控件
菜单和控件 通用对话框设计 个简单的关 打开文件对话框 文件另存对话框 于通用对话框 显示字体对话框 显示颜色对话框 的使用的界面, 其中的七个按 打印机管理对话框 帮助对话框 钮分别完成不 退出 同的工作 Text1 程序代码见下 页 设计界面
菜单和控件 一个简单的关 于通用对话框 的使用的界面， 其中的七个按 钮分别完成不 同的工作。 程序代码见下 页 设计界面
菜单和控件 Const HelpCnt=&HB ErrHandler 1 Private Sub Command 1_Click(Index As Case 2 Integer Cd1. CancelError True Select case index On error goto errhandler2 Case Cdl. Flags= cdIOFNHidereadOnl Cd1. CancelError= True Cdl Filter=All Files (. )* * Text On Error goto errhandler 1 files& Cd1. Flags=cdIOFNHideReadOnl ( txt)*. txt Batch Files Cd1 Filter="All Files(**)**/Text Files"(*. bat)l*.bat C. txt). txt Batch Files(*. bat)*. bat Cdl. filterlndex Cd1. filterlndex=2 Cdl. ShowOpen Cdl. ShowOpen Isg Box Cd1. FileName MsgBox Cd1. FileName Text1.Text=Cd1. FileName Text1. Text= Cd1. FileName ErrHandler2
菜单和控件 Const HelpCNT = &HB Private Sub Command1_Click(Index As Integer) Select Case Index Case 1 Cd1.CancelError = True On Error GoTo ErrHandler1 Cd1.Flags = cdlOFNHideReadOnly Cd1.Filter = "All Files (*.*)|*.*|Text Files" "(*.txt)|*.txt|Batch Files (*.bat)|*.bat" Cd1.FilterIndex = 2 Cd1.ShowOpen MsgBox Cd1.FileName Text1.Text = Cd1.FileName ErrHandler1: Case 2 Cd1.CancelError = True On Error GoTo ErrHandler2 Cd1.Flags = cdlOFNHideReadOnly Cd1.Filter = "All Files (*.*)|*.*|Text Files" & _ "(*.txt)|*.txt|Batch Files (*.bat)|*.bat" Cd1.FilterIndex = 2 Cd1.ShowOpen MsgBox Cd1.FileName Text1.Text = Cd1.FileName ErrHandler2:
菜单和控件 Cdl. Flags= cdICCRGBInit Cd. Action =3 Text1. Font. Italic= Cd1. Fontitalic text1. Fore Color= Cd1. Color Text1. Font Underline ErrHandler 3 Cd1. FontUnderline Text 1. Font strikethru Case 4 Cd1. CancelError= True Cd1. Font Strikethru On Error goto errhandler4 Text1. Fore Color= Cd1. Color Cdl. Flags= cdICFEffects Or ErrHandler4 dICFBoth C Cdl. cancelerror True Cdl. ShowFont On error goto errhandler s Textl. font name= Cdl fontName Textl. font. size= Cdl fontsize Cd1 Show Printer Text1. Font Bold= Cd1. Font Bold BeginPage =Cd1 FromPage
菜单和控件 Cd1.Flags = cdlCCRGBInit Cd1.Action = 3 text1.ForeColor = Cd1.Color ErrHandler3: Case 4 Cd1.CancelError = True On Error GoTo ErrHandler4 Cd1.Flags = cdlCFEffects Or cdlCFBoth Cd1.ShowFont Text1.Font.Name = Cd1.FontName Text1.Font.Size = Cd1.FontSize Text1.Font.Bold = Cd1.FontBold Text1.Font.Italic = Cd1.FontItalic Text1.Font.Underline = Cd1.FontUnderline Text1.FontStrikethru = Cd1.FontStrikethru Text1.ForeColor = Cd1.Color ErrHandler4: Case 5 Cd1.CancelError = True On Error GoTo ErrHandler5 Cd1.ShowPrinter BeginPage = Cd1.FromPage
菜单和控件 EndPage= Cdl.ToPage HelpCommand- HelpCNT Or NumCopies= Cd1. Copies cdlHelpSetContents For i=I To NumCopies ShowHelp Next i End with ErrHandler5 Case o Case 6 End With cd1 End select HelpFile="vocus. hlp End Sub
菜单和控件 EndPage = Cd1.ToPage NumCopies = Cd1.Copies For i = 1 To NumCopies Next i ErrHandler5: Case 6 With Cd1 .HelpFile = "vocus.hlp" .HelpCommand = HelpCNT Or cdlHelpSetContents .ShowHelp End With Case 0 End End Select End Sub
菜单和控件 通用对话框设计 打开文件对话框 文件另存对话框 显示字体对话框 显示颜色对话框 用通用对 打印机管理对话框 帮助对话框 话框设置 退出 后Text1的 D\新建文件夹\成教毕业设计陈春雷\cl 字体和内
菜单和控件 用通用对 话框设置 后Text1的 字体和内 容
菜单和控件 下拉式菜单 下拉式菜单是一种典型的窗口式菜单,在屏幕上一个特定的矩形区域内, 下拉式菜单是在用鼠标左键单击其中的一个菜单项的时候,会自上而下在 屏幕上下拉一个窗口菜单共用户选择或输入消息。在 Windows及各种软件 中,下拉式菜单得到了广泛的应用。 下拉式菜单具有以下优点 整体感强,一目了然,界面友好、直观,使用方便,易于学习和掌握 具有导航功能,用户可以在菜单间自由方便地转换,使用相应的功能; 占用屏幕空间小,通常只占用屏幕的最上一行,在必要时下拉出一个子 菜单。 弹出式菜单 弹出式菜单是独立于菜单栏而显示在窗体上的浮动菜单。在弹出式菜单 上显示的项目取决于按下鼠标右键时指针所处的位置;因而,弹出式菜单 也被称为上下文菜单。在 Microsoft windows95中,可以通过单击鼠标右 键来激活上下文菜单
菜单和控件 下拉式菜单 下拉式菜单是一种典型的窗口式菜单，在屏幕上一个特定的矩形区域内， 下拉式菜单是在用鼠标左键单击其中的一个菜单项的时候，会自上而下在 屏幕上下拉一个窗口菜单共用户选择或输入消息。在Windows及各种软件 中，下拉式菜单得到了广泛的应用。 下拉式菜单具有以下优点： 整体感强，一目了然，界面友好、直观，使用方便，易于学习和掌握； 具有导航功能，用户可以在菜单间自由方便地转换，使用相应的功能； 占用屏幕空间小，通常只占用屏幕的最上一行，在必要时下拉出一个子 菜单。 弹出式菜单 弹出式菜单是独立于菜单栏而显示在窗体上的浮动菜单。在弹出式菜单 上显示的项目取决于按下鼠标右键时指针所处的位置；因而，弹出式菜单 也被称为上下文菜单。在 Microsoft Windows 95 中，可以通过单击鼠标右 键来激活上下文菜单
菜单和控件 创建单 在 Visual basic中,在程序设计期间可以创建菜单。用菜单编辑器 创建菜单,打开菜单编辑器的方法有以下四种: 1.在设计状态下,打开窗体设计器,选择“工具”菜单下的“菜单 编辑器. 打开菜单编辑器窗口 2.用ctr1+E打开菜单编辑器 3.点击工具栏上的菜单编辑器快捷按钮后动菜单编辑器。 4.在窗体上鼠标右键单击,选择弹出菜单中的“菜单编辑器”, 菜单编辑器 称 取消 索引C) 捷键C ONone) 帮助上下文IDoD: 协调位置):[-Kone F有效① F可见显示窗口列表 」」↓」一个插入)」删除)
创建菜单 在Visual Basic中，在程序设计期间可以创建菜单。用菜单编辑器 创建菜单，打开菜单编辑器的方法有以下四种： 1.在设计状态下，打开窗体设计器，选择“工具”菜单下的“菜单 编辑器...”，打开菜单编辑器窗口。 2.用ctrl + E打开菜单编辑器。 3.点击工具栏上的菜单编辑器快捷按钮 启动菜单编辑器。 4.在窗体上鼠标右键单击，选择弹出菜单中的“菜单编辑器”， 菜单和控件