Office: (Office 2010) Steuerelemente (Labels) über eine Klasse mit einem ClickEreignis ansprechen

Hallo zusammen,

bisher war ich nur stiller Leser dieses Forum und konnte mir anhand der Forumssuche und der Beisspiele selbst helfen. Kompliment an das Forum und die Beispiele. *Smilie

Jetzt stehe ich aber vor einer Herausforderung bei der ich nicht weiterkomme und hoffe das mir einer helfen kann. Danke schonmal im Voraus.

IST:
ich habe ein Anzeige Formular was auf einer Matrix von Zeit und Plätzen besteht. Siehe dazu den Screenshot.


Die Matrix habe ich mit Labels zusammengebaut. Jedes Label hat einen eindeutigen Namen. Dieser Name ist dem Label zugewiesen und auch in der Eigenschaft Tag. Die Matrix wird über eine SQL Abfrage befüllt.

Beispiel:
Zeit 8:00 Platz 1 = Z1P1
Zeit 8:15 Platz 1 = Z2P1


Soll:
Allen Labels soll ein globales ClickEvent zugewiesen werden. Je nachdem ob ein Feld belegt ist soll er eben das Formular mit dem Datensatz aufrufen oder eben das Formular mit einem neuen Datensatz laden.


Beim Laden meines Formulars führe ich den nachfolgenden Code aus. Damit durchlaufe ich alle benötigen Labels und lege eine EventProzedur an.
Zusätzlich dazu habe ich mir eine Klasse angelegt oLabelEvent.

Wie muss ich die Klasse mit dem ClickEvent zuorden oder bin ich ganz auf dem Holzweg?

Das Forum habe ich durchsucht und auch den ein oder anderen beitrag dazu gefunden. Leider hat es mir nicht weitergeholfen.

http://www.*************************483531_0_0_asc.php

Code:

 

Ich habe auf meiner Website einen ausführlichen Artikel darüber, wie man Ereignisse von einer unbestimmten Anzahl von Objekten behandeln kann. Der Artikel beschreibt genau dein Problem und dessen Lösung. - Leider bisher nur auf Englisch.

 

Hallo Lipsam,
ich lege in solchen Fällen eine! unsichtbare z.B. Befehlsschaltfläche über alle! in Frage kommenden Steuerelemente. Mit dem Ereignis Maustaste ab der Befehlsschaltfläche wird mit der Mausposition x und y der Name des darunter liegenden Steuerelements ermittelt und damit die weiteren Funktionen ausgeführt. Die Bezeichnung der Steuerelemente muss natürlich einer entsprechenden Logik folgen.
Es reichen also ein paar Zeilen Code, um auf für alle Deine Felder auf das Klickereignis zu reagieren.
Details im Anhang (A2000 Format).

Funktioniert auch bei Endlosformularen.

es grüßt Jens *Smilie

 

Hallo Lipsam,

im Jahre 2004 stand ich vor demselben Problem und habe es damals so gelöst:

Code:

Das braucht man aber nicht bei jedem Form_Load zu machen. Es geht natürlich auch, dies einmal zu tun und die so veränderte form dann zu speichern.

Sequenz dazu:
Code:

Danach bleibt dein Formular geöffnet - einfach schließen und alle deine betreffenden Felder haben z.B. als event-procedure on_click "subOnClickC(i)", wobei i der Feld-Index ist.

 

Danke euch beiden. Ich sehe mir beides an.

Den Ansatz über WithEvents finde ich eleganter, allerdings steige ich auch nach mehrmaligen lesen da noch nicht durch. Wie dass alles genau zusammenhängt und for allem wie ich es umsetzen kann.

@Dinkel so eine Lösung ist mir auch schon in den Sinn gekommen und für mich nachvollziehbar wie der Aufbau ist *Smilie

 

Hallo Lipsam,
ein Vorschlag:

statt einer Ereignisprozedur erstellst du im Formular Modul eine private Function, die den gewünschten Code ausführt.
Diesem übergibst du den Namen des betroffenen Labels.

private function LabelClick(sLabel$)
'Hier folgen Deine Anweisungen
'den Bezug zum Label hast du über den Namen controls(sLabel)


Beim Label selbst erstellst du statt der Ereignisprozedur den Aufruf der Function per Code wie bisher

ctl.OnClick = "=LabelClick("NameDesLabels")"

Allerdings sollte es geüngen, den OnClick Code einmalig zu erstellen (im Entwurfsmodus möglich), außer du benötigst da einen dynamischen Wert, der erst zur Laufzeit feststeht)

Wann immer mehrere Controls denselben Code auslösen sollen, kann man diese Variante wählen, anstatt für jedes Control eine Ereignisprozedur anzulegen.
Das spart dann Arbeitsspeicher und Code.

Wenn es sich um kein Label handelt, muss der Name nicht übergeben werden, da kann man dann mit activecontrol arbeiten.

LG Markus

 

sorry
Code:

Die Subs "subOnClickC(item as integer)" und subOnMouseMoveC(item as integer)" musst du natürlich in einem Modul als public definieren.

Viel Erfolg mit dieser einfachen, pragmatischen Lösung.

Gruß,
Dinkel

 

Habe noch was vergessen.
Erzeuge einfach ein neues Formular mit einem Button. Im Button_OnClick-Event kannst du dann den Code aus meinem vorigen Post unterbringen.
Wenn's geklappt hat, einfach dein neues Formular mit dem Button löschen.

 

\@SEP
Hey, hast du vielleicht Interesse an meinem alten ColorPicker?

 

//OT:
Man kann einen eigenen Beitrag bis etwa zwei Stunden nach Erstellung editieren, also auch ergänzen.
Dann wäre ein Beitragsgewitter in Frequenzen von 10 Sekunden, was von vielen als nicht schön empfunden wird, sehr einschränkbar.

 

\@ Dinkel

Ja, bietet sehr viele Funktionen. Vielleicht kannst Du Deinen ColorPicker hier zum Download zur Verfügung stellen. Dann haben Alle was davon.

Es grüßt Jens *Smilie

 

Sorry, aber mein Code aus 2004 funktioniert in ACC2016 nicht mehr richtig. Ich glaube, es liegt daran, dass eine Event-Procedure der Form (Beispiel: Wert 4)
subIrgendwas(4)
von Access nicht mehr richtig erkannt wird. Es scheint so zu sein, dass Access (inzwischen) nach der Sub mit genau diesem Namen (inkl. der 4) sucht und nicht nach
subIrgendwas()
und den Wert 4 als Parameter übergibt. In ACC2000 hat das noch funktioniert.

Das könnte man aber wohl dadurch lösen, dass man in subIrgendwas den Namen des aufrufenden Controls ermittelt oder vielleicht die 4 (Bsp.) in irgend einer anderen Eigenschaft des Feldes unterbringt.

Muss ich aber noch probieren.

 

Guten Morgen,

danke für die vielen Ideen. Aktuell habe ich es über dei Variante von Dinkel und Markusxy umgesetzt. Der Aufruf dazu hat sich ein wenig geändert. Der Vollständigkeit habe ich die Codeschnippsel angehängt.

Die Klassenvariante will ich mir auch noch ansehen und nach Möglichkeit umsetzten. Mal sehen wie lange es dauert bis ich das rausgefunden habe *wink.gif*

Code:

 

subIrgendwas() gibts ja auch nicht

entweder ist es:

function subIrgendwas()

oder

sub subIrgendwas()

Aber es geht nur mit Function subIrgendwas().

Das geht bei einem Label nicht.
Aber Lipsam hat es eh schon korrekt implementiert.
LG Markus

 

\@markusxy
Das ist leider eine Antwort, mit der niemand etwas anfangen kann.

Damit widersprichst du dir selbst...

Könntest du vielleicht erklären, warum das Ganze nur mit einer Function geht und nicht mit einer Sub? Immerhin hat das in ACC2000 problemlos funktioniert.