>Hello,
>
>I need to convert this line of code of Visual Basic to Visual Fox Pro...
>
>Type AC_INFO
> nMaxC As Integer
> nMaxR As Integer
> Ctype As Integer
> CStat As Byte
> CSel As Byte
> szRev(10) As Byte
> nLibVer As Integer
> lBaudRate As Long
> End Type
>
>I know there is no equivalent of type...end type command in Visual Fox Pro...thats why i'm stuck on how to convert this to Visual Fox Pro..
>Could anyone help please....Thanks in advance..
I think that is an user defined type.
We can have an equivalent in VFP by using an object, preferable an empty object for efficiency:
AC_INFO = CREATEOBJECT("Empty")
ADDPROPERTY(AC_INFO,"nMaxC",0)
ADDPROPERTY(AC_INFO,"nMaxR",0)
ADDPROPERTY(AC_INFO,"cType",0)
ADDPROPERTY(AC_INFO,"cStat"," ")
ADDPROPERTY(AC_INFO,"cSel"," ")
ADDPROPERTY(AC_INFO,"szRev",SPACE(10))
ADDPROPERTY(AC_INFO,"lBaudRate",0)
An empty object can also be created as this
CREATE CURSOR temp (nMaxC i, nMaxr i, cType i, cStat c(1), cSel c(1), szRev c(10), lBaudRate N)
SCATTER NAME AC_INFO
USE IN temp
...Y soy feliz, bien feliz, asi lo grito;
Mira, que el mundo sepa, que se sepa:
Soy feliz....
...And I'm happy, quite happy, so do I yell it;
Look, so the world knows it, so be known:
I'm happy...
Ismael Rivera "Oye cosita linda"
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement