教程第7章.pptVIP

* 第7章　菜单和控件 人民邮电出版社 21世纪高等学校计算机基础教育系列教材 菜单和控件 常用控件 文本框 标签 命令按钮 列表框 下拉列表框 时钟控件 通用对话框控件 6 调用 Windows 帮助引擎 ShowHelp 5 显示“打印”或“打印选项”对话框 ShowPrinter 4 显示“字体”对话框 ShowFont 3 显示“颜色”对话框 ShowColor 2 显示“另存为”对话框 ShowSave 1 显示“打开”对话框 ShowOpen Action值 所显示的对话框 方法 菜单和控件 菜单和控件 一个简单的关于通用对话框的使用的界面， 其中的七个按钮分别完成不同的工作。 程序代码见下页 设计界面 菜单和控件 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: 菜单和控件 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 = 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的字体和内容 菜单和控件 下拉式菜单 下拉式菜单是一种典型的窗口式菜单，在屏幕上一个特定的矩形区域内，下拉式菜单是在用鼠标左键单击其中的一个菜单项的时候，会自上而下在屏幕上下拉一个窗口菜单共用户选择或输入消息。在Windows及各种软件中，下拉式菜单得到了广泛的应用。 下拉式菜单具有以下优点： 整体感强，一目了然，界面友好、直观，使用方便，易于学习和掌握； 具有导航功能，用户可以在菜单间自由方便地转换，使用相应的功能； 占用屏幕空间小，通常只占用屏幕的最上一行