Graphics

I made this script, to make several tracks in a Scene Director active and/or inactive based on what is put in the TextObject. I think the script could be much cleaner and simpler, but i'm not sure what to change...tried some things but that caused the script to stop functioning.

Any good suggestions?

Thanx in advance

dim SceneDirector1 as xpSceneDirector
dim trackQRcode, trackTitelbalk, trackStellingEvents, trackQRcodeStem, trackStemBalk, trackStemEvents as xpSceneDirectorTrack
dim textQR as xpTextObject

Self.GetSceneDirectorByName ("SceneDirector1", SceneDirector1)
SceneDirector1.GetTrackByName ("trackQRcode", trackQRcode)
SceneDirector1.GetTrackByName ("trackTitelbalk", trackTitelbalk)
SceneDirector1.GetTrackByName ("trackStellingEvents", trackStellingEvents)
SceneDirector1.GetTrackByName ("trackQRcodeStem", trackQRcodeStem)
SceneDirector1.GetTrackByName ("trackStemBalk", trackStemBalk)
SceneDirector1.GetTrackByName ("trackStemEvents", trackStemEvents)
Self.GetObjectByName ("textQR", textQR)

if textQR.Text = "QR-code stelling" then
trackQRcodeStem.Enabled = false
trackStemBalk.Enabled = false
trackStemEvents.Enabled = false
trackQRcode.Enabled = true
trackTitelbalk.Enabled = true
trackStellingEvents.Enabled = true

else
trackQRcode.Enabled = false
trackTitelbalk.Enabled = false
trackStellingEvents.Enabled = false
trackQRcodeStem.Enabled = true
trackStemBalk.Enabled = true
trackStemEvents.Enabled = true

end if

Hi.
Try a script below.

        Dim SceneDirector1 As xpSceneDirector
        Dim track(5) As xpSceneDirectorTrack
        Dim textQR As xpTextObject

        self.GetSceneDirectorByName("SceneDirector1", SceneDirector1)
        SceneDirector1.GetTrackByName("trackQRcode", track(0))
        SceneDirector1.GetTrackByName("trackTitelbalk", track(1))
        SceneDirector1.GetTrackByName("trackStellingEvents", track(2))
        SceneDirector1.GetTrackByName("trackQRcodeStem", track(3))
        SceneDirector1.GetTrackByName("trackStemBalk", track(4))
        SceneDirector1.GetTrackByName("trackStemEvents", track(5))
        self.GetObjectByName("textQR", textQR)

        For i As Integer = 0 To 2
            track(i).Enabled = (textQR.Text = "QR-code stelling")
            track(i + 3).Enabled = (textQR.Text <> "QR-code stelling")
        Next

Smart. 

        Dim SceneDirector1 As xpSceneDirector        Dim track(5) As xpSceneDirectorTrack        Dim textQR As xpTextObject        self.GetSceneDirectorByName("SceneDirector1", SceneDirector1)        SceneDirector1.GetTrackByName("trackQRcode", track(0))        SceneDirector1.GetTrackByName("trackTitelbalk", track(1))        SceneDirector1.GetTrackByName("trackStellingEvents", track(2))        SceneDirector1.GetTrackByName("trackQRcodeStem", track(3))        SceneDirector1.GetTrackByName("trackStemBalk", track(4))        SceneDirector1.GetTrackByName("trackStemEvents", track(5))        self.GetObjectByName("textQR", textQR)        For i As Integer = 0 To 2            track(i).Enabled = (textQR.Text = "QR-code stelling")            track(i + 3).Enabled = (textQR.Text <> "QR-code stelling")        Next

Wow! Thanks! Very nice! Works great!

        Dim SceneDirector1 As xpSceneDirector        Dim track(5) As xpSceneDirectorTrack        Dim textQR As xpTextObject        self.GetSceneDirectorByName("SceneDirector1", SceneDirector1)        SceneDirector1.GetTrackByName("trackQRcode", track(0))        SceneDirector1.GetTrackByName("trackTitelbalk", track(1))        SceneDirector1.GetTrackByName("trackStellingEvents", track(2))        SceneDirector1.GetTrackByName("trackQRcodeStem", track(3))        SceneDirector1.GetTrackByName("trackStemBalk", track(4))        SceneDirector1.GetTrackByName("trackStemEvents", track(5))        self.GetObjectByName("textQR", textQR)        For i As Integer = 0 To 2            track(i).Enabled = (textQR.Text = "QR-code stelling")            track(i + 3).Enabled = (textQR.Text <> "QR-code stelling")        Next