GambasWorld Snippets

Prevent to close form

DIM allowclose AS BOOLEAN





PUBLIC SUB Form_Close()



IF NOT allowclose THEN

   STOP EVENT

ELSE

   ME.CLOSE

ENDIF



END

Howto lock file

DIM hFile AS File



TRY hFile = LOCK "~/lock"

IF ERROR THEN

 PRINT "Already locked by something else!"

ELSE

 PRINT "Got locked!"



 UNLOCK hFile

ENDIF

Make a Form Center Screen

ME.Center

'or if calling from other form

frmTarget.Center

Prevent Event To Take Action

PUBLIC SUB Form_Open()

  OBJECT.LOCK(SpinBox1)

  SpinBox1.Value = 50

  OBJECT.UNLOCK(SpinBox1)

END

Get Input Using InputBox

DIM data AS STRING

data = InputBox("TEXT ON INPUTBOX", "THE TITLE", "DEFAULT VALUE")

PRINT data

Copy Collection to Another Collection

DIM cSource AS Collection

DIM cDest AS NEW Collection

DIM vVal AS VARIANT



FOR EACH vVal IN cSource

 cDest[cSource.Key] = vVal

NEXT

Detecting Press Of Arrow Keys

PUBLIC CONST ARROW_LEFT AS INTEGER = 4114

PUBLIC CONST ARROW_RIGHT AS INTEGER = 4116

PUBLIC CONST ARROW_UP AS INTEGER = 4115

PUBLIC CONST ARROW_DOWN AS INTEGER = 4117



PUBLIC SUB Form_KeyPress()



SELECT CASE Key.Code

CASE ARROW_LEFT

PRINT "You pressed the left arrow key."

CASE ARROW_RIGHT

PRINT "You pressed the right arrow key."

CASE ARROW_UP

PRINT "You pressed the  up arrow key."

CASE ARROW_DOWN

PRINT "You pressed the down arrow key."

END SELECT



END