VPF::Прозрачный Image в PictureBox - Форум программистов

Гость_Artur

Дата 24.5.2005, 22:21 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как нарисовать в PictureBox прозрачный Image (гиф)?
Можно ли это сделать методом Picture1.PaintPicture Image1.picture, 0, 0 ???

Gannibal

Дата 24.5.2005, 23:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17

http://forum.vingrad.ru/index.php?showtopic=52988 посмотри в этом топике .. полистай там будет тема как нарисоват картинку прозрачную или тип такого smile

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

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

KEKC

Дата 25.5.2005, 15:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 15.5.2005

Репутация: нет
Всего: нет

M.E.G.U.S, не работает smile

И это не то что мне надо smile

.
Мне надо, чтобы я мог наложить на картинку в пикчер-боксе другую картинку, прозрачную. smile

Black_Star

Дата 25.5.2005, 16:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 9.9.2003
Где: Minsk

Репутация: 4
Всего: 4

Код


Private Declare Function TransparentBlt Lib "Msimg32.dll" ( _
    ByVal hdcDest As Long, ByVal nXOriginDest As Long, _
    ByVal nYOriginDest As Long, ByVal nWidthDest As Long, _
    ByVal nHeightDest As Long, ByVal hdcSrc As Long, _
    ByVal nXOriginSrc As Long, ByVal nYOriginSrc As Long, _
    ByVal nWidthSrc As Long, ByVal nHeightSrc As Long, _
    ByVal crTransparent As Long) As Boolean

KEKC

Дата 26.5.2005, 20:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 15.5.2005

Репутация: нет
Всего: нет

клмн...
ну как вам обьяснить?
Это не то - мне очень надо, чтобы я мог, исползуя функцию пэйнт-пикчер (или что-то подобное), нарисовать, например, в пикчер-боксе, в котором уже есть какой-то рисунок, прозрачный битмап smile

Mephisto

Дата 27.5.2005, 02:45 (ссылка)

(нет голосов)

Загрузка ...

Волкъ

Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

Репутация: 2
Всего: 34

Цитата(KEKC @ 26.5.2005, 20:38)

исползуя функцию пэйнт-пикчер (или что-то подобное)

Тоже не совсем понял. Обьясни на пальцах:
1)Есть то-то;
2)Появилось что-то;
3)Не хочу этого;
4)Есть вот это;
5)Хочу чтобы и то и другое;
smile

Таким вот образом.

Black_Star

Дата 27.5.2005, 17:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 9.9.2003
Где: Minsk

Репутация: 4
Всего: 4

Цитата

нарисовать, например, в пикчер-боксе, в котором уже есть какой-то рисунок, прозрачный битмап

Ну а тебе что дал? Рисует битмап в таком-то ДЦ из такого-то с изменением (или без) размеров и +с таким-то прозрачным цветом. Что не так?

KEKC

Дата 30.5.2005, 21:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 15.5.2005

Репутация: нет
Всего: нет

Цитата

Тоже не совсем понял. Обьясни на пальцах:
1)Есть то-то;
2)Появилось что-то;
3)Не хочу этого;
4)Есть вот это;
5)Хочу чтобы и то и другое;

Надеюсь, что вы все меня поймёте на этот раз smile

По схеме Mephisto...

С помощью процедуры пэинт-пикчер я нарисовал на обьекте Пикчер1 какой-то рисунок.
Я хочу вывести на этом обьекте (Пикчер1) рисунок из обьекта Пикчер2. В Пикчер2 находится прозрачная картинка (из гиф-файла). Однако, когда я использую процедуру Picture1.PaintPicture Picture2.Picture, 0, 0, на обьект Пикчер1 выводится не прозрачная картинка на фоне той, что была.

Посмотрите примерчик: http://safard.eclub.lv/vingrad.zip[/size][size=6]

Black_Star

Дата 31.5.2005, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 9.9.2003
Где: Minsk

Репутация: 4
Всего: 4

Ну елка... 3й раз говорю!

Код


Private Declare Function TBLT Lib "Msimg32.dll" Alias "TransparentBlt" ( _
    ByVal hdcDest As Long, ByVal nXOriginDest As Long, _
    ByVal nYOriginDest As Long, ByVal nWidthDest As Long, _
    ByVal nHeightDest As Long, ByVal hdcSrc As Long, _
    ByVal nXOriginSrc As Long, ByVal nYOriginSrc As Long, _
    ByVal nWidthSrc As Long, ByVal nHeightSrc As Long, _
    ByVal crTransparent As Long) As Boolean
Option Explicit

Private Sub Command1_Click()
'    Picture1.PaintPicture Picture2.Picture, 0, 0
TBLT Picture1.hDC, 0, 0, 104, 154, Picture2.hDC, 0, 0, 100, 100, vbGreen

End Sub

' 30 &igrave;&agrave;&yuml; 2005 &atilde;. 19:44 &iuml;&icirc; &Atilde;&eth;&egrave;&iacute;&acirc;&egrave;&divide;&oacute;
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
'&Ntilde; &iuml;&icirc;&igrave;&icirc;&ugrave;&uuml;&thorn; &iuml;&eth;&icirc;&ouml;&aring;&auml;&oacute;&eth;&ucirc; &iuml;&yacute;&egrave;&iacute;&ograve;-&iuml;&egrave;&ecirc;&divide;&aring;&eth; &yuml; &iacute;&agrave;&eth;&egrave;&ntilde;&icirc;&acirc;&agrave;&euml; &iacute;&agrave;
'&icirc;&aacute;&uuml;&aring;&ecirc;&ograve;&aring; &Iuml;&egrave;&ecirc;&divide;&aring;&eth;1 &ecirc;&agrave;&ecirc;&icirc;&eacute;-&ograve;&icirc; &eth;&egrave;&ntilde;&oacute;&iacute;&icirc;&ecirc;.
'&szlig; &otilde;&icirc;&divide;&oacute; &acirc;&ucirc;&acirc;&aring;&ntilde;&ograve;&egrave; &iacute;&agrave; &yacute;&ograve;&icirc;&igrave; &icirc;&aacute;&uuml;&aring;&ecirc;&ograve;&aring; (&Iuml;&egrave;&ecirc;&divide;&aring;&eth;1) &eth;&egrave;&ntilde;&oacute;&iacute;&icirc;&ecirc;
'&egrave;&ccedil; &icirc;&aacute;&uuml;&aring;&ecirc;&ograve;&agrave; &Iuml;&egrave;&ecirc;&divide;&aring;&eth;2. &Acirc; &Iuml;&egrave;&ecirc;&divide;&aring;&eth;2 &iacute;&agrave;&otilde;&icirc;&auml;&egrave;&ograve;&ntilde;&yuml; &iuml;&eth;&icirc;&ccedil;&eth;&agrave;&divide;&iacute;&agrave;&yuml;
'&ecirc;&agrave;&eth;&ograve;&egrave;&iacute;&ecirc;&agrave; (&egrave;&ccedil; &atilde;&egrave;&ocirc;-&ocirc;&agrave;&eacute;&euml;&agrave;). &Icirc;&auml;&iacute;&agrave;&ecirc;&icirc;, &ecirc;&icirc;&atilde;&auml;&agrave; &yuml; &egrave;&ntilde;&iuml;&icirc;&euml;&uuml;&ccedil;&oacute;&thorn;
'&iuml;&eth;&icirc;&ouml;&aring;&auml;&oacute;&eth;&oacute;...
'Picture1.PaintPicture Picture2.Picture, 0, 0
'..., &iacute;&agrave; &icirc;&aacute;&uuml;&aring;&ecirc;&ograve; &Iuml;&egrave;&ecirc;&divide;&aring;&eth;1 &acirc;&ucirc;&acirc;&icirc;&auml;&egrave;&ograve;&ntilde;&yuml; &iacute;&aring; &iuml;&eth;&icirc;&ccedil;&eth;&agrave;&divide;&iacute;&agrave;&yuml;
'&ecirc;&agrave;&eth;&ograve;&egrave;&iacute;&ecirc;&agrave; &iacute;&agrave; &ocirc;&icirc;&iacute;&aring; &ograve;&icirc;&eacute;, &divide;&ograve;&icirc; &aacute;&ucirc;&euml;&agrave;.

И не говори, что не понимаешь...

cardinal

Дата 31.5.2005, 17:03 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Black_Star, а что это с начала 16 строки за фигня? smile

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

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

korob2001

Дата 31.5.2005, 17:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61

cardinal - это коментарий. smile

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

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Black_Star

Дата 1.6.2005, 14:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 9.9.2003
Где: Minsk

Репутация: 4
Всего: 4

cardinal, с примера выдрал, исправил и вставил... почему-то русский алфавит не воспринял... smile

Naghual

Дата 1.6.2005, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

Цитата

почему-то русский алфавит не воспринял

А я говорил, говорил ведь... И копировать и вставлять нужно при русской раскладке. smile

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

Я желаю всем Счастья!

Guest

Дата 1.6.2005, 16:37 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А по-моему, раскладка тут ни причём.
Это же - хтмл кодировка.

Guest

Дата 1.6.2005, 16:45 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Black_Star, спасибо.
Вот только там глюк какой-то:
Скрин-шот
...
А если поставить у Picture1.ауторедро = тру, тогда вообще не идёт.

smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »