Свойство ClipControls

Свойство ClipControls влияет на скорость выполнения программы.

Если свойство ClipControls установлено в True ( по умолчанию), а AutoRedraw в False, то VB перерисовывает весь объект. Если свойство ClipControls установлено в False, тогда Visual Basic перерисовывает только заново открываемую область.

При установке ClipControls в True вокруг неграфических элементов управления создается усеченная область. Это означает, что VB создает контур формы и элементов управления и хранит их в памяти. Установка этого свойства в False может уменьшить время, необходимое для рисования и перерисовки объекта, вследствие того, что усекаемая область создается в памяти. Чем сложнее объект, тем больше требуется времени на его обработку. Усеченные области исключают такие элементы управления, как Image, Label, Line и Shape.

Обобщенные сведения о влиянии свойства ClipControls и метода AutoRedraw на работу программы приведены в табл. 4.3.

Таблица 4.3

Влияние свойства ClipControls и метода AutoRedraw

на работу программы

ClipControl	Autoredraw	Результат
True ( по умолчанию )	False	VB перерисовывает весь объект
False	False	VB перерисовывает заново только вновь открываемую форму
False	True	Увеличивает скорость работы программы

Для увеличения скорости работы программы свойство AutoRedraw следует установить в True, а ClipControls в False.

Метод PaintPicture

Метод PaintPicture перерисовывает изображение, находящееся в одном (исходном) объекте в другой. Задавая соответствующие значения аргументов height и width исходного и результирующего объектов, можно увеличить или уменьшить размер исходного изображения. Синтаксис данного метода:

ОбъектНазначения.PaintPicture ИсходныйОбъект.Paint X, Y, B, H, X1, Y1, B1,H1

Здесь ОбъектНазначения – имя объекта, куда будет помещаться изображение, ИсходныйОбъект – объект, откуда берется часть изображения; X, Y – координаты верхнего левого угла рисунка, B, H – ширина и высота результирующего рисунка; X1, Y1 – координаты рисунка в исходном объекте; B1, H1 – размеры исходного рисунка.

Picture1.PaintPicture Form1.Picture, 0, 0, 1500, 1000, 0, 0, 7000, 5000

В данном примере копируется рисунок из формы в элемент управления PictureBox с уменьшением.

Если размеры исходного объекта (В1, Н1) не указаны, то копируется все изображение исходного рисунка.

Метод PaintPicture может применяться в следующих случаях:

• для выполнения масштабирования рисунка, чтобы можно было подробнее рассмотреть некоторую область изображения, например при предварительном просмотре;

• для копирования или затирания определенной области изображения;

• для перемещения содержимого элемента управления PictureBox в объект Printer, например, если нужно поместить рисунок в отчет.

Метод Point

Метод Point возвращает RGB – цвет определенной точки,

синтаксис: Point ( х, у )

Пример 4.12. Определить принадлежность точки прямоугольнику.

‘ Рисуем красный прямоугольник

Private Sub Form_Load ( )

Me. AutoRedraw = True

Line (0,0) – (1500,1500), VbRed, BF

End Sub

--------------------------------------------------------------------------------------------------

Private Sub Form_MouseDown (Button As Integer, _

Shift As Integer, X As Single, Y As Single)

X = Val(InputBox("Введите значение Х"))

Y = Val(InputBox("Введите значение Y"))

If Point (x,y) = VbRed Then

MsgBox “Точка РРР Р

(“ & x &” , “& y &”) находится в прямоугольнике”

Else

MsgBox “ Точка находится вне прямоугольника”

End If

End Sub.

Visual Basic позволяет cохранить изображения, нарисованные в форме или графическом окне, например:

SavePicture ИмяОбъекта.Image.ИмяФайла

Операционная система использует свойство Image для определения того, как нарисовано изображение: в форме или графическом окне. Если работа в графическом окне прекращается, то VB использует для сохранения текущую форму:

SavePicture Image.Имя_файла

Если изображение загружено первоначально из файла, определяющего свойство Picture, то VB сохраняет изображение в том же формате, что и оригинальный файл, иначе VB сохраняет файлы в формате побитового изображения - bitmap – файлы (.bmp).