sitesaid.ru

Здесь показан вид злементов после включения их в форму. Свойство borderstyle по умолчанию имеет разное значение.Для Picture-Box значение имеет 1-Fixed Single , а для Image значение - 0(None).

Для графического оформления в форме можно использовать элементы управления Image и PictureBox. Первый из них служит просто для размещения графического изображения в форме. Второй элемент представляет собой скорее окно с рисунком, то есть он может служить и для размещения других объектов, а не только этого рисунка.

Оба элемента включаются в форму стандартным образом. Необходимо, либо выполнить двойной щелчок на соответствующем элементе, либо выделив его пиктограмму, нарисовать элемент в форме при помощи мыши.
Их свойство Borderstyle имеет различное значение по умолчанию. Для элемента PictureBox устанавливается значение 1 - Fixed Single, а для элемента Image - значение 0 -None. Этим объясняется значительное различие во внешнем виде этих элементов.

Элементы типа PictureBox имеют свойство Autosize, позволяющее привести в соответствие размеры изображения и самого элемента управления. Для этого свойство должно иметь значение Тгuе. По умолчанию принимается значение False. Если пренебречь установкой этого свойства, то может оказаться, что часть изображения скрыта от обозрения,так как размер изображения задан слишком маленьким.

Свойство Picture, которое имеется у изображения, можно применить для создания пользовательской командной кнопки, которая по своим возможностям будет аналогична стандартной кнопке, создаваемой при помощи элемента управления CommandButton. Такой графической кнопке можно легко придать желаемый внешний вид.

Ниже рассмотрен пример реализации формы с тремя графическими кнопками. В обычном состоянии, когда кнопки не нажаты, они представляют собой изображение на белом фоне. По щелчку мыши на одной из графических кнопок она превращается в изображение на черном фоне. После того, как кнопка мыши отпускается, изображение приобретает первоначальный вид.

Объекты с именами imgWhite и imgBlack служат для установки изображения на графической кнопке в зависимости от того, нажата она или нет.
Следующий листинг содержит процедуры, реализующие графические кнопки программно. Для этого использованы события MouseDown H MouseUp. Три кнопки имеют имена imgFirst, imgSecond и imgThird.Так как объекты imgWhite и imgBlack служат только для хранения изображений нажатой и не нажатой кнопок, то они сделаны невидимыми посредством свойства Visible, которое имеет значение False.

Private Sub Form_Load() imgFirst.Picture = imgBlack.Picture imgSecond. Picture = imgBlack. Picture imgThird. Picture = imgBlack. Picture imgWhite.Visible = False imgBlack.Visible = False End Sub Private Sub imgFirst_MouseDown(Button As Integer, Shift As Integer, X _ As Single, Y As Single) imgFirst.Picture = imgWhite.Picture End Sub Private Sub imgFirst_MouseUp(Button _ As Integer, Shift As Integer, X As Single, Y As Single) imgFirst.Picture = imgBlack.Picture End Sub Private Sub imgSecond_MouseDown(Button As Integer, Shift As Integer, X _ As Single, Y As Single) imgSecond.Picture = imgWhite.Picture End Sub Private Sub imgSecond_MouseUp(Button As Integer, Shift As Integer, X i As Single, Y As Single) imgSecond.Picture = imgBlack.Picture End Slab Private Sub imgThird_MouseDown(Button As Integer, Shift As Integer, X _ As Single, Y As Single) imgThird.Picture = imgWhite.Picture End Sub Private Sub imgThird_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) imgThird.Picture = imgBlack.Picture End Sub <br>

Основная задача при разработке пользовательской кнопки заключается в том, чтобы элемент управления Image реагировал на события MouseDown и MouseUp аналогично обычной командной кнопке. Эту функцию и выполняет код, приведенный выше. Естественно, для того чтобы по нажатию кнопки выполнялось определенное действие, необходимо запрограммировать событие Click для соответствующего элемента Image.

Функция LoadPicture(). Часто возникает ситуация, когда изображение для элемента управления PictureBox и Image необходимо загрузить из файла, находящегося на диске. Этой цели служит функция LoadPicture().

Формат ее вызова: Pict = LoadPicture(Path), где Pict - переменная для хранения рисунка; Path - строковая переменная, содержащая путь к графическому файлу на диске. Например, следующая строка ставит в соответствие объекту picNew стандартный рисунок Windows circles.bmp: picNew.Picture = LoadPic-ture("c:\windows\circles.bmp")

Изменение пропорций и размеров рисунка.
Элемент управления Image имеет свойство Stretch. Будучи установленным равным Тгuе, это свойство позволяет менять пропорции рисунка.В рассматриваемом ниже примере форма включает два графических элемента управления.

Элемент picMain (Picture-Box) содержит рисунок с нормальными пропорциями, а элемент imgDistort (Image - рисунок, увеличенный по ширине в полтора раза. Для того чтобы размеры элемента управления PictureBox настраивались в соответствии с размерами назначенного ему рисунка, его свойство Autosize должно иметь значение Тгuе.

Содержание процедуры, которая позволяет изменить ширину рисунка по нажатию кнопки cmdChange.
Private Sub cmdChange__Click () imgDistort.Width = picMain. Width * 1.5 imgDistort. Height = picMain. Height imgDistort.Picture - picMain.Picture End Sub

Свойство Stretch можно использовать и для увеличения рисунка без изменения его пропорций. Для этого нужно определить пропорции исходного рисунка, как отношение ширины к высоте, а затем использовать этот коэффициент при задании размеров.