程序设计第2版第10章课件.pptVIP

3) 在窗体的MouseDown事件过程中编写代码 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu FF,8 Or 0, , ,FF3 End If End Sub 右上角位于坐标处 FF3菜单项显示为粗体 只接受左键单击 x,y省略，但要保留逗号 4) 在窗体模块的通用声明段声明变量Fcolor，用于保存窗体的初始颜色: Dim Fcolor As Long 5) 在窗体的Load事件过程中保存窗体的初始背景颜色： Private Sub Form_Load() Fcolor = Form1.BackColor End Sub 6) 编写实现菜单命令功能的代码 Private Sub EE1_Click() Text1.FontSize = Text1.FontSize + 1 End Sub Private Sub EE2_Click() Text1.FontSize = Text1.FontSize – 1 End Sub Private Sub EE3_Click() If EE3.Caption = 锁定 Then EE3.Caption = 取消锁定 Text1.Locked = True Else EE3.Caption = 锁定 Text1.Locked = False End If End Sub Private Sub FF1_Click() Form1.BackColor = vbRed End Sub Private Sub FF2_Click() Form1.BackColor = vbGreen End Sub Private Sub FF3_Click() Form1.BackColor = Fcolor End Sub 10.2 工具栏的设计 作用: 常用于提供对最常用的菜单命令的快速访问 设计: 手工方式;使用工具栏控件 10.2.1 用手工方式制作工具栏 1) 在窗体上放置一个图片框，设置其Align属性为: 1 - Align Top，调整好图片框的高度。 2) 在图片框中放置控件。 3) 给控件装入一定的图片。 4) 设置控件的ToolTipText属性，添加适当的提示。 5) 为各工具栏控件编写代码。 如果工具栏控件的功能已经包括在某菜单项中，则可以直接调用菜单项的相应事件过程 。 【例10-5】在例10-4的基础上添加工具栏。如下图。 放置4个复选框控件，分别用于完成“效果”菜单 下的四个功能。 给复选框的ToolTipText属性分别设置功能提示: 删除线、下划线、粗体、斜体。 Check1~ Check4 分别在复选框控件的Click事件过程中编写代码： Private Sub Check1_Click() Text1.FontStrikethru = Check1.Value End Sub Private Sub Check2_Click() Text1.FontUnderline = Check2.Value End Sub Private Sub Check3_Click() Text1.FontBold = Check3.Value End Sub Private Sub Check4_Click() Text1.FontItalic = Check4.Value End Sub 10.2.2 使用ToolBar控件制作工具栏 设计步骤: 1) 向工具箱添加ToolBar控件、 ImageList控件。 工程→部件→ 选择 “Microsoft Windows Common Controls 6.0” 2) 向窗体上添加ToolBar控件、ImageList控件， 常用ImageList控件提供工具栏所需的图片。 3) 设置ImageList控件的“属性页” ，定义图像集。 4) 设