Hallo MBT,
also mit der Größenliste verwendest du eine Lösung die uralt ist und auch sehr bald aus DIAdem verschwinden wird.
Wenn du es flexibel gestalten willst, dann nimm im Hauptscript folgenden Code :
If not ItemInfoget("standortausgew") Then
Call GlobalDim("standorte, standortausgew")
standorte=array("", "Stadt 1","Stadt 2", "Stadt 3")
standortausgew=""
End if
Call SUDDlgShow("Dlg1",CurrentScriptPath&"Standortauswahl.SUD")
MsgBox standortausgew
Und im Anwenderdialog verwendest du eine normale Combobox und verwendest du folgende Eriegnisse :
EventInitialize vom Dialog :
Sub Dialog_EventInitialize(ByRef This) 'Erzeugter Event-Handler
Dim i
L1=1
If UBound(standorte) >=1 Then
ComboBox_standort.Items.RemoveAll
For i = 1 To Ubound(standorte)
ComboBox_standort.Items.Add standorte(i), i
If standortausgew=standorte(i) Then L1=i
Next
ComboBox_standort.Value=L1
standortausgew=ComboBox_standort.InterpretedText
End If
End Sub
EventChange der Combobox :
Sub ComboBox_standort_EventChange(ByRef This) 'Erzeugter Event-Handler
standortausgew=This.InterpretedText
End Sub
Grüße grisu