LCField の SetVirtualCode メソッド

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

定義位置

LCField

構文

Call thisField.SetVirtualCode (virtualCode)

パラメータ

パラメータ	説明
virtualCode	Long。このフィールドに割り当てる仮想コードの値です。

例

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
  Dim text As String
  Call session.ListConnector (LCLIST_FIRST, , Code)
  Call field.SetVirtualCode (Code)
  text = Hex(Code) & "h"
  While session.ListConnector (LCLIST_NEXT, , Code)
    Call field.SetVirtualCode (Code)
    text = text & ", " & Hex(Code) & "h"
  Wend
  Print "The field virtual codes (one per connector) are " & text
End Sub

出力例

The field virtual codes (one per connector) are 10000h, 20000h, 30000h, 40000h, 50000h.