3.5. Метод Point
Метод Point возвращает цвет в палитре RGB указанной точки в форме или на объектах типа PictureBox. Синтаксис этого метода следующий:
object.Point (x, у)
object – объект, в котором используется метод;
x, у – координаты точки в объекте.
Замечание. Необходимо иметь в виду, что в случае "выпадения" точки из границ формы или объекта Picture (то есть когда координаты больше размера объекта) метод возвращает отрицательное значение -1.
3.6. Метод Pset
Метод Pset помещает точку определенного цвета в указанные координаты. Этот метод является обратным методу point.
object.Pset [Step] (x, у) [,color]
object – объект, в котором используется метод. Если объект не указан, то по умолчанию используется форма;
step – ключевое слово, определяющее привязку координат точки к координатам, возвращаемым свойствами CurrentX и СurrentY объекта;
х, у – координаты точки на объекте;
color – цвет точки в палитре RGB. Если параметр не указан, то используется свойство ForeСolor объекта.
Замечание. При использовании метода Pset размер точки определяется толщиной объекта, то есть свойством объекта DrawWidth. Для толщины 1 это один пиксел, для толщины больше единицы – это область объекта с центром, имеющим указанные координаты. Способ рисования точки при этом определяется свойствами объекта DrawMode и DrowStyle.
Пример. Нарисовать несколько точек, линий и прямоугольников.
Рис. 11.4. Использование методов Pset и Line
3.7. Метод Сls
С помощью метода Cls можно очистить объект от текста и графики, созданных в нем программно.
object.Cls
где object – объект, в котором применяется метод. Если параметр не указан, то по умолчанию используется форма.
Примечания:
Необходимо помнить, что при применении этого метода свойства CurrentX и CurrentY выбранного объекта устанавливаются в 0.
Метод Cls не воздействует на растровый фон, установленный свойством Picture, и элементы управления, помещенные на форму во время разработки.
Если перед вызовом метода Cls было установлено значение False свойства AutoRedraw, то метод не воздействует на текст и графику, которые были выведены в объекты Form или PictureBox до того, как было установлено значение True свойства AutoRedraw. Таким образом, можно сохранять текст и графические изображения на объектах Form и PictureBox, манипулируя свойством AutoRedraw объекта.
3.8. Метод PaintPicture
Метод PaintPicture загружает содержимое графических файлов, имеющих расширение bmp, wmf, emf, cur, ico или dib, в формах или объектах типа Picture.
object.PaintPicture picture,x1,y1,width1,height1,x2,y2,width2,height2,opcode
object – объект, в котором применяется метод. Если объект не указан, то по умолчанию используется форма;
picture – исходное изображение, которое будет размещено в объекте. Это должна быть ссылка на свойство picture данного или другого объекта;
x1, y1 – координаты левого верхнего угла области объекта для размещения исходного изображения;
width1, height1– размер (ширина и высота) области размещения исходного изображения. Если размер области отличается от размера исходного изображения, то изображение пропорционально растягивается или сжимается;
х2, y2 – координаты левого верхнего угла в исходном изображении для вставки в объект. Если заданы координаты, отличные от нуля, то будет вставлена часть исходного изображения;
width2, height2 – размер (ширина и высота) вставляемой части исходного изображения;
opcode – устанавливает режим вставки изображения. Задается только для работы с изображениями, имеющими расширение bmp.
При помощи отрицательных значений ширины (width1) и высоты (height1) можно перевернуть изображение вертикально или горизонтально.
Пример использования метода PaintPicture.
Сделаем небольшой проект, в котором после щелчка по кнопке на форме будет размещаться фрагмент из графического файла. На стадии проектирования зададим значения свойств Height формы – 4000, Width – 5010. Код командной кнопки составим следующий:
Private Sub Command1_Click( )
PaintPicture LoadPicture("С\Мои документы\ПГУ.bmp"), 450, 250, 4000, 3000
End Sub
Вот, приблизительно, что должно получиться:
Рис. 11.5. Использование метода PaintPicture