01-21-2022
06:49 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
01-21-2022
06:49 AM
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.
test for character limit:
And a minor problem is that it shows (comma) , before first word also which seems awkward.. ![]()
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