Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
VB6 Code
Message
 
À
05/09/2005 23:33:04
Fred Wood
Madera Systems Consulting
Mill Valley, Californie, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
01046885
Message ID:
01046901
Vues:
21
Hi Fred,

>Can anyone show me how to translate this VB6 code into VFP8 code?

This depends on what kind of object the names refer to. If they are registered COM objects, you can use the following code. If they are VB objects defined in a class module, you have to compile them into a COM server before you can use the classes from VFP:
LOCAL oSvc, oAddress, oResult As ValidateResult
oSvc = CreateObject("AddressSvc")
oAddress = CreateObject("Address")
oAddress.Line1 = "900 Winslow Way"
oAddress.City = "Bainbridge Island"
oAddress.Region = "WA"
oAddress.PostalCode = "98110"
oResult = oSvc.Validate(address)
--
Christof
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform