Private Sub txtPaste ClickO ·粘贴 s Clipboard.GetText Text1.Text Left(Text1.Text, 第十章界面设计 Text1.SelStart)&s Right(Text1.Text,Len(Text1.Text)- Text1.SelStart-Text1.SelLength) End Sub 11
第 十 章 界 面 设 计 11 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 txtleft ClickO ·左对齐 Text1.Alignment =0 End Sub 面 Private Sub txtCenter Click('居中 设 Text1.Alignment=2 End Sub Private Sub txtRight ClickO ·右对齐 Text1.Alignment=1 End Sub 12
第 十 章 界 面 设 计 12 3）编写“格式”菜单下的各菜单项的事件 过程。“字体”和“背景颜色”菜单项的 功能将在后面示例中实现。 Private Sub txtleft_Click() ' 左对齐 Text1.Alignment = 0 End Sub Private Sub txtCenter_Click() ' 居中 Text1.Alignment = 2 End Sub Private Sub txtRight_Click() ' 右对齐 Text1.Alignment = 1 End Sub
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 下划线、斜体、粗体菜单项代码类似。 13
第 十 章 界 面 设 计 13 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所示。“打开”和“关闭”菜单 第十章 项是两个固定的子菜单项。要求：运行时单击 “打开”菜单项在分隔线下面增加一个新的菜单 界 项（一个由用户指定的文件名)，单击“关闭” 面 菜单项删除分隔线下面一个指定的菜单项。 设 设计菜单示 设计莱单示例 ,设计菜单示例 文件E入编辑( 文件)编辑(E) 格 文件(E)编辑() 格 打开 打开(@) 打开@) 关闭G) 关闭(C) 关闭(O d:Mytext1.txt d:Mytext1.txt d:Mytext2.txt d:1Mytext3.txt d:\Mytext3.txt 14
第 十 章 界 面 设 计 14 【例10-2】在例10-1的基础上进一步实现菜单项 的动态增减。例10-1的“文件”菜单在运行时初 始界面如下图a所示。“打开”和“关闭”菜单 项是两个固定的子菜单项。要求：运行时单击 “打开”菜单项在分隔线下面增加一个新的菜单 项（一个由用户指定的文件名），单击“关闭” 菜单项删除分隔线下面一个指定的菜单项。 a）
菜单项的动态增减可以通过菜单数组来 实现。通常，首先设计一个菜单项，定义 第十章 该菜单项为菜单数组的第一项，即在菜单 编辑器中，设置其“索引”属性值为0，“可 界 见”属性为False(不可见)。在需要增加 菜单项时，使用L0ad方法向该菜单数组增 设 加新的菜单项，并对新增的菜单项设置标 题(Caption)和可见(Visible)属性；在 需要减少菜单项时，使用Unload方法从该 菜单数组中删除一项。 15
第 十 章 界 面 设 计 15 菜单项的动态增减可以通过菜单数组来 实现。通常，首先设计一个菜单项，定义 该菜单项为菜单数组的第一项，即在菜单 编辑器中，设置其“索引”属性值为0， “可 见”属性为False（不可见）。在需要增加 菜单项时，使用Load方法向该菜单数组增 加新的菜单项，并对新增的菜单项设置标 题（Caption）和可见（Visible）属性；在 需要减少菜单项时，使用Unload方法从该 菜单数组中删除一项