EsbGetAttributeSpecifications

アウトラインの属性指定を取得します。

構文

            EsbGetAttributeSpecifications
             (
            hCtx
            , 
            AttrSpecs
            )
ByVal 
            hCtx
                  As Long
      
            AttrSpecs
             As As ESB_ATTRSPECS_T
パラメータ説明

hCtx

コンテキスト・ハンドル

AttrSpecs

属性指定

備考

アクセス

この関数を使用するのに、特別な権限は必要ありません。

例

         Sub ESB_GetAttributeSpecifications()
   ' NOTE: 'Out' is a sub to print the output within quotes to a listbox or text box.
   Dim OutAttrSpecs As ESB_ATTRSPECS_T
   Dim sts as long
   Dim hCtx as long
   Dim test As String

   sts = EsbGetAttributeSpecifications(hCtx, OutAttrSpecs)

   If sts <> 0 Then Out "ESB_GetAttributeSpecifications failed" & sts: Exit Sub
    
   Out "ESB_GetAttributeSpecifications passed: " & sts
   Out "DefaultTrueString : " & OutAttrSpecs.DefaultTrueString
   Out "DefaultFalseString : " & OutAttrSpecs.DefaultFalseString
   Out "DefaultAttrCalcDimName : " & OutAttrSpecs.DefaultAttrCalcDimName
   Out "DefaultSumMbrName : " & OutAttrSpecs.DefaultSumMbrName
   Out "DefaultCountMbrName : " & OutAttrSpecs.DefaultCountMbrName
   Out "DefaultAverageMbrName : " & OutAttrSpecs.DefaultAverageMbrName
   Out "DefaultMinMbrName : " & OutAttrSpecs.DefaultMinMbrName
   Out "DefaultMaxMbrName : " & OutAttrSpecs.DefaultMaxMbrName

   test = OutAttrSpecs.GenNameBy
   Select Case test
      Case ESB_GENNAMEBY_PREFIX
         Out "GenNameBy : ESB_GENNAMEBY_PREFIX"
      Case ESB_GENNAMEBY_SUFFIX
         Out "GenNameBy : ESB_GENNAMEBY_SUFFIX"
      Case Else
         Out "GenNameBy : invalid"
   End Select
     
   test = OutAttrSpecs.UseNameOf
   Select Case test
      Case ESB_USENAMEOF_NONE
         Out "UseNameOf : ESB_USENAMEOF_NONE"
      Case ESB_USENAMEOF_PARENT
         Out "UseNameOf : ESB_USENAMEOF_PARENT"
      Case ESB_USENAMEOF_GRANDPARENTANDPARENT
         Out "UseNameOf : ESB_USENAMEOF_GRANDPARENTANDPARENT"
      Case ESB_USENAMEOF_ALLANCESTORS
         Out "UseNameOf : ESB_USENAMEOF_ALLANCESTORS"
      Case ESB_USENAMEOF_DIMENSION
         Out "UseNameOf : ESB_USENAMEOF_DIMENSION"
      Case Else
         Out "UseNameOf : invalid"
   End Select
         
   test = OutAttrSpecs.Delimiter
   Select Case test
      Case ESB_DELIMITER_UNDERSCORE
         Out "Delimiter : ESB_DELIMITER_UNDERSCORE"
      Case ESB_DELIMITER_PIPE
         Out "Delimiter : ESB_DELIMITER_PIPE"
      Case ESB_DELIMITER_CARET
         Out "Delimiter : ESB_DELIMITER_CARET"
      Case Else
   End Select

   test = OutAttrSpecs.DateFormat
   Select Case test
      Case ESB_DATEFORMAT_MMDDYYYY
         Out "DateFormat : ESB_DATEFORMAT_MMDDYYYY"
      Case ESB_DATEFORMAT_DDMMYYYY
         Out "DateFormat : ESB_DATEFORMAT_DDMMYYYY"
      Case Else
         Out "Delimiter : invalid"
   End Select
         
   test = OutAttrSpecs.BucketingType
   Select Case test
      Case ESB_UPPERBOUNDINCLUSIVE
         Out "BucketingType : ESB_UPPERBOUNDINCLUSIVE"
      Case ESB_LOWERBOUNDINCLUSIVE
         Out "BucketingType : ESB_ESB_LOWERBOUNDINCLUSIVE"
      Case ESB_UPPERBOUNDNONINCLUSIVE
         Out "BucketingType : ESB_UPPERBOUNDNONINCLUSIVE"
      Case ESB_LOWERBOUNDNONINCLUSIVE
         Out "BucketingType : ESB_LOWERBOUNDNONINCLUSIVE"
      Case Else
         Out "BucketingType : invalid"
   End Select
End Sub

関連トピック