În modul "Designer", adăugați un șir de text în formularul FormIgra făcând clic pe elementul "Câmp" din caseta de instrumente. Eticheta poate fi ștearsă. Atribuiți un șir de text numele - glftext. Pentru aceasta, utilizați meniul contextual în care selectăm comanda de proprietate, iar în câmpul "Name" introduceți glftext.
Aplicăm operatorul de ramificație condițional IF. Apoi. Altfel. End If, care are două ramuri alternative ale procedurii:
Starea IF Atunci
Instrucțiuni 1
altfel
instruire 2
Sfârșit Dacă.
Dacă condiția este îndeplinită, instrucțiunea 1 (operatorul sau grupul de operatori) este localizată între cuvintele cheie Atunci și altfel, și dacă nu, atunci instrucțiunea 2 este situată între cuvintele cheie Else și End if
Având în vedere faptul că atunci când butonul este apăsat în linia de text numită "glftex" cuvântul "Eagle" sau "Torso" ar trebui să fie afișate, vom scrie procedura în acest formular:
Dacă (glftext = "Eagle") Apoi
glftext = "Coada"
altfel
glftext = "Vultur"
Sfârșit Dacă
Astfel, procedura de procesare a evenimentului Click a obiectului cmdPusk a fost creată. În cazul în care cuvântul "Eagle" este afișat în linia de text, după apariția unui astfel de eveniment ca apăsarea butonului "Start", cuvântul "Tors" va fi plasat în șirul de text. În cazul în care cuvântul "Eagle" nu este afișat în linia de text, după apariția unui eveniment ca apăsarea butonului "Start", cuvântul "Eagle" va fi plasat în linia de text. Accesați fereastra bazei de date din fila Formulare, selectați FormIgra și faceți clic pe butonul Deschidere. Se deschide formularul "FormIgra: form".
Facem clic pe butonul "Start", începe procedura de procesare a evenimentului și, ca rezultat, cuvântul "Eagle" este plasat în șirul de text.
Data viitoare când apăsați butonul "Run", în textul text apare cuvântul "Coada".
Data viitoare când apăsați butonul "Run", cuvântul "Eagle" apare în linia de text. Astfel, de fiecare dată când apăsați butonul "Start", cuvintele "Eagle" și "Torso" sunt înlocuite între ele, acestea vor fi afișate în câmpul text al formularului FormIgra.
Articole similare
Trimiteți-le prietenilor: