Visible (Propiedad)

Especifica si un objeto está visible u oculto. Está disponible en tiempo de diseño y en tiempo de ejecución.

Object.Visible[ = lExpr]

Valores de la propiedad

• lExpr
  Los valores para la propiedad Visible son:

  Valor	Descripción
  Verdadero (.T.)	El valor predeterminado en el Diseñador de formularios. El objeto es visible.
  Falso (.F.)	El valor predeterminado en el código del programa. El objeto está oculto.

Observaciones

Establecer la propiedad Visible para la variable del sistema _SCREEN en versiones de Visual FoxPro para Windows anteriores a la versión 5 no tiene ningún efecto.

Aunque el objeto esté oculto, puede tener acceso al mismo en el código.

Para ocultar un objeto al iniciar, establezca la propiedad Visible en falso (.F.) en tiempo de diseño. Si en el código establece la propiedad Visible, puede ocultar un objeto y mostrarlo en tiempo de ejecución en respuesta a un evento particular.

Cuando la propiedad Visible de un objeto Form está establecida en falso (.F.), el formulario se oculta y se activa el último conjunto de formularios, formulario u objeto activo. Cuando la propiedad Visible de un formulario se establece en el valor verdadero (.T.), el formulario se hace visible. Establecer la propiedad Visible de un formulario en el valor verdadero (.T.) no afecta a la configuración de la propiedad Order del formulario. El formulario no se vuelve activo cuando Visible es verdadero (.T.). Use el método Show para activar un formulario y hacerlo visible en el mismo paso.

Nota   Si la propiedad Visible de un formulario se establece en el valor falso (.F.), el formulario no aparecerá en pantalla, aunque la propiedad Visible del conjunto de formularios tenga el valor verdadero (.T.). Sin embargo, si la propiedad Visible de un conjunto de formularios está establecida en el valor falso (.F.), se ocultarán todos los formularios contenidos en el conjunto.

Ejemplo

El ejemplo siguiente demuestra cómo se utiliza la propiedad Visible para mostrar controles después de agregarlos a un formulario con el método AddObject.

El método AddObject se usa para agregar un control Line y tres botones de comando al formulario. La propiedad Visible se establece en el valor verdadero (.T.) para el control Line y los botones de comando, y los muestra en el formulario. La propiedad Visible también se usa para ocultar el control Line antes de cambiar su dirección de inclinación y para mostrar el control Line una vez cambiada dicha dirección.

frmMyForm = CREATEOBJECT('Form')  && Create a form
frmMyForm.Closable = .F.  && Disable the window pop-up menu

frmMyForm.AddObject('shpLine','Line')  && Add a Line control to the form
frmMyForm.AddObject('cmdCmndBtn1','cmdMyCmndBtn1')  && Up Cmnd button
frmMyForm.AddObject('cmdCmndBtn2','cmdMyCmndBtn2')  && Down Cmnd button
frmMyForm.AddObject('cmdCmndBtn3','cmdMyCmndBtn3')  && Quit Cmnd button

frmMyForm.shpLine.Visible = .T.  && Make Line control visible
frmMyForm.shpLine.Top = 20  && Specify Line control row
frmMyForm.shpLine.Left = 125  && Specify Line control column

frmMyForm.cmdCmndBtn1.Visible =.T.  && Up Command button visible
frmMyForm.cmdCmndBtn2.Visible =.T.  && Down" Command button visible
frmMyForm.cmdCmndBtn3.Visible =.T.  && Quit Command button visible

frmMyForm.SHOW  && Display the form
READ EVENTS  && Start event processing

DEFINE CLASS cmdMyCmndBtn1 AS COMMANDBUTTON  && Create Command button
   Caption = 'Slant \<Up'  && Caption on the Command button
   Left = 50  && Command button column
   Top = 100  && Command button row
   Height = 25  && Command button height
   
   PROCEDURE Click
      ThisForm.shpLine.Visible = .F.  && Hide the Line control
      ThisForm.shpLine.LineSlant ='/'  && Slant up
      ThisForm.shpLine.Visible = .T.  && Show the Line control
ENDDEFINE

DEFINE CLASS cmdMyCmndBtn2 AS CommandButton  && Create Command button
   Caption = 'Slant \<Down'  && Caption on the Command button
   Left = 200  && Command button column
   Top = 100  && Command button row
   Height = 25  && Command button height

   PROCEDURE Click
      ThisForm.shpLine.Visible = .F.  && Hide the Line control
      ThisForm.shpLine.LineSlant ='\'  && Slant down
      ThisForm.shpLine.Visible = .T.  && Show the Line control
ENDDEFINE

DEFINE CLASS cmdMyCmndBtn3 AS CommandButton  && Create Command button
   Caption = '\<Quit'  && Caption on the Command button
   Cancel = .T.  && Default Cancel Command button (Esc)
   Left = 125  && Command button column
   Top = 150  && Command button row
   Height = 25  && Command button height

   PROCEDURE Click
      CLEAR EVENTS  && Stop event processing, close form
ENDDEFINE

Vea también

Show (Método) | ZOrder (Método)

Se aplica a: CheckBox | Column | ComboBox | CommandButton | CommandGroup | Container (Objeto) | Control (Objeto) | EditBox | Form | FormSet | Grid | Image | Label | Line | ListBox | OLE Bound (Control) | OLE Container (Control) | OptionButton | OptionGroup | PageFrame | Project (Objeto) | _SCREEN | Shape | Spinner | TextBox | ToolBar