Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Obtain an object reference to 3rd party dialog box.
Message
De
28/07/2000 08:47:10
 
 
À
28/07/2000 08:45:00
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Divers
Thread ID:
00397494
Message ID:
00398100
Vues:
14
>>
>>Don't suppose you can see anything immediately obviously wrong with it?
>>
Would help if I posted the code... sorry for all the posts, I've got dyslexic fingers today...

The Code....

LOCAL lcWindow

lcWindow = "Save As"

=RestoreWindow( lcWindow)
=SendKey( "M", lcWindow)


*****************************************************************
FUNCTION SendKey
LPARAMETERS tcKeyStroke, tcWindowTitle

DECLARE INTEGER SendMessage IN WIN32API INTEGER, INTEGER, INTEGER, INTEGER

=SendMessage( GetWindowHandle( tcWindowTitle), 256, ASC( tcKeyStroke), 0)
=SendMessage( GetWindowHandle( tcWindowTitle), 257, ASC( tcKeyStroke), 0)

RETURN


**************************************************************
FUNCTION GetWindowHandle
LPARAMETERS tcWindowTitle
LOCAL lnReturn

*-- Make this into a generic function later...
DECLARE INTEGER FindWindow IN WIN32API INTEGER, STRING

lnReturn = FindWindow( 0, tcWindowTitle)

RETURN lnReturn
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform