Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
VFP60- Article Q103008
Message
 
À
17/09/1999 13:31:09
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00265165
Message ID:
00266559
Vues:
18
Morys,
This time I actually TRIED the form. I was successful, but it sure isn't clear in the article.

I gather you have your Spin.dbf table with the 4 pictures in the General type field. The directions there were the same for FPWin and for VFP.

I did this in VFP6, I think it would be the same in VFP5 or VFP3....

1. Open a new form

2. Add an OleBoundControl (also ActiveXBound Control) Check the toolbar, it's the picture with 'OLE' on it AND the little blue figure underneath. Do NOT use the OLEControl. Size it to 2 inches. Set the NAME to OLESpin.

3. Add the table to the form data environment. Set the controlsource of OLESpin to SPIN.SPINPICT.

4. Add a form method called SPINIT. The code here is an expanded version of the code in Q103008:
for i = 1 to 3
  goto 1
  thisform.oleSpin.refresh
  inkey(.1)
  goto 2
  thisform.oleSpin.refresh
  inkey(.1)
  goto 3
  thisform.oleSpin.refresh
  inkey(.1)
  goto 4
  thisform.oleSpin.refresh
  inkey(.1)
next
Note that I've added a call to refresh the picture with the new version and a slight pause with Inkey(.1). Obviously you could change that as you like.

5. In the form ACTIVATE method put the code
THISFORM.SPINIT
This will make the code run when the form loads. You can add any other code here to change a label, call it a couple of times with different procedures, etc., similar to the way Q103008 does in item 11.

I don't see exactly what use this is. Basically the spinner 'spins' 3 times and then the form runs a program/function/command. Then it repeats with another program/function/command. With a thermometer at least it is clear that the command is in progress, and how much has been completed.

An interesting exercise, though. I'll ZIP up the form and the table if you'd like and email them to me. Just click on the blue envelope and send me a request for it.

Barbara

>Thank you for clarifying where the Picture tool was, now, have you been able to follow the instructions on this article? In the section "Creating the Screen", I can't understand what they want me to do after I draw the graphic object on my form. Can you understand this? Thank you again.
Barbara Paltiel, Paltiel Inc.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform