Задает высоту объекта на экране. Доступно на этапе разработки и на этапе выполнения.
Object.Height[ = nHeight] |
Возвращаемое значение
- nHeight
-
Задает высоту объекта в единицах измерения, задаваемых свойством ScaleMode объекта Form.
Замечания
Применяется к: CheckBox Control | ComboBox Control | CommandButton Control | CommandGroup Control | Container Object | Control Object (Visual FoxPro) | Custom Object | EditBox Control | Form Object | Grid Control | Image Control (Visual FoxPro) | Label Control (Visual FoxPro) | Line Control | ListBox Control | OLE Bound Control | OLE Container Control | OptionButton Control | OptionGroup Control | PageFrame Control | _SCREEN System Variable | Shape Control | Spinner Control | TextBox Control (Visual FoxPro) | Timer Control | ToolBar Object
В случае форм размер Height не учитывает обрамление и строку заголовка. Не учитывается также и высота полосы прокрутки в том случае, когда она разрешена установкой свойства ScrollBars. В Visual FoxPro максимальная высота формы была увеличена до 32 000 пикселей.
В случае элементов управления высота измеряется от внешнего контура обрамления.
Значение данного свойства изменяется, когда пользователь модифицирует размеры объекта сам или посредством кода.
Используйте свойства Height и Width в вычислениях, основанных на величине общей области объекта..
![]() |
---|
Свойство Height доступно только для чтения, когда оно применяется в отношении элемента управления, содержащегося в объекте Column. |
Пример
Следующий пример демонстрирует, как с помощью свойства Height задать высоту трех командных кнопок в форме.
Метод AddObject используется для добавления в форму элемента управления Line и трех командных кнопок. Свойство Height задает высоту каждой командной кнопки.
![]() | |
---|---|
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 |