高级语言程序设计教程——Visual Basic 6.0 中文版 教学课件 作者 张露2 第7章.pptVIP

第7章　菜单和控件;菜单和控件 ;方法;菜单和控件 ;菜单和控件 ;菜单和控件 ;菜单和控件 ;菜单和控件 ;菜单和控件 ;创建菜单 在Visual Basic中，在程序设计期间可以创建菜单。用菜单编辑器创建菜单，打开菜单编辑器的方法有以下四种： 在设计状态下，打开窗体设计器，选择“工具”菜单下的“菜单编辑器...”，打开菜单编辑器窗口。 用ctrl + E打开菜单编辑器。 点击工具栏上的菜单编辑器快捷按钮 启动菜单编辑器。 在窗体上鼠标右键单击，选择弹出菜单中的“菜单编辑器”，;使用菜单 下拉式菜单 菜单编辑器 ;名称; 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.SelLength 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 黑体 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.AddItem 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.GetText 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() 粗体 If bold.Checked = False Then bold.Checked = True Text1.FontBold = True Else bold.Checked = False Text1.FontBold = False End I