Klickereignis in 400 Schaltflächen

16/03/2008 - 12:40 von Gernot Pfeiffer | Report spam
Hallo zusammen,

ich habe folgendes Problem.

Auf einem Formular befinden sich knapp 400(!) kleine Befehlsschaltflàchen.
Klickt der Benutzer nun auf eine dieser Schaltflàchen, soll eine Funktion
aufgerufen werdne, der ich den Namen der Schaltflàche als Parameter
übergeben möchte.

PseudoCode:
Private Sub cmd1_click
funktionsname(schaltflàchenname)
end sub

Meine Lust diesen Code hinter 400 Schaltflàchen zu legen ist denkbar klein.
Gibt es da eine Möglichkeit/Idee dies zu automatisieren?

Ich dachte auch schon an des Mousedown-Ereignis,... dies liefert mir aber
nur X-und Y-Koordinaten zurück,... ich weis dann aber noch immer nicht,
welche Schaltflàche darunterliegt.

Ich bedanke mich vorab für jede Hilfe.

Gernot
 

Lesen sie die antworten

#1 Jörg Ostendorp
16/03/2008 - 13:32 | Warnen spam
Hallo Gernot,

Auf einem Formular befinden sich knapp 400(!) kleine Befehlsschaltflàchen.
Klickt der Benutzer nun auf eine dieser Schaltflàchen, soll eine Funktion
aufgerufen werdne, der ich den Namen der Schaltflàche als Parameter
übergeben möchte.

PseudoCode:
Private Sub cmd1_click
funktionsname(schaltflàchenname)
end sub

Meine Lust diesen Code hinter 400 Schaltflàchen zu legen ist denkbar klein.
Gibt es da eine Möglichkeit/Idee dies zu automatisieren?



Machst Du im Form_Load sowas:

for i = 1 to 400
Me("cmd" & i).onclick = "=funktionsname('cmd" & i & "')"
next i

(Voraussetzung ist durchgehende die Benamsung von cmd1 bis cmd400.)

Grüßle vom Bodensee
Jörg Ostendorp

Access-FAQ: www.donkarl.com

Ähnliche fragen