Quantcast
Channel: Visual COBOL - Forum - Recent Threads
Viewing all articles
Browse latest Browse all 1559

Invoke

$
0
0

  Good morning, can i make an invoke a method created in the form of events? For example:

  method-id button3_Click final private.
       01 newForm2 type CfgEmpresa.Form1.
       procedure division using by value sender as object e as type System.EventArgs.
           set newForm2             to new CfgEmpresa.Form1
           invoke newForm2::ShowDialog()
       end method.
   
  method-id ef-NumPedido_KeyPress final private.
       77 wt pic x(020).
       procedure division using by value sender as object e as type System.Windows.Forms.KeyPressEventArgs.
            move e::KeyChar to wt
           if wt equal "13"
              invoke button3_Click
           end-if
      
       end method.

method-id button3_Click final private.
       01 newForm2 type CfgEmpresa.Form1.
       procedure division using by value sender as object e as type System.EventArgs.
           set newForm2             to new CfgEmpresa.Form1
           invoke newForm2::ShowDialog()
       end method.
   
 method-id ef-NumPedido_KeyPress final private.
       77 wt pic x(020).
       procedure division using by value sender as object e as type System.Windows.Forms.KeyPressEventArgs.
            move e::KeyChar to wt
           if wt equal "13"
              invoke button3_Click
           end-if
      
       end method.


Viewing all articles
Browse latest Browse all 1559

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>