vbstreets konferencia - Téma megtekintése - egy eljárás hívás paraméterként

Emberek, van egy formája, például 3 gombbal. Meg kell programozottan szimulálni nyomja őket, de én nem akarom külön-külön gomb, ami a kód: .. Az összes hívás CommandButton1_Click stb és halad a nevét a kontroll, mint a paraméter egy bizonyos funkciót. A kérdés az, hogyan kell futtatni magát az eseményt, kattintson a gombra. Megértem, hogy ez kell, hogy legyen valami, mint egy visszahívást hívást, de hogyan kell megszervezni azt konfigurálni található. Ha ez nem lehetséges, mert a VBA, akkor talán van egy út az API-hívás? Prompt.

Teljesen megfeledkeztem a Kód: Egész kiválasztása Application.Run
Egyszer olvastam róla, de soha nem használt. Tehát a probléma megoldódott. Bár zavart marad: Van más módja annak, hogy szimulálják az objektum esetén (esetemben - a gomb), tudva az ő neve? Olyasmi, mint emelést, de a jó értelemben

Run-, majd a Run, de váratlanul futott be egy hívás probléma Private eljárás fekvő kód formájában az eljárás található egy másik modul: Kód: Egész kiválasztása Application.Run # 40; "UserForm1.CommandButton1_click" # 41;
sajnos ez nem működik

Legyen ez a modul BKV-eljárás-hívó eplikeyshn sebek és egyéb modulokat, hogy kezdeményezi ezt az eljárást

Programozás - Isten választott fegyelem! Ha van Isten, akkor az univerzum, ő állított össze, nem másként.

Sajnos ParancsGomb1 (különösen UserForm1) nincs módszer CommandButton1_Click (csak mozgatni, SetFocus művelet, ZOrder nekskolko és rejtett), úgy, hogy, mint ez: Kód: Egész kiválasztása CallByName UserForm1.CommandButton1, "Click", VbMethod. így: Kód: Egész kiválasztása CallByName UserForm1.CommandButton1 "CommandButton1_Click" VbMethod. így: Kód: Egész kiválasztása CallByName UserForm1 „CommandButton1_Click” VbMethod - mindegy - egy hibaüzenetet: „Az objektum nem támogatja ezt a tulajdonságot vagy a metódust (Error 438)”

és ha beírja a kódot az űrlap, és a változás
Kód: Egész kiválasztása Private Sub CommandButton1_Click # 40; # 41;
tovább
Kód: Egész kiválasztása Public Sub CommandButton1_Click # 40; # 41;
hogy ezzel
Kód: Az összes hívás UserForm1.CommandButton1_Click minden rendben lesz a csokoládé

Igen, és így fog működni
Kód: Egész kiválasztása CallByName UserForm1 „CommandButton1_Click” VbMethod

Azt kilenc élete van egy csak
HISZEM!