Дико стыдно, но я не пойму. SavePicture

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
visualman
Бывалый
Бывалый
 
Сообщения: 228
Зарегистрирован: 08.02.2002 (Пт) 19:06
Откуда: Russia

Дико стыдно, но я не пойму. SavePicture

Сообщение visualman » 21.01.2008 (Пн) 20:19

Код: Выделить всё
PicPattern.Print UCase$("ABC")
PicPattern.Refresh
SavePicture PicPattern.Picture, "C:\1.bmp"


Так вот: Задаю фоном в PicPattern белый битмап и поверх него печатаю "ABC"

В пикчербоксе текст печатается, но функция SavePicture сохраняет в файл ТОЛЬКО мой белый фон. Очень стыдно, но голова уже не варит (( Помогите!!!

я и SavePicture PicPattern.Image пробовал. тоже самое.
Причиной ошибок в коде служит давление со стороны руководства и жесткие временные рамки, им установленные.

Ничи
Новичок
Новичок
 
Сообщения: 45
Зарегистрирован: 24.01.2005 (Пн) 17:29
Откуда: Питер

Сообщение Ничи » 21.01.2008 (Пн) 21:02

можно рисунок скопировать на форму, сохранить его и очистить форму

visualman
Бывалый
Бывалый
 
Сообщения: 228
Зарегистрирован: 08.02.2002 (Пт) 19:06
Откуда: Russia

Сообщение visualman » 21.01.2008 (Пн) 21:07

Ничи писал(а):можно рисунок скопировать на форму, сохранить его и очистить форму


Ни Me.PaintPicture PicPattern.Picture, 1, 1
Ни Me.Picture =PicPattern.Picture

не помогают. на форму копируется только белый фон (битмап, который я подложил) А текста нет (((( А он мне ОООЧЕНЬ нужен (((
Причиной ошибок в коде служит давление со стороны руководства и жесткие временные рамки, им установленные.

Ничи
Новичок
Новичок
 
Сообщения: 45
Зарегистрирован: 24.01.2005 (Пн) 17:29
Откуда: Питер

Сообщение Ничи » 21.01.2008 (Пн) 21:16

paintpicture picpattern.image x1, y1...

visualman
Бывалый
Бывалый
 
Сообщения: 228
Зарегистрирован: 08.02.2002 (Пт) 19:06
Откуда: Russia

Сообщение visualman » 21.01.2008 (Пн) 21:19

ЗАРАБОТАЛО!!!!!!!!!! СПАСИБО!!
Причиной ошибок в коде служит давление со стороны руководства и жесткие временные рамки, им установленные.

preport
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 09.08.2007 (Чт) 2:06

Сообщение preport » 22.01.2008 (Вт) 11:03

Ну и зачем такой изврат предлагать?=\
Ты делал практически правильно.
Можно просто вот так:
Код: Выделить всё
PicPattern.AutoRedraw = True
PicPattern.Print UCase$("ABC")
PicPattern.Refresh
SavePicture PicPattern.Image, "C:\1.bmp"


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

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

Сейчас этот форум просматривают: SemrushBot, Yandex-бот и гости: 124

    TopList  
cron