Сохранение пропорций: свойства Anchor и Dock
В прежних версиях VB6 случайное изменение размеров формы приводило к тому, что все старания по размещению элементов на стадии конструирования шли прахом. Чтобы решить эту проблему, программисту приходилось либо самостоятельно программировать масштабирование формы, либо тратиться на специальный элемент управления. При использовании класса Windows. Forms проблема исчезает, поскольку в каждый видимый элемент добавляются два чрезвычайно полезных свойства: Anchor и Dock.
Значение свойства Anchor задается в окне свойств при помощи небольшого мини-редактора, показанного на рис. 8.3.
Свойство Anchor привязывает элемент к одному или нескольким краям формы. В этом случае расстояние между элементом и краем остается постоянным при любых изменениях размеров контейнера. Элемент, привязанный к противоположным краям контейнера, автоматически масштабируется с изменением размеров контейнера. Ниже приведен пример кода, сгенерированного при установке свойства Anchor с привязкой элемента по левому и правому краю:
Me.Button1.Anchor = (System.Windows.Forms.AnchorStyles.Left _
Or System.Windows.Forms.AnchorStyles.Right)
Свойство Dock обладает значительно большей гибкостью по сравнению со старым свойством Al ign, которое оно заменяет. Элемент, пристыкованный к краю формы, остается совмещенным с этим краем при любых изменениях размеров формы. Значение свойства Dock задается в мини-редакторе, показанном на рис. 8.4.
Рис. 8.3. Мини-редактор для свойства Anchor
Рис. 8.4. Мини-редактор для свойства Dock
Если щелкнуть в центральной области, свойство Dock принимает значение Fill, при котором элемент распространяется по площади контейнера (если это возможно) и занимает такое положение при любых изменениях размеров контейнера. Заполнение контейнера не поддерживается для некоторых элементов — например, для однострочных текстовых полей, всегда имеющих определенную высоту в зависимости от используемого шрифта. При задании свойства Dock генерируется код следующего вида: Me.Buttonl.Dock = System.Windows.Forms.DockStyle.Bottom