Home GuiCOBOL 009 ENTRY FIELD - eventi

009 ENTRY FIELD - eventi PDF Stampa E-mail
I tools opensource di OpenCOBOL
Scritto da Administrator   
Domenica 26 Febbraio 2012 12:16

gotfocus l'evento si verifica quando l'oggetto ottiene il focus

invoke edit  "gotfocus" using // 0.1.1 version

lostfocus L'evento si verifica quando l'oggetto perde il focus

invoke edit  "lostfocus" using // 0.1.1 version

keypress L'evento si verifica quando si preme un tasto

invoke edit  "keypress" using // 0.1.1 version

keyrelease L'evento si verifica quando si rilascia un tasto precedentemente premuto

invoke edit  "keyrelease" using // 0.1.1 version


Esempio keypress


002120  identification division.
002130  program-id. pressed.
002140  data division.

002150  working-storage section.
002160  01 edit                 usage pointer external.
002170  01 edit1                usage pointer external.
002170  01 edit2                usage pointer external.
002180  01 check                usage pointer external.
002190  01 valore               pic zzzzzz9.
002200  78 GTK-ESCAPE VALUE 27.
002200      copy "global".
001880 linkage section.
001890 01 gtk-window           usage pointer.
001900 01 gtk-data             usage pointer.
001910
001920 procedure division using by value gtk-window by value gtk-data.
001930
001940 move "key" of gtk-data to valore.
001950 move valore     to "TEXT" of edit2.

or also during an if statement...

002100        if "key" of gtk-data = GTK-ESCAPE

002140            DISPLAY "you pressed ESC".

002310
002320              exit program.

002330  end program pressed.

Ultimo aggiornamento Domenica 26 Febbraio 2012 12:22
 

Aggiungi commento


Codice di sicurezza
Aggiorna

Accessi dal mondo