<< 前へ        次へ >>

ID : 5167

SetPublicValue

機能

Public属性のローカル変数に値を代入します。

構文

SetPublicValue 値, タスク名, Public変数名[, 次元1_Index[, 次元2_Index[, 次元n_Index]]]

指定項目

値
Public変数の値を代入する値を指定します。代入するローカル変数に合わせたデータ型のデータを指定します。
タスク名
タスク名を文字列型データで指定します。"ファイルパスとタスク"参照
Public変数名
代入したいPublic属性のローカル変数名を文字列型データで指定します。
次元n_Index
代入したいPublic属性の変数が配列だった場合に各次元のIndex番号を整数型データで指定します。

解説

Public属性のローカル変数に値を代入します。

配列の代入も可能です。その場合、代入するデータと代入されるPublic属性のローカル変数はデータ型、次元数、要素数が同じでなければなりません。

関連項目

Public属性、 SetPublicValue、 Static属性、 Static、 Dim、 Static、 宣言ステートメント、 ローカル変数

注意事項

Public属性のローカル変数の指定に使用する引数、"タスク名"と"Public変数名"は文字列型データでの指定です。

用例

'プログラム名Pro1
' Public属性の変数を宣言しているプログラムです。
	Public pubVal As Integer = 5
	Public pubPos(5) As Position
	

'プログラム名Test1
Sub Main
	Dim aaa As Integer
	GetPublicValue aaa, "Pro1", "pubVal"	'"Pro1"のPublic変数"pubVal"を読み込む
	SetPublicValue aaa + 1, "Pro1", "pubVal"	' +1 して代入

	Dim n As Integer
	For n = 0 To 5
		'"Pro1"の配列のPublic変数"pubPos"のIndex番号nの要素を読み込む
		SetPublicValue CurPos, "Pro1", "pubPos", n
		Delay 1000
	Next

	Dim ccc(5) As Position
	For n = Lbound(ccc) To Ubound(ccc)
		ccc(n) = CurPos
		Delay 1000
	Next
	SetPublicValue ccc, "Pro1", "pubPos"	'"Pro1"の配列のPublic変数"pubPos"へ代入
End Sub

ID : 5167

<< 前へ        次へ >>