Microsoft KB Archive/96350

{| = Generic Procedure to Increment Number or Date GET Fields =
 * width="100%"|

ID: Q96350

2.00 2.50 2.50a MS-DOS kbprg

The information in this article applies to:


 * Microsoft FoxPro for MS-DOS, versions 2.0, 2.5, and 2.5a

SUMMARY
In FoxPro, a generic procedure can be used to increment any numeric or date GET during a program. This procedure can also be used to emulate the spinner (spin box) control used in Windows-based applications.

MORE INFORMATION
The following example shows how a procedure defined in an ON KEY LABEL routine for the PLUS SIGN (+) key can increment a number or date by 1:

ON KEY LABEL + DO increment WITH VARREAD * pass the variable or field of the current GET SET TALK OFF CLEAR @ 5,5 GET num1 SIZE 1,5 DEFAULT 100 @ 6,5 GET num2 SIZE 1,8 DEFAULT {01/01/93} @ 8,5 GET choice PICTURE &quot;@*hn OK&quot; SIZE 1,4 ; DEFAULT &quot;OK&quot; VALID   done READ CYCLE ON KEY LABEL +

FUNCTION done CLEAR READ RETURN .t.

PROCEDURE increment PARAMETER field num = EVALUATE(field) * store the contents of the current GET to num num = num + 1         && increment the number or date STORE num TO &field * store the new number back to the current GET variable or field SHOW GETS RETURN This procedure is generic and would apply to any GET that is in effect. The VARREAD function will be able to determine the current GET and increment only that number. If a spinner type of control is desired, this procedure can be used as a VALID clause on invisible or push buttons to simulate the operation of a spinner control.

Additional reference words: FoxDos 2.00 2.50 2.50a KBCategory: kbprg KBSubcategory:
 * }