LCSession の GetProperty メソッド

このメソッドは、アクティビティプロパティの現在値のコピーを取得します。

定義位置

LCSession クラス

構文

Set destField = lcSession. GetProperty (propertyToken)

パラメータ

パラメータ	説明
propertyToken	Long。アクティビティプロパティを表すトークン。トークンの一覧については、付録 B を参照するか、ListProperty メソッドを使用して現在使用可能な値を検索してください。

戻り値

値	説明
destField	LCField。トークンが propertyToken と一致するセッションプロパティの値。LCField のプロパティとメソッドは、自身の dataType や最大長 (GetFormatStream を使用) など、そのプロパティに関する情報を取得するためにも使用できます。

例

Option Public
Option Declare
Uselsx "*lsxlc"
Sub Initialize
	Dim lses As New Lcsession("SessionNameHere")
	Dim result As Long, propObj As Variant
	Dim pToken As Long, dType As Long, pFlags As Long, pName As String
	
	result = lses.ListProperty(LCLIST_FIRST, pToken, dType, pFlags, pName)
	Do While result
		Set propObj = lses.GetProperty(pToken)
		Print pName & { = } & projObj.Text(0) & {, datatype=} & dtype & _
         {, flags=} & pFlags
		result = lses.ListProperty(LCLIST_NEXT, pToken, dType, pFlags, pName)
	Loop
End Sub

出力例

Name = SessionNameHere, datatype=6, flags=4
TextFormat = 82, datatype=1, flags=4
CharacterSet = IBMCP1252, datatype=6, flags=4
EventError = 0, datatype=1, flags=0
IgnoreError = 0, datatype=1, flags=0
AgentName = SA2, datatype=6, flags=0
AgentServer = Boo, datatype=6, flags=0
AgentDatabase = LCSamples2.nsf, datatype=6, flags=0