>* List InteractiveChange >RETURN This.ValueChange() >>
LOCAL luRetVal WAIT WINDOW TIMEOUT 1 "Click" luRetVal = DODEFAULT() IF !EMPTY(this.value) thisform.refreshpagedata(this.name) ENDIF RETURN luRetValInteractiveChange method
LOCAL luRetVal WAIT WINDOW TIMEOUT 1 "Interactive Change" luRetVal = DODEFAULT() lcValue = this.Value *thisform.Caption = lcValue IF !EMPTY(this.value) thisform.refreshpagedata(this.name) ENDIF RETURN luRetValLostFocus
LOCAL luRetVal WAIT WINDOW TIMEOUT 1 "Lost Focus" luRetVal = DODEFAULT() thisform.enabledprevnext() IF !EMPTY(this.value) thisform.refreshpagedata(this.name) ENDIF RETURN luRetValKey Press
LPARAMETERS nKeyCode, nShiftAltCtrl WAIT WINDOW TIMEOUT 1 "Key Press" IF m.nKeyCode = 13 OR m.nKeyCode = 9 NODEFAULT thisform.SetFocuToPage1(1) ELSE DODEFAULT(nKeyCode, nShiftAltCtrl) ENDIFThe first control is actually a combobox, but 4 rest controls are listboxes. The listboxes have very similar code in them.