(gelöst) Methode zum Auslesen auslösender Kontrollfelder

[PeterF]

Hallo Leute,

ich hab mal wieder eine Frage:
Gibt es eine Methode, auslösende Kontrollfelder zu identifizieren?
Ich hab ein numerisches Pad über Schaltflächen zusammengestellt, mit dem ich ein Kombifeld speisen möchte (die Kombination Pad - Kombifeld halte ich bei Touch-Pad Eingaben für effektiv).
Nun möchte ich nicht für alle 12 Schaltflächen (es sind auch Buchstaben dabei) je ein separates Makro generieren, um zum gewünschten Ergebnis zu kommen.
Viel eleganter wäre es, wenn es eine Methode geben würde, die mir den Namen oder Titel der auslösenden Schaltfläche ausliest, damit ich über 'cases' z.Bsp. der 'Schaltfläche 1' eine 1 zuweisen kann.
Vielen Dank im Voraus für Eure Vorschläge.

Lieben Gruß aus Sachsen
Peter

[RobertG]

Hallo Peter,

Code: Alles auswählen

SUB Ausloeser(oEvent AS OBJECT)
oField = oEvent.Source.Model
END SUB

Das Feld, von dem aus das Makro ausgelöst wird, ist oField. Jetzt kannst Du oField.Name oder oField.LabelControl usw. abfragen. Siehe dazu das Kapitel zu Formularen im Base-Handbuch.

Gruß

Robert

[PeterF]

Hallo Robert,

das war ziemlich einfach. Mir fehlte das "oEvent.Source.Model".
Allerdings zum Auslesen des Schaltflächen Titels braucht's nur "oField.Label" (LabelControl kennt Base hier nicht).

Vielen Dank
Peter

P.S.: Ich hab es schon verarbeitet. Werde es in meiner 'Adreßlogik' auch einbauen. Da fällt so einiger Programmcode weg.

[RobertG]

Hallo Peter,

"oField.LabelControl" habe ich gerade noch eingesetzt. "oField.LabelControl.Label" erreicht bei dem mit einem Formularfeld verknüpften Beschriftungsfeld das, was dort sichtbar für den Betrachter eingetragen steht. Das Beschriftungsfeld hat natürlich keine Eigenschaft "LabelControl", aber fast alle anderen Formularfelder.

Gruß

Robert

[PeterF]

Hallo Robert,

auch wenn ich ein ziemlicher Neu-Anfänger bin (mit Basic hatte ich mich vor ca. 30 Jahren während meines Studiums beschäftigt) und meine Programmierung schleppend voran kommt, freut es mich, doch etwas beitragen zu können.

Grüße aus Sachsen
Peter