Hier ein Beispiel um über ein Button im Formular / Tabelle einen Layer oder Karten einzuschalten.
Public Overrides Sub Button_Click() dim fidEtage as string fidEtage = Me.StrValue("FID_STOCKWERK") IF fidEtage="1" THEN Me.Project.Map.SwitchLayer(true, "Facility", "EG") ELSE If fidEtage="2" THEN Me.Project.Map.SwitchLayer(true, "Facility", "OG1") ELSE If fidEtage="3" THEN Me.Project.Map.SwitchLayer(true, "Facility", "OG3") END IF End Sub
Bei FID_STOCKWERK muss das Attribut der Tabelle eingegeben werden und dann bei den IFs immer den jeweiligen Layer der eingeschaltet werden soll.
wenn FID_STOCKWERK=1 dann SwitchLayer(true, "Facility", "EG") true=Layer an Facility=ist der Name der Gruppe aus der Kartenverwaltung EG=ist der Layername SwitchLayer(True, "Gruppe", "Gruppe", "Layer")
Wenn ihr Layer vorab auschalten wollt dann müsst ihr das so machen:
SwitchLayer(False, "Gruppe", "Gruppe", "Layer1")
SwitchLayer(False, "Gruppe", "Gruppe", "Layer2")
SwitchLayer(False, "Gruppe", "Gruppe", "Layer3")