【2017年整理】5菜单设计.pptVIP

Visual Basic 程序设计;第5章 菜单设计;5.1 菜单简介;2、弹出式菜单;5.2 菜单编辑器; 用菜单编辑器建立菜单;5.3. 设计 下拉式菜单; 构思菜单项:; 界面设计;;; 编写程序代码;为了使窗体启动和改变大小时能够相应地自动调整rText1对象的大小，添加代码： Private Sub Form_Load() rText1.Width = Me.ScaleWidth rText1.Height = Me.ScaleHeight End Sub Private Sub Form_Resize() rText1.Width = Me.ScaleWidth rText1.Height = Me.ScaleHeight End Sub ;;Private Sub menuItalic_Click() If menuItalic.Checked = True Then rText1.SelItalic = False menuItalic.Checked = False Else rText1.SelItalic = True menuItalic.Checked = True End If End Sub ;对应“前景色”子菜单的各事件过程： Private Sub menuRed_Click() rText1.SelColor = vbRed End Sub Private Sub menuGreen_Click() rText1.SelColor = vbGreen End Sub Private Sub menuBlue_Click() rText1.SelColor = vbBlue End Sub;5.4 弹出式菜单;[例5-2] 在例5-1的基础上，为rText1对象建立一弹出式菜单，对选定的文本进行相应的编辑操作。 步骤如下： 1．在代码窗口顶部的声明段添加语句：Dim clip As String用来声明一个字符串变量clip，用来保存剪切或复制的内容。 ;2．为rText1对象编写MouseDown事件过程： Private Sub rText1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then If rText1.SelText Then menuCut.Enabled = True menuCopy.Enabled = True End If PopupMenu menuEdit End If End Sub;3．为“编辑”菜单的各个菜单项添加相应的事件过程代码。 单击“剪切”菜单项时，对选定的文本进行剪切的事件代码为： Private Sub menuCut_Click() clip = rText1.SelText rText1.SelText = menuCut.Enabled = False menuCopy.Enabled = False menuPaste.Enabled = True End Sub ;单击“复制”菜单项时，对选定的文本进行复制的事件代码为： Private Sub menuCopy_Click() clip = rText1.SelText menuCut.Enabled = False menuCopy.Enabled = False menuPaste.Enabled = True End Sub ;单击“粘贴”菜单项时： Private Sub menuPaste_Click() rText1.SelText = clip End Sub 单击“全选”菜单项时为： Private Sub menuSelAll_Click() rText1.SelStart = 0 rText1.SelLength = Len(rText1.Text) End Sub 单击“时间/日期”菜单项时： Private Sub menuTimeDate_Click() rText1.SelText = CStr(Time) + + CStr(Date) End Sub;5.5 定制