Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Object question
Message
 
À
13/07/2000 10:11:35
Brad Stickley
Parker Pneumatic Div. North America
Wake Forest, Caroline du Nord, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Divers
Thread ID:
00391790
Message ID:
00391803
Vues:
21
Place the object as a property on your form. Maybe the Init of the form creates the session and the buttons update different areas of the object.

>I have an object opens with the click of a button to open a mainframe session in the background. I am scrapping data from the screen to the clipboard and then pasting it to a text box on the form.
>
>When the object is opened this way, is there a way that I could use the same object for other button clicks?
>
>here is the code for opening the object
>
>oextra=createobject("Extra.system")
>wait nowait timeout 1
>osession=oExtra.sessions.open("C:\program files\E!PC\sessions\a.edp")
>*osession.visible=.t.
>wait nowait timeout 5
>oscreen=osession.screen
>
>oscreen.WaitHostQuiet [1000]
>oscreen.sendkeys("A")
>oscreen.WaitHostQuiet [100]
>oscreen.sendkeys("")
>oscreen.WaitHostQuiet [1000]
>oscreen.sendkeys("fh21798")
>oscreen.WaitHostQuiet [500]
>oscreen.sendkeys("")
>oscreen.WaitHostQuiet [500]
>oscreen.sendkeys("ti5633")
>oscreen.WaitHostQuiet [500]
>oscreen.sendkeys("")
>oscreen.WaitHostQuiet [1000]
>oscreen.sendkeys("sp2a")
>oscreen.WaitHostQuiet [100]
>oscreen.sendkeys("")
>oscreen.WaitHostQuiet [1000]
>oscreen.sendkeys("h")
>oscreen.WaitHostQuiet [500]
>oscreen.sendkeys("")
>oscreen.WaitHostQuiet [1000]
>oscreen.sendkeys("b310bc553")
>oscreen.WaitHostQuiet [100]
>oscreen.sendkeys("")
>oscreen.WaitHostQuiet [1000]
>Q= OSCREEN.SELECT(3,41,3,60)
>q.copy()
>
>
>This opens a mainframe window and strips text to the clipboard.
>I would like to click another button that would enter in a new part number and strip more data from the screen again.
>
>I guess the question is how do I reference the object again from another command?
>
>Thanks,
>Brad.
Nigel B Coates
NBC Software Services
Dublin, Ireland.
eMail: Nigel.Coates@NBCSoftware.com
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform