04-20-2021
10:23 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
04-20-2021
10:23 AM
So, that was it... I needed it to fire on a new file creation, and had to prompt for input there as well, so I add thed last four lines...but this is what I needed. Thanks Guys!!!!
Dim ValueList As New List(Of String)({"ROUND", "SQUARE", "SHEET", "PURCHASED" }) ' Add more options here if needed Dim iPropVal As String Try 'See if the iProperty exists currently iPropVal = iProperties.Value("Custom", "Form Factor") Catch ex As Exception 'It doesn't exists, so create it iPropVal = InputListBox("Prompt", ValueList, ValueList.Item(0), Title := "iLogic", ListName := "Form List") If iPropVal Is Nothing Then Return ' User closed form before selecting option iProperties.Value("Custom", "Form Factor") = iPropVal End Try If iProperties.Value("Custom", "Form Factor") = Nothing Then iPropVal = InputListBox("Prompt", ValueList, ValueList.Item(0), Title := "iLogic", ListName := "Form List") If iPropVal Is Nothing Then Return ' User closed form before selecting option End If