Changing Cursor Shape in Visual Cobol

[Migrated content. Thread originally posted on 09 December 2011]

Hi All,

Any one know the code to change the cursor shape to an hour glass when going off and doing a large SQL job and then resetting back to an arrow when finished?

Kind regards

Neil.

In a Windows Forms project you can do the following:



      $set ilusing"System.Windows.Forms"
       class-id testhourglass.Form1 is partial
                 inherits type System.Windows.Forms.Form.
       
       working-storage section.
       
       method-id NEW.
       procedure division.
           invoke self::InitializeComponent
           goback.
       end method.

       method-id button1_Click final private.
       procedure division using by value sender as object e as type System.EventArgs.

           set type Cursor::Current to type Cursors::WaitCursor
           invoke type System.Threading.Thread::Sleep(5000)
           set type Cursor::Current to type Cursors::Default

          end method.
     
       end class.


[Migrated content. Thread originally posted on 09 December 2011]

Hi All,

Any one know the code to change the cursor shape to an hour glass when going off and doing a large SQL job and then resetting back to an arrow when finished?

Kind regards

Neil.

Hi Chris,

Again many thanks that works really well.

Out of interest can you pls advise what this line does?

$set ilusing"System.Windows.Forms"

Kind regards

Neil.

[Migrated content. Thread originally posted on 09 December 2011]

Hi All,

Any one know the code to change the cursor shape to an hour glass when going off and doing a large SQL job and then resetting back to an arrow when finished?

Kind regards

Neil.

It brings the namespace System.Windows.Forms into the program so that the compiler will recognize its classes without having to specify the entire name.

For instance, the class named Cursor is actually in the namespace System.Windows.Forms so if you did not specify:
$set ilusing"System.Windows.Forms"

You would have to reference the Cursor and Cursors classes using the full name like:

set type System.Windows.Forms.Cursor::Current to type System.Windows.Forms.Cursors::WaitCursor

You can also set these on the Namespace tab of the Project Properties page by selecting the namespaces to include.