Height (Propiedad)

  • Artículo

Especifica la dimensión vertical de un objeto de la pantalla. Está disponible en tiempo de diseño y en tiempo de ejecución.

Object.Height[ = nHeight]

Valores de la propiedad

  • nHeight
    Especifica la altura del objeto medida en la unidad especificada por la propiedad ScaleMode del formulario.

Observaciones

Para formularios, en la medida de Height no se incluyen los bordes ni la barra de título.

Para controles, la altura se mide desde fuera del borde del control.

El valor de esta propiedad cambia cuando el usuario o el código cambian el tamaño del objeto.

Utilice las propiedades Height y Width para cálculos basados en el área total de un objeto.

Nota   La propiedad Height es de sólo lectura cuando se aplica a un control contenido en un objeto Column.

Ejemplo

El ejemplo siguiente demuestra la forma de utilizar la propiedad Height para especificar la altura de tres botones de comando de un formulario.

El método AddObject se emplea para agregar un control Line y tres botones de comando a un formulario. La propiedad Height especifica la altura en vertical de cada botón de comando.

frmMyForm = CREATEOBJECT('form')  && Create a form
frmMyForm.Closable = .F.  && Disable the Control menu box 

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

Left (Propiedad) | Move (Método) | ScaleMode (Propiedad) | Top (Propiedad) | Width (Propiedad)

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