Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access2007

access2007功能区开发-clsRibbon类

时 间:2009-09-03 00:00:00
作 者:朱亦文   ID:61  城市:岳阳
摘 要:Access2007功能区开发-clsRibbon类
正 文:


Option Compare Database
Option Explicit
'----------------------------------------------------------
'clsRibbon类
'相关 : clsRibbonControl类/modRibbonPublic模块
'日期 : 2009.05.02
'作者 : 朱亦文
'目的 :
'----------------------------------------------------------
Public Name     As String
Public Ribbon   As IRibbonUI
Public Ctrls    As New Collection
Public Property Get Controls(controlName As String) As clsRibbonControl
    On Error GoTo ErrControls
    Dim i           As Integer
    Dim n           As Integer
   
    ' 在控件集合中搜索控件是否存在,如果不存在,则添加之
    For i = 1 To Ctrls.count
        If controlName = Ctrls(i).Name Then
            n = i
            Exit For
        End If
    Next i
   
    If n = 0 Then
        ' 如果控件不在集合中,则添加,并赋默认值
        Dim NewCtrl As New clsRibbonControl
       
        NewCtrl.Enabled = True
        NewCtrl.Visible = True
        NewCtrl.Label = ""
        NewCtrl.Name = controlName
        NewCtrl.image = ""
        Ctrls.Add NewCtrl, controlName
       
        Set Controls = NewCtrl  ' 返回控件
    Else
        Set Controls = Ctrls(n) ' 返回控件
    End If
   
    Dim r As IRibbonUI
   
    If Name = "" Then
        Set r = Ribbons(1).Ribbon
    Else
        Set r = Ribbons(Name).Ribbon
    End If
   
    r.InvalidateControl controlName ' 刷新控件
   
    Exit Property
   
ErrControls:
    Debug.Print Err.Number, Err.Description
    Resume Next
End Property



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助