《高级语言程序设计教程——Visual Basic 6.0 中文版 教学课件 ppt 作者 张露2 第7章》由会员分享，可在线阅读，更多相关《高级语言程序设计教程——Visual Basic 6.0 中文版 教学课件 ppt 作者 张露2 第7章（22页珍藏版）》请在金锄头文库上搜索。
1、第7章 菜单和控件,人民邮电出版社,21世纪高等学校计算机基础教育系列教材,菜单和控件,常用控件 文本框 标签 命令按钮 列表框 下拉列表框 时钟控件 通用对话框控件,菜单和控件,菜单和控件,一个简单的关于通用对话框的使用的界面， 其中的七个按钮分别完成不同的工作。 程序代码见下页,设计界面,菜单和控件,Const HelpCNT = &HB Private Sub Command1_Click(Index As Integer) Select Case Index Case 1 Cd1.CancelError = True On Error GoTo ErrHandler1 Cd1.Flag
2、s = 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
3、 = “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
4、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
5、.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 .Show
6、Help End With Case 0 End End Select End Sub,菜单和控件,用通用对话框设置后Text1的字体和内容,菜单和控件,下拉式菜单 下拉式菜单是一种典型的窗口式菜单，在屏幕上一个特定的矩形区域内，下拉式菜单是在用鼠标左键单击其中的一个菜单项的时候，会自上而下在屏幕上下拉一个窗口菜单共用户选择或输入消息。在Windows及各种软件中，下拉式菜单得到了广泛的应用。 下拉式菜单具有以下优点： 整体感强，一目了然，界面友好、直观，使用方便，易于学习和掌握； 具有导航功能，用户可以在菜单间自由方便地转换，使用相应的功能； 占用屏幕空间小，通常只占用屏幕的最上一行，在必要
7、时下拉出一个子菜单。 弹出式菜单 弹出式菜单是独立于菜单栏而显示在窗体上的浮动菜单。在弹出式菜单上显示的项目取决于按下鼠标右键时指针所处的位置；因而，弹出式菜单也被称为上下文菜单。在 Microsoft Windows 95 中，可以通过单击鼠标右键来激活上下文菜单。,创建菜单 在Visual Basic中，在程序设计期间可以创建菜单。用菜单编辑器创建菜单，打开菜单编辑器的方法有以下四种： 在设计状态下，打开窗体设计器，选择“工具”菜单下的“菜单编辑器.”，打开菜单编辑器窗口。 用ctrl + E打开菜单编辑器。 点击工具栏上的菜单编辑器快捷按钮 启动菜单编辑器。 在窗体上鼠标右键单击，选择弹
8、出菜单中的“菜单编辑器”，,菜单和控件,使用菜单 下拉式菜单 菜单编辑器,Private Sub about_Click() 关于菜单的单击事件 frmAbout.Show End Sub Private Sub Combo1_click() 设置字体为下拉列表框的文字 Text1.FontName = Combo1.Text End Sub Private Sub Combo2_Click() 设置字号为下拉列表框的文字 Text1.FontSize = Val(Combo2.Text) End Sub Private Sub copy_Click() 复制菜单 If Text1.SelLe
9、ngth 0 Then copy.Enabled = True Clipboard.SetText (Text1.SelText) End If End Sub,Private Sub delete_Click() 删除菜单 Text1.SelText = “ End Sub Private Sub Form_Load() Combo1.Text = Text1.FontName 取得当前字体 Combo2.Text = Text1.FontSize 取得当前字号 Combo1.AddItem “宋体“ 初始化字体 Combo1.AddItem “隶书“ Combo1.AddItem “黑体“
10、 Combo1.AddItem “华文中宋“ Combo1.AddItem “华文行楷“ Combo2.AddItem “8“ 初始化字号 Combo2.AddItem “9“ Combo2.AddItem “10“ Combo2.AddItem “12“ Combo2.AddItem “14“ Combo2.AddItem “16“,Combo2.AddItem “18“ Combo2.AddItem “20“ Combo2.AddItem “24”： Combo2.AddItem “28“ Combo2.AddItem “32“ ： Combo2.AddItem “36“ Combo2.A
11、ddItem “48“ it.Checked = False 初始化复选菜单 under.Checked = False bold.Checked = False End Sub Private Sub it_Click() 斜体菜单代码 If it.Checked = True Then it.Checked = False Text1.FontItalic = False Else it.Checked = True Text1.FontItalic = True End If End Sub,Private Sub paste_Click() 粘贴菜单代码 If Clipboard.Ge
12、tText “ Then Text1.SelText = Clipboard.GetText End If End Sub Private Sub quit_Click() 退出 End End Sub Private Sub under_Click() 下划线 If under.Checked = True Then under.Checked = True Text1.FontUnderline = False Else under.Checked = True Text1.FontUnderline = True End If End Sub,Private Sub bold_Click
13、() 粗体 If bold.Checked = False Then bold.Checked = True Text1.FontBold = True Else bold.Checked = False Text1.FontBold = False End If End Sub,弹出式菜单的设计 在窗体上创建一个文本框，名称为text1，text值为text1，打开菜单编辑器，创建顶层菜单main，标题为空，设置属性为不可见，创建子菜单bold，标题为“粗体”it，标题为“斜体”，under，标题为“下划线”，si，标题为“20”，tt，标题为“隶书”，aa，标题为“-”，qiut，标题为“
14、退出”。如图所示,各菜单项的单击事件如下所示：,为了显示弹出式菜单，可使用 PopupMenu 方法。这个方法使用下列语法： object.PopupMenu 菜单名 , flags ,x , y , boldcommand 直到菜单中被选取一项或者取消这个菜单时，调用 PopupMenu 方法后面的代码才会运行。因此，在窗体的MouseDown事件中编写如下代码： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupM
15、enu main End If End Sub,Private Sub it_Click() Text1.FontItalic = True End Sub Private Sub quit_Click() End End Sub Private Sub si_Click() Text1.FontSize = 20 End Sub,Private Sub tt_Click() Text1.Font = “隶书“ End Sub Private Sub under_Click() Text1.FontUnderline = True End Sub Private Sub bold_Click(
16、) Text1.FontBold = True End Sub,特殊控件Clipboard 在Visual Basic中，用户可以直接访问Windows的剪贴板。剪贴板是Windows系统在内存中开辟的一段存储空间，用来临时存放复制或剪切下来的内容。下面通过实例来讲解剪贴板和文本框结合起来使用创建文字编辑器的方法。,使用Windows Clipboard编写程序 创建一个标准EXE工程，在窗体上创建一个文本框控件，名称设为Text1，ScrollBars设为Both，MultiLine设为True；然后创建菜单，菜单的内容如下：剪切，复制，粘贴，起始设为不可用。 分别写入如下代码：,Private Sub copys_Click() Clipboard.SetText Text1.SelText pastes.Enabled = True End Sub Private Sub cut_Click() Clipbo
