Project.SetUserPropertyStrings

SetUserPropertyStrings(vStrings As Variant,strProperty As String) As Boolean

Parameters

vStrings As Variant

Array of texts as variant.

strProperty As String

Defines on wich UserProperty the array of string are imported.

Possible paramters:
- UserProperty1
- UserProperty2

Remarks

Sets the 'UserProperty' strings for Remas/Limits.

Sample:

'insert UserProperties when project is loaded in the editor.
Private Sub ZenWorkspace_OnProjectLoaded(ByVal obProject As IProject)
Dim arrProps(4) As String
Dim arrTexts As Variant
	'insert UserPropertyStrings for Remas/Limits
	Stop
	arrProps(0) = "Property 1"
	arrProps(1) = "Property 2"
	arrProps(2) = "Property 3"
	arrProps(3) = "Property 4"
	arrProps(4) = "Property 5"
	arrTexts = arrProps

	'insert texts into "UserProperty1"
	Call obProject.SetUserPropertyStrings("UserProperty1", arrTexts)
	'insert texts into "UserProperty2"
	Call obProject.SetUserPropertyStrings("UserProperty2", arrTexts)
End Sub

Sub ReadUserProps()
	'returns the UserProperty1 as string from the specific limit
	Debug.Print thisProject.Variables.Item("WIZ_VAR_10").Limits.Item(0).DynProperties("UserProperty1")
	'it works also with remas...
End Sub

See Also

Project