activebarutilities.bas

用XML做专家系统的一个编译器,有说明书,使用简单,有模板

Attribute VB_Name = "ActiveBarUtilities"
Option Explicit
Public Const DOCKABLEBANDPREFIXNAME As String = "IWillDockToActiveBarBand_"
Public Const DOCKABLETOOLPREFIXNAME As String = "IWillDockToActiveBarTool_"
Public Const ERR_DOCKABLETOOLNOTFOUND As Long = 12001
'存放颜色设置变量
Public aColors(39) As Long, iColCnt As Long
'设置当前的活动控件是否是 RichEdit 或者在入坞区的查找文本框
Public currentCtl As Control


Public Sub ABAddFlag(ByVal bandFlag As ActiveBar2LibraryCtl.BandFlags, ByVal band As ActiveBar2LibraryCtl.band)
    band.Flags = band.Flags Or bandFlag
End Sub

Public Sub ABRemoveFlag(ByVal bandFlag As ActiveBar2LibraryCtl.BandFlags, ByVal band As ActiveBar2LibraryCtl.band)
    band.Flags = band.Flags And Not bandFlag
End Sub


Public Function GetUniqueToolID() As Long
Static STATToolId As Long

If STATToolId = 0 Then
    STATToolId = 20000
End If

STATToolId = STATToolId + 1

GetUniqueToolID = STATToolId

End Function


Public Function getSeparator(ByVal ActiveBarTarget As ActiveBar2LibraryCtl.ActiveBar2) As ActiveBar2LibraryCtl.tool
Dim o As Object

On Error Resume Next
    
    Set o = ActiveBarTarget.Tools("sep")
    
    If o Is Nothing Then
        Set o = ActiveBarTarget.Tools.Add(GetUniqueToolID(), "sep")   '我仍可以行有 Tool.BeginGroup 吗？ **************
        o.ControlType = ddTTSeparator
        o.TagVariant = "sep"
    End If
    
    Set getSeparator = o
    
End Function