LCField の LookupVirtualCode メソッド

このメソッドは、指定された仮想コードがフィールドに設定されているかどうかをチェックします。仮想コードは、別のシステムによって認識される特別なシステムプロパティとしてフィールドにフラグを付けるものです。コネクションごとにサポートされる固有のコードについては、Connector のドキュメントを参照してください。

定義位置

LCField

構文

Flag = field.LookupVirtualCode (virtualCode)

パラメータ

パラメータ	説明
virtualCode	このフィールドのコードリスト内で検索する仮想コードです。

戻り値

値	説明
Flag	Boolean 型。この仮想コードがフィールドに対して設定されている場合は TRUE、そうでない場合は FALSE です。

例

Option Public
Uselsx "*lsxlc"  
Sub Initialize
  Dim session As New LCSession
     ' In an LEI Scripted Agent, use the following syntax instead:
     ' Dim session As New LCSession ("mySession")
  Dim field As New LCField (LCTYPE_INT)
  Dim Code As Long
  Call session.ListConnector (LCLIST_FIRST, , Code)
  Call field.SetVirtualCode (Code)
  While session.ListConnector (LCLIST_NEXT, , Code)
    Call field.SetVirtualCode (Code)
  Wend
  If (field.LookupVirtualCode (&H10000)) Then
    Print "The field has virtual code 10000h set."
  Else
    Print "The field does not have virtual code 10000h set."
  End If
End Sub

出力例

The field has virtual code 10000h set.