EsbOtlGetNextAliasCombination

指定された別名テーブルの指定されたメンバーに対する、別名の組合せを戻します。別名はpszAliasパラメータに戻され、メンバーの組合せはpszCombinationに戻されます。

構文

            EsbOtlGetNextAliasCombination
             (
            hOutline, hMember, pszAliasTable, pszAlias, pszCombination,
usBufSize
            )
ByVal 
            hOutline
                   As Long
ByVal 
            hMember
                    As Long
ByVal 
            pszAliasTable
              As String
ByVal 
            pszAlias
                   As String
ByVal 
            pszCombination
             As String
ByVal 
            usBufSize
                  As Integer

パラメータ	説明
hOutline	アウトラインのコンテキスト・ハンドル。
hMember	別名の組合せを取得するメンバーのハンドル。
pszAliasTable	別名の組合せを取得する先の別名テーブル。このパラメータが""の場合、デフォルトの別名テーブルが使用されます。
pszAlias	次の別名を戻すためのバッファ。次の別名は、このパラメータでの指定によって決定します。ゼロ長の文字列の場合は、最初の別名が戻されます。パラメータが有効な別名の組合せの場合は、次の別名が戻されます。
pszCombination	戻された別名のメンバー組合せ。このバッファは呼出し元によって割り当てられます。
usBufSize	pszCombinationバッファのサイズ。

備考

呼び出す前に、pszAlias用にサイズESB_MBRNAMELINEのスペースを割り当てる必要があります。
pszCombinationにスペースを割り当てる必要があります。呼出し元はusBufSizeパラメータでこのバッファの長さを設定しておく必要があります。
pszAliasパラメータを使用して、次の組合せを検索します。次の組合せの取得方法の詳細は、このパラメータの説明を参照してください。
別名の組合せが(それ以上)ない場合、pszCombinationはESB_NULLに設定され、呼出しは0を戻します。

戻り値

正常終了の場合は0が戻されます。それ以外の場合は、次の値が戻されます:

OTLAPI_BAD_ALIASTABLE

例

         Declare Function EsbOtlGetNextAliasCombination Lib 
"ESBOTLN" (ByVal hOutline As Long, ByVal hMember As Long,
ByVal pszAliasTable As String, ByVal pszAlias As String,
ByVal pszCombination As String, ByVal usBufSize As Integer) As Long

Sub ESB_OtlGetNextAliasCombination()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim hMemberJan As Long
Dim szAlias As String * ESB_MBRNAMELEN
Dim szCombination As String * 100
Object.hCtx = hCtx
Object.Type = ESB_OBJTYPE_OUTLINE
Object.AppName = "Sample"
Object.DbName = "Basic"
Object.FileName = "Basic"
sts = EsbOtlOpenOutline(hCtx, Object, 
ESB_YES, ESB_YES, hOutline)
If sts = 0 Then
   sts = EsbOtlFindMember(hOutline, "Jan", hMemberJan) 
End If
If sts = 0 And hMemberJan <> 0 Then
szCombination = "xxx"
    Do While sts = 0 And Left$(szCombination, 1)
    <> Chr$(0) 
      sts = EsbOtlGetNextAliasCombination
         (hOutline, hMemberJan, "Default", szAlias, szCombination, 100)
    Loop
End If
End Sub