Get\put

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Elf-Phoenix
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 20.09.2006 (Ср) 12:09

Get\put

Сообщение Elf-Phoenix » 08.10.2006 (Вс) 2:21

Доброго времени суток.
Помнится еще в QBasic была такая полезная функция для работы с графикой:

Get ( x1, y1 ) - ( x2, y2 ), [name] - (копирование изображения)
а затем использовалось
Put ( x3, y3 ), [Name] для вставки изображеня в координаты x3,y3

В VB такого оператора как Get, видимо, не существует. Хотелось бы узнать, как можно осуществить копирование и последующую вставку фрагмента изображения, скажем PictureBox, похожим методом, если таковой имеется.
Заранее спасибо.

BV
Thinker
Thinker
Аватара пользователя
 
Сообщения: 3987
Зарегистрирован: 12.09.2004 (Вс) 0:55
Откуда: Молдавия, г. Кишинёв

Сообщение BV » 08.10.2006 (Вс) 2:25

Point/PSet, PaintPicture
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;

Elf-Phoenix
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 20.09.2006 (Ср) 12:09

Сообщение Elf-Phoenix » 08.10.2006 (Вс) 2:36

Спасибо. Но хотелось бы немного поподробнее.
Было бы совсем хорошо если бы примерчик.
Скажем...
Есть изображение. Нужно скопировать квадрат изображения с координатами (10,10) - (100,100) и вставить на координаты (500,500).

BV
Thinker
Thinker
Аватара пользователя
 
Сообщения: 3987
Зарегистрирован: 12.09.2004 (Вс) 0:55
Откуда: Молдавия, г. Кишинёв

Сообщение BV » 08.10.2006 (Вс) 3:23

Код: Выделить всё
Option Explicit

Private Sub cmdDraw_Click()
    picMain.AutoRedraw = True
    picMain.ScaleMode = vbPixels
    picMain.PaintPicture picMain.Picture, 500, 500, 90, 90, 10, 10, 100, 100, vbSrcCopy
End Sub
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 53

    TopList