Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: subhankar pandey
  Where is subhankar pandey?
 Kolkata/Delhi
 India
 subhankar pandey
 To: Ken Murphy
  Where is Ken Murphy?
 Springhill
 Canada
 Ken Murphy
 Tags
Subject: RE: 2 THISFORM.DataEnvironment is displaying
Thread ID: 143604 Message ID: 143642 # Views: 3 # Ratings: 0
Version: Visual FoxPro 5 Category: Errors & Debugging
Date: Thursday, August 30, 2007 1:49:28 PM         
   


Tks ken,

ok, Let Me make a form n let u know


> > Dear Ken ,
> >
> > As desired, in the form1 I hv define the code in Keypress event.
> >
LPARAMETERS nKeyCode, nShiftAltCtrl
> > if nkeycode = 23
> > nodefault
> > clear events 
> > close all 
> > release all
> > clear dlls
> > 
> > Do 2egm && calling 2egm.prg &&
> > endif

> >
> > In 2egm.prg, I've define that
> >
> >
SET STATUS On
> > SET TALK OFF
> > SET BELL OFF
> > SET SAFETY OFF
> > SET ESCAPE ON
> > ON ESCAPE DO escpress
> > CLEAR
> > 
> > m_egm_number=0
> > 
> > DEFINE WIND esc_wind FROM 12,10 TO 14,65
> > DELE FILE wwship.egm
> > SELECT A
> > USE master1 order enum
> > 
> > 
> > SELECT B
> > USE CONT1 order CEGMNUMBER
> > 
> > SELECT A
> > GO TOP
> > m_egm_number = egm_number
> > 
> > choice= " "
> > 
> > SET MESSAGE TO "press <ESC> to Exit"
> > print_flag=.T.
> > 
> > DO WHILE print_flag= .t.
> >    CLEAR
> >    rele wind
> >    @11,10 TO 16,70 PANEL
> >    @12,15 SAY "Output on Screen or save in HDD ? (enter S or H)"
> >    @14,45 GET choice PICT "A" VALID choice $ "SsHh"
> >    READ
> >    IF readkey()= 268
> >       print_flag=.F.
> >    ELSE
> >       IF choice $ "SsHh"
> >          SET MESSAGE TO
> >          DO hdd_routine
> >          print_flag=.F.
> >       ENDIF
> >    ENDIF
> > ENDDO
> > CLOSE ALL
> > clear memory all
> > CLose all
&& I'm stuck here &&
> >
> > If I comeout the choice screen , it is displaying the mentioned subject.
> > Pls sugget
> > tks
> > Subhankar.
> >
>
> The first thing I note is that you are using old FP 2.X coding here. You have VFP 5, so you should be using the form designer rather than DEFINE WINDOW. The @SAY and @GET commands are probably the slowest way to build a screen that you can find. You can create a new form visually far faster than you could ever do using @SAY/@GET.
>
> As to your problem, I see nothing in this code that will cause the problem that you are describing.
>
> (If I might make a recommendation, VFP 5 was probably the buggiest version of VFP ever created. Upgrading to VFP 9 will give you a host of new features - the report features alone are worth the price of the upgrade.)
>
>
>
> Ken
> You shall know the truth - and the truth shall set you free. (John 8:33)



Subhankar

ENTIRE THREAD

2 THISFORM.DataEnvironment is displaying Posted by subhankar pandey @ 8/30/2007 8:57:50 AM
RE: 2 THISFORM.DataEnvironment is displaying Posted by Ken Murphy @ 8/30/2007 12:40:42 PM
RE: 2 THISFORM.DataEnvironment is displaying Posted by subhankar pandey @ 8/30/2007 1:25:28 PM
RE: 2 THISFORM.DataEnvironment is displaying Posted by Ken Murphy @ 8/30/2007 1:43:50 PM
RE: 2 THISFORM.DataEnvironment is displaying Posted by subhankar pandey @ 8/30/2007 1:49:28 PM