Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
K.TRYFONIDIS
in reply to: WCrihfield

Thank you very much! We almost did it, i think it only needs some fine tuning now!

I had to put a temp variable because it didn't work without, i had an error message.

Only problem is that if i choose 4 or more options, only 3 appear in the box of iproperty ( did test for character limit but it seems there isnt one, at least short one, check image)

result.

kTRIFONIDIS_0-1642776506298.png

test for character limit:

 

kTRIFONIDIS_1-1642776554119.png

 



And a minor problem is that it shows (comma) , before first word also which seems awkward.. :face_with_tongue:

here is the code now.

Dim oTypes_Array As New ArrayList 
oTypes_Array.Add("PRIONI")
oTypes_Array.Add("TRYPANI")
oTypes_Array.Add("TORNOS")
oTypes_Array.Add("MONTAZ")
oTypes_Array.Add("FREZA")

Dim oSelected As New ArrayList

While True 
	oTypes_Selected = InputListBox("CHOOSE:", oTypes_Array, oTypes_Array(0), oRuleNo, X_oProp_Array)
	If String.IsNullOrEmpty(oTypes_Selected) Then Exit While 
	oSelected.Add(oTypes_Selected)	
End While 

If oSelected.Count > 0 Then
	
	For Each oText In oSelected
		
		iProperties.Value("Custom", "NyfanRooting") = tempx
	tempx = iProperties.Value("Custom", "NyfanRooting") & ", " & oText
	
	next

End If