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: