Compartir a través de

WITH ... ENDWITH (Comando)

  • Artículo

Especifica varias propiedades para un objeto.

WITH ObjectName
   [.cStatements]
ENDWITH

Parámetros

  • ObjectName
    Especifica el nombre del objeto. ObjectName puede ser el nombre del objeto o una referencia a éste.
  • cStatements
    cStatements puede constar de cualquier número de comandos de Microsoft Visual FoxPro utilizados para especificar propiedades para ObjectName. Coloque un punto delante de cStatement para indicar que se trata de una propiedad de ObjectName.

Observaciones

WITH ... ENDWITH ofrece una forma cómoda de especificar un conjunto de propiedades para un solo objeto. Tenga en cuenta que también puede ejecutar métodos desde una estructura WITH ... ENDWITH.

Ejemplo

En el ejemplo siguiente se crea un nombre de clase personalizada Employee. Una vez creada la clase Employee con CREATEOBJECT( ), WITH ... ENDWITH se utiliza para establecer diversas propiedades para la clase. Después se muestran los valores de estas propiedades.

moemployee = CREATEOBJECT('employee')

WITH moemployee
   .First_Name = 'John'
   .Last_Name = 'Smith'
   .Address = '16 Maple Lane'
   .HireDate = {^1998-02-16}
ENDWITH

CLEAR
? moemployee.First_Name + ' '
?? moemployee.Last_Name
? moemployee.Address
? moemployee.HireDate

DEFINE CLASS employee AS CUSTOM
      First_Name = SPACE(20)
      Last_Name = SPACE(20)
      Address = SPACE(30)
      HireDate = {  -  -  }
ENDDEFINE

Vea también

:: Operador de resolución de alcance | ADD CLASS | CREATE CLASS | CREATE CLASSLIB | CREATEOBJECT( ) | GETOBJECT( ) | MODIFY CLASS | RELEASE CLASSLIB | SET CLASSLIB