EnumComboBox / Größenliste (G1var.asc)

[MBT]

Hallo zusammen,

ich habe hier ein seltsames Problem. Über die vordefinierten Variablen (G1 - G10) kann ich in einem Dialog einer EnumComboBox eine vordefinierte Größenliste zuordnen. Hierfür muß laut Hilfe nur die Datei "G1var.asc" angelegt und befüllt werden. Nun habe ich hierzu ein paar Fragen:
- Muß die .asc-Datei nun im gleichen Ordner wie das Hauptskript oder im Ordner der Dialog-Datei liegen?!
- Wenn ich das Skript in das DIAdem-Modul Skript lade und ausführe, wird die Größenliste erkannt - meistens zumindest! Lade ich das Skript aber über einen Shortcut vom Desktop aus, so wird die Größenliste nicht erkannt.

Hat jemand eine Idee woran das liegen könnte?!

Danke und Gruß
MBT

[grisu]

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

[MBT]

Hallo Grisu,

danke für die Info, hat mich ein ganzen Stück weitergebracht !

Grüße MBT