Private Sub ht_click Text1 FontName=“黑体 End Sub Private Sub lsh click Text1 FontName=书 End Sub Private Sub quit_Click E End Sub 请单击鼠标左键换页
Private Sub sh_ click Text1. Fontsize 12 End sub Private Sub st_click Text1 FontName=“宋体 End sub Private Sub thx click Text1. FontUnderline= Not Text1. FontUnderline End Sub 请单击鼠标左键换页
Private Sub xt_click Text1.Fontltalic= Not Text1. Fontltalic End sub 0 弹出式菜单 与下拉菜单不同,弹出式菜单不需要在窗口顶部 下拉打开,而是通过单击鼠标右键在窗体的任意位置 打开,因而使用方便,具有较大的灵活性。 请单击鼠标左键换页
建立弹出式菜单通常有两步:首先用菜单编辑器 建立菜单,然后用 PopupMer方法弹出显示。第 步的操作与前面介绍的基本相同,唯一的区别是如果 不想在窗体顶部显示该菜单,就应把菜单名(即主菜 单项)的“可见”属性设置为Fae(子菜单项不要设 置为Fase)。 PopupMenu方法用来显示弹出式菜单,其格式 为: [对象] PopupMenu菜单名 [Flags[xL_yL, BoldcommandlllI 请单击鼠标左键换页
【例102】我们将例101中的“字形”菜单的 内容作为弹出式菜单的内容 我们只需在代码窗口添加如下代码 Private Sub For_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 运行程序,鼠标右键单击窗体,即可弹出“字形” 菜单的菜单内容。如果不想在窗体顶部显示“字形” 菜单,则可在窗体编辑器中将z主菜单项的“可见” 属性设为Fase即可。 请单击鼠标左键换页