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: 143636 # Views: 3 # Ratings: 0
Version: Visual FoxPro 5 Category: Errors & Debugging
Date: Thursday, August 30, 2007 1:25:28 PM         
   


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.


Dear,
> >
> > Cud anybody help me why "2 THISFORM.DataEnvironment" is displaying in the screen after issue "clear " command in prg file .
> > Pls note name.prg will active only after keypress event occur in form1.
> >
> > regards
> > Subhankar
>
> Subhankar,
>
> It is hard to tell what the problem is without seeing your code. Can you post your code here? You can use the code tags < vfp > code goes here < /vfp > (without the spaces) and it will give you syntax coloring and preserve your indent structure.
>
> 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