Using a Script to Fill a Selection List

DIAdem 2018 Help

Edition Date: June 2018
Part Number: 370858P-01
View Product Info

DOWNLOAD (Windows Only)

	DIAdem 2017 Help
	DIAdem 2018 Help
	DIAdem 2019 Help
	DIAdem 2020 Help
	DIAdem 2020 SP1 Help

Use the EventInitialize event to fill a selection list with the selection terms and the related return values displayed in the user dialog box, using a script. Use the controls ComboBox and ListBox to define a selection list in the user dialog box.

Note You also can fill selection lists with selection terms when you create a user dialog box in the dialog editor. Select ListItems on the Properties tab.

Complete the following steps to fill a selection list with the texts read from an ASCII file, using a script:

Select the DIAdem SCRIPT panel.
Select File»New»User Variables.
Delete the contents of the file and enter or copy the following text in the script editor:

Copy script
```
This file
contains
selection terms
that
can be
displayed
in a ComboBox
or
in a ListBox.
```
Select File»Save As, select the All files(*.*) file type and save the file as Combo.asc
Select Edit»Create Dialog Box.
Select View»Catalog.
Click the OK and Cancel control group in the Catalog window and click and drag the group into the dialog box.
Click the ComboBox control on the Controls bar.
Drag open the control in the dialog box.
Click ... in the EventInitialize field on the Events tab. ComboBox1 must be selected.

Enter or copy the following text into the script editor:

Copy script

Sub ComboBox1_EventInitialize(ByRef This)
  Dim i, intMyHandle, strMyText, intMyError

  Call This.Items.RemoveAll            

  i = 1
  intMyHandle = TextFileOpen(ScriptWritePath&"Combo.asc",eTextFileAttributeRead) ' open file
  Do While Not TextFileEOF(intMyHandle)     ' as long as file contains texts 
    strMyText = TextFileReadLn(intMyHandle) ' read text from file 
    Call This.Items.Add(strMyText, i)       ' create another entry
    i = i + 1
  Loop
  intMyError = TextFileClose(intMyHandle)   ' close file
End Sub

Select File»Save As and save the file as Test.sud.
Select View»Test in DIAdem.
Open the selection list. The selection list contains all the texts that are located in the Combo.asc file.
Close the user dialog box in DIAdem.
Close the dialog editor.

Examples

WAS THIS ARTICLE HELPFUL?

Helpful

Not Helpful