Oamenii, am un formular, de exemplu, cu 3 butoane. Am nevoie pentru a simula programatică presându-le, dar nu vreau să o fac în mod individual pentru fiecare buton, determinând codul: .. Selectați toate suna CommandButton1_Click, etc și care trece numele controlului într-un parametru într-o anumită funcție. Întrebarea este cum să porniți chiar evenimentul de clic pe buton. Înțeleg că ar trebui să fie ceva de genul apelului de apel invers, dar nu am găsit cum să-l organizez în confe. Dacă acest lucru nu este posibil din VBA, atunci poate există o cale prin apelul API? Prompt.
Am uitat complet despre Cod: Selectați toate Application.Run
Am citit odată despre asta, dar nu am folosit-o niciodată. Deci, problema este rezolvată. Deși există încă o neînțelegere: există o altă modalitate de a imita evenimentul obiectului (în cazul meu, butoanele), cunoscându-i numele? Ceva ca Raise, dar într-un mod bun
Run-Run, dar a întâmpinat în mod neașteptat problema de a apela procedura privată în codul formularului dintr-o procedură situată într-un alt modul: Cod: Selectați toate aplicațiile.Run # 40; "UserForm1.CommandButton1_click" # 41;
din păcate, nu funcționează
Pentru a face în acest modul procedura publică care provoacă răni de erecție și de la alte module pentru a apela această procedură
Programarea este disciplina aleasă de Dumnezeu! Dacă există Dumnezeu, atunci el a compilat universul, nu altfel.
Din păcate, CommandButton1 (mai ales la UserForm1) nici o metodă CommandButton1_Click (doar Mutare, setfocus, ZOrder nekskolko și ascunse), astfel încât astfel: Cod: Selectați toate CallByName UserForm1.CommandButton1, "Click", VbMethod. asa: Cod: Selectați toate CallByName UserForm1.CommandButton1, "CommandButton1_Click", VbMethod. asa: Cod: Selectați toate CallByName UserForm1, „CommandButton1_Click“, VbMethod - toate același - un mesaj de eroare: „Obiectul nu acceptă această proprietate sau metoda (Error 438)“
dar dacă intri în codul de formă și se schimbă
Cod: Selectați toate Private Sub CommandButton1_Click # 40; # 41;
pe
Cod: Selectați toate Sub CommandButton1_Click # 40; # 41;
apoi fă-o
Cod: Selectați toate Call UserForm1.CommandButton1_Click totul va fi în ciocolată
Da, și așa funcționează
Cod: Selectați toate CallByName UserForm1, "CommandButton1_Click", VbMethod
Eu am 9 vieți
GÂNDEȘTE!
Trimiteți-le prietenilor: