Private Sub ht_ click( Text1 FontName="黑体 End sub Private Sub Ish Click ext1 FontName="隶书 End sub Private Sub quit Click End End sub 请单属标左键换页
Private Sub ht_Click() Text1.FontName = "黑体" End Sub Private Sub lsh_Click() Text1.FontName = "隶书" End Sub Private Sub quit_Click() End End Sub
Private Sub sh Click ext1 Fontsize 12 End sub Private Sub st Click( ext1 FontName="宋体 End sub Private Sub xhx Click Text1. FontUnderline not Text1. FontUnderline End sub 请单属标左键换页
Private Sub sh_Click() Text1.FontSize = 12 End Sub Private Sub st_Click() Text1.FontName = "宋体" End Sub Private Sub xhx_Click() Text1.FontUnderline = Not Text1.FontUnderline End Sub
Private Sub xt Click Text1. fontltalic= not text 1. fontltalic End sub 10.12弹出式菜单 与下拉菜单不同,弹出式菜单不需要在窗口顶部 下拉打开,而是通过单击鼠标右键在窗体的任意位置 打开,因而使用方便,具有较大的灵活性。 请单属标左键换页
Private Sub xt_Click() Text1.FontItalic = Not Text1.FontItalic End Sub 10.1.2 弹出式菜单 与下拉菜单不同，弹出式菜单不需要在窗口顶部 下拉打开，而是通过单击鼠标右键在窗体的任意位置 打开，因而使用方便，具有较大的灵活性
建立弹出式菜单通常有两步:首先用菜单编辑器 建立菜单,然后用 PopupMenu方法弹出显示。第一步 的操作与前面介绍的基本相同,唯一的区别是如果不 想在窗体顶部显示该菜单,就应把菜单名(即主菜单 项)的“可见”属性设置为 False(子菜单项不要设置为 False)o PopupMenu方法用来显示弹出式菜单,其格式为 [对象] PopupMenu菜单名 LFlagslxlylBold CommandJlll 请单属标左键换页
建立弹出式菜单通常有两步：首先用菜单编辑器 建立菜单，然后用PopupMenu方法弹出显示。第一步 的操作与前面介绍的基本相同，唯一的区别是如果不 想在窗体顶部显示该菜单，就应把菜单名（即主菜单 项）的“可见”属性设置为False(子菜单项不要设置为 False)。 PopupMenu方法用来显示弹出式菜单，其格式为： [对象.] PopupMenu 菜单名 [,Flags[,x[,y[,BoldCommand]]]]
【例102】我们将例101中的“字形”菜单的内容 作为弹出式菜单的内容。 我们只需在代码窗口添加如下代码: Private Sub Form Mouse Down(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button =2 Then PopupMenu ZX, 2 End if End sub 运行程序,鼠标右键单击窗体,即可弹出“字形” 菜单的菜单内容。如果不想在窗体顶部显示“字形” 菜单,则可在窗体编辑器中将zX主菜单项的“可见” 属性设为 False即可。 请单属标左键换页
【例10.2】我们将例10.1中的“字形”菜单的内容 作为弹出式菜单的内容。 我们只需在代码窗口添加如下代码： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 2 Then PopupMenu zx, 2 End If End Sub 运行程序，鼠标右键单击窗体，即可弹出“字形” 菜单的菜单内容。如果不想在窗体顶部显示“字形” 菜单，则可在窗体编辑器中将zx主菜单项的“可见” 属性设为False即可