Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Using PROGRAM()
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
00391698
Message ID:
00391761
Views:
13
>Can anyone suggest some simple code for getting WAIT WINDOW or MESSAGEBOX() values within a method for showing the last two or three methods called?

James,

Like this:
LOCAL lnlast, lnstart, lni, lcresult
lnlast = PROGRAM(-1)
IF lnlast > 3
  lnstart = lnlast - 2
ELSE
  lnstart = 1
ENDIF
lcresult = ""
FOR lni = lnlast TO lnstart STEP -1
  lcresult = lcresult + PROGRAM(lni) + CHR(13)
NEXT
= MESSAGEBOX(lcresult, 64, "Trace")
George

Ubi caritas et amor, deus ibi est
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform