11-02-2007 09:38 AM - edited 11-02-2007 09:38 AM
Message Edited by bk220 on 11-02-2007 09:38 AM
11-03-2007 02:55 AM
Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? |
11-05-2007 01:54 AM - edited 11-05-2007 01:54 AM
11-05-2007 05:03 AM
Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? |
11-05-2007 06:00 AM
Hallo Matthias,
ich verwende 9.10.2345 SP 2b, da funktioniert der Aufruf problemlos. Im endgültigen Script werden, je nach Wert von L1, die Messkanäle nach einer hinterlegten Funktion umbenannt. Daher wollte ich nicht jeder Checkbox eine einzelne boolsche Variable zuordnen. Dies würde meine Abfrage im Script, um den richtigen Wert zu erhalten, umständlicher machen.
Über die Radio-Buttons habe ich auch schon nachgedacht. Wie du schon schreibst, ist sind die Gestaltungsmöglichkeiten eingeschränkt (z.B. 2-Spalten-Anordnung). Außerdem sollte der Fahrzeug-Dialog beim Start keine Vorbelegung haben. (Ist dabei doch automatisch so, oder?)
Funktioniert mein Dialog bei dir, wenn du den RunChange auskommentierst?
Gruß Björn
11-05-2007 06:14 AM
Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? |
11-05-2007 08:28 AM
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
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
Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? |
11-05-2007 09:13 AM
Hallo Matthias,
erstmal vielen Dank für die ausführliche Hilfe!
Der Vorschlag mit der SUB-Routine ist einfach genial. Durch deinen Ansatz kann ich nun auch meine "L1" - Lösung beibehalten.
Die Schreibweise "checkbox1.Value = (L1 = 1)" war mir so nicht bekannt, was wohl einen Großteil meines Problems ausmachte. Die "Ineinanderschachtelung" der EventChange - Routinen war mir ebenfalls nicht so bewußt, klingt aber nach der theoretischen Erklärung logisch. Komisch nur, dess es bei 9.1 "funktioniert", bei 10.2 dagegen DIAdem komplett runterfährt...
Nochmals Danke!
Gruß Björn
11-05-2007 09:21 AM
Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? |