VB程序设计第3版第10章【荐】.pptVIP

界 面 设 计 10.1 菜单的设计 Windows环境下几乎所有的应用软件都通过菜单实现各种操作。菜单将应用程序的各种操作分组显示在界面上，用户可以方便地从菜单中选择执行各种功能。 10.1.1 下拉式菜单 2. 菜单编辑器 菜单项: 看成控件，具有属性、事件、方法 菜单项也称为菜单控件。 菜单设计: 通过“菜单编辑器”完成。 首先使窗体成为当前窗体 使用以下方法打开菜单编辑器: 执行“工具”菜单下的“菜单编辑器”命令 单击标准工具栏的“菜单编辑器”按钮 从窗体快捷菜单中选择“菜单编辑器”命令 菜单编辑器结构: 3．下拉式菜单的设计 代码设计： Private Sub txtCut_Click() 剪切 Clipboard.SetText Text1.SelText Text1.Text = Left(Text1.Text, Text1.SelStart) Right(Text1.Text, Len(Text1.Text) - Text1.SelStart - Text1.SelLength) End Sub Private Sub txtPaste_Click() 粘贴 s = Clipboard.GetText Text1.Text = Left(Text1.Text, Text1.SelStart) s Right(Text1.Text, Len(Text1.Text) - Text1.SelStart - Text1.SelLength) End Sub 3）编写“格式”菜单下的各菜单项的事件过程。“字体”和“背景颜色”菜单项的功能将在后面示例中实现。 Private Sub txtStrikethru_Click() 删除线 If txtStrikethru.Checked = True Then Text1.FontStrikethru = False txtStrikethru.Checked = False Else Text1.FontStrikethru = True txtStrikethru.Checked = True End If End Sub 【例10-2】在例10-1的基础上进一步实现菜单项的动态增减。例10-1的“文件”菜单在运行时初始界面如下图a所示。“打开”和“关闭”菜单项是两个固定的子菜单项。要求：运行时单击“打开”菜单项在分隔线下面增加一个新的菜单项（一个由用户指定的文件名），单击“关闭”菜单项删除分隔线下面一个指定的菜单项。 菜单设计：在例10-1的基础上，在文件菜单下增加一个不可见的子菜单项。具体方法是，打开菜单编辑器，在“文件”菜单下的分隔条子菜单项SptBar1之后添加一个新的子菜单项，设置其标题为空，名称为SubMenu，去除“可见”属性前面的??，设置索引属性为0，则SubMenu为一个菜单控件数组，现在菜单控件数组中只有一个元素SubMenu(0)。 代码设计： 10.1.2 弹出式菜单 弹出式菜单：上下文菜单、快捷菜单、右键菜单 为某对象设计弹出式菜单的步骤: 1） 在菜单编辑器中设计各菜单项，然后将顶级菜单设置为不可见。 2）在对象的MouseDown事件过程中编写代码，用PopupMenu方法显示弹出式菜单: [窗体名.]PopupMenu 菜单名 ,flags[,x[,y[,boldcommand]]]] 功能: 在当前鼠标位置或指定的坐标位置显示弹出式菜单。 参数: 窗体名：指菜单所在的位置，如果省略，则默认为是当前窗体。 菜单名：指在菜单编辑器中设计的菜单项（至少有一个子菜单）的名称。 Flags：可选项，可以是一个数值或常量，用于指定弹出式菜单的位置和行为，取值见P205表10-3和表10-4。如果要同时指定位置和行为时，则将两个参数值用Or连接，如： 4 Or 2 x、y：指定显示弹出式菜单的x坐标和y坐标。省略时为鼠标坐标。 boldcommand：指定弹出式菜单中要显示为黑体的菜单控件的名称。如果该省略参数，则弹出式菜单中没有以黑体字出现的菜单项。 10.2 工具栏的设计 作用: 常用于提供对最常用的菜单命令的快速访问 设计: 手工方式 使用工具栏控件 10.2.1 用手工方式制作工具栏 1) 在窗体上放置一个图片框，设置其Align属性为:1 - Align Top，调整图片框的高度。 2) 在图片框中放置控件。 3) 给控件装入一定的图片。 4) 设置控件的ToolTipText属性，添加适当的提