Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Showing a form while code runs in the background
Message
De
23/12/2001 08:31:27
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00597768
Message ID:
00597809
Vues:
11
Hi Jim

>I want to show a modeless form created from a form class I have created at the start of a .PRG, show and hide it periodically during the program (show while the SQL code is running and hide while other message forms [they are modal], and release it at the end of the routine. The only objects on the form are 2 Images and 1 Label.

That's strange, because I just tried to do the exact same thing, using a base class form and had no problem at all using Show() and Hide(). There has to be something in one of the form methods that is causing the problem...

FWIW Here's what I did, saee if this works for you, and if so then you'll know it is something in your form causing it, if not, we'll have to think again <g>:
oF = CREATEOBJECT( "FORM" )
oF.AddObject( 'lbljunk', 'label' )
WITH of.lbljunk
  .autosize = .T.  
  .caption = "WORKING - 1st Pass"
  .left = 100
  .top = 100
  .Visible = .T.
ENDWITH

*** Show the form
of.Show()
WAITABIT()

*** Hide the form
of.Hide()
WAITABIT()

*** Show the form
of.lbljunk.caption = "WORKING - 2nd Pass"
of.Show()
WAITABIT()

*** Hide the form
of.Hide()

FUNCTION waitabit
LOCAL lnCnt, lnjunk
ACTIVATE SCREEN
FOR lnCnt = 1 to 1000000
  lnjunk = lnCnt
NEXT
RETURN
----
Regards
Andy Kramek
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform