DIAdem
SUD-Dialog Variablen-Rückgabe
Hallo Björn!
Schau mir mal diesen Thread an. Vielleicht hilft auch dir das angehängte Beispiel weiter.
Was mir bei deinem Code auffält ist der Aufruf von 'RunChange' für das Control in dessen EventChange Ereignis du bist. Wäre das nicht intern abgefangen würde das zu einer Endlosschleife führen und ist überflüssig. Warum L1 nicht gesetzt wird erkenne ich nicht, liegt aber u.U. an anderen Dingen im Dialog. Kannst du bitte, wenn mein Beipsiel nicht reichen sollte, mal deinen Dialog+Script anhängen.
Matthias
Hallo Björn!
Wenn ich deinen Dialog teste und nacheinander die erste und dann die zweite Checkbox anwähle beendet sich der Dialog und DIAdem (in 10.2)! Die ist meistens ein Zeichen für eine Endlosschleife, die ich ja bei dem RunChange Aufruf erwartet habe. Zusätzlich ist auffällig das allen Chekcboxen in der oberen GroupBox L1 als Variable zugeordnet wurde. Das kann doch nicht gewollt sein, oder? Zusätzlich wird ja auch noch L1 im Script verändert.
Was mir nicht klar ist warum du überhaupt Checkboxen verwendest, wenn die Logik dahinter Radio-Buttons nachbilden? Es ist zwar so das Radio-Buttons in SUD in der optischen Gestalbarkeit limitiert sind, wären aber vielleicht trotzdem sinnvoller. Bei den Radio-Button kannst du dann auch L1 als Variable verwenden.
Matthias
Hallo Björn!
Die Idee mit L1 kann ich nachvollziehen nur muss für die Checkbox der Variablenwert 0 oder 1 sein, schon bei 2 wird der Tri-State angezeigt den du ja sicher nicht haben willst. Das wirst du auf jeden Fall ändern müssen und z.B. die Zuordnung ganz wegnehmen (ist nicht vorgeschrieben) und die Besetzung von L1 in den Events machen.
RunChange hatte ich mal auskommentiert klappte aber immer noch nicht. Hab im Moment nicht die Zeit das genauer zu untersuchen, kann ich aber u.U. heute Abend noch schaffen.
Matthias
Hallo Björn!
Doch noch was Zeit gefunden
Das grundsätzliche Problem bei deinem Code ist das du wechselweise die Werte von Controls in den Change Events änderst. Dazu kurz ein Umweg in die Theorie: Hat man z.B. zwei Checkboxen in einem Dialog so werden bei jeder Änderung die zugehörige EventChange Routine ausgeführt. Eine Änderung kann interaktiv durchen Anwender erfolgen oder aber durch Ändern des Wertes (Value-Eigenschaft) per Skript. Wird nun in der EventChange Routine des ersten CcheckBox der Wert der zweiten Checkbox verändert so wird auch sofort deren EventChange durchlaufen. Beachtet man dies nicht kommt es zu 'seltsamen' Verhalten.
Das führte dann bei dir dazu das du einen RunChange Aufruf zur Hilfe nehmen musstes damit es überhaupt irgendwie funktionierte. Mach mal Messageboxen in die Routinen und spiel mal was damit herum.
Nun zur Lösung (meine, es gibt da mehrere mögliche Ansätze):
Ich würde in jeden EventChange-Routine einen Aufruf in eine globale Routine machen und die notwendigen Werte als Parameter übergeben. Das sieht dann für die ersten beiden CheckBoxen so aus:
Sub CheckBox1_EventChange()
Dim This : Set This = CheckBox1
Call UpdateCheckBox(1,CheckBox1.Value)
End Sub
Sub CheckBox2_EventChange()
Dim This : Set This = CheckBox2
Call UpdateCheckBox(2,CheckBox2.Value)
End Sub
Die globale Routine sieht dann so aus:
Public Sub UpdateCheckBox(Byref nNo, Byref nValue)
If (L1 <> nNo) And (nValue = 1) Then
' es hat sich was geändert
L1 = nNo
Elseif (L1 = nNo) And (nValue = 0) Then
' auch alle AUS zulassen
L1 = 0
End If
' Umwandlung L1 Wert in gecheckte Box
checkbox1.Value = (L1 = 1)
checkbox2.Value = (L1 = 2)
checkbox3.Value = (L1 = 3)
checkbox4.Value = (L1 = 4)
checkbox5.Value = (L1 = 5)
checkbox6.Value = (L1 = 6)
checkbox7.Value = (L1 = 7)
End Sub
Die richtigen Zustände der Checkboxen werden dort gesammelt aus L1 abgeleitet. Die Logik ist so das auch alle Boxen aus sein dürfen. Die Logik am Anfang verhindert Rekursionen.
Ich hoffe das hilft
Matthias
Hallo Björn!
'Komisch' ist dafür ein euphemistischer Begriff. Kunden finden sowas meistens nicht lustig. Ich kann mich auch dunkel erinnern das ich das früher schon mal an NI gemeldet hatte und es ausgebaut war.
. Ich kann mich auch dunkel erinnern das ich das früher schon mal an NI gemeldet hatte und es ausgebaut war.Matthias
