Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.822 RSS

←   Август 2006   →
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30	31

За последние 60 дней ни разу не выходила

Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор

Калашников О.А.

Статистика

1.822 подписчиков
0 за неделю

• Выпуски
• Статистика

←   Все выпуски   →

RusFAQ.ru: Программирование на Basic / VBA

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU / КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA Выпуск № 359 от 31.08.2006, 14:05 Администратор: Калашников О.А. В рассылке: Подписчиков: 192, Экспертов: 33 В номере: Вопросов: 1, Ответов: 3 Вопрос № 53340: Здравия желаю, уважаемые эксперты! Мне нужно сделать, чтобы картинка была транспарентной, то есть в основном она показывалась, а фон, который будет к примеру черный, был прозрачным по отношению к тому изображению, где эта картинка установлена. Ст... Вопрос № 53.340 Здравия желаю, уважаемые эксперты! Мне нужно сделать, чтобы картинка была транспарентной, то есть в основном она показывалась, а фон, который будет к примеру черный, был прозрачным по отношению к тому изображению, где эта картинка установлена. Стандартные контролы Image и PictureBox не поддерживают такую возможность. Подскажите, что нужно сделать, чтобы получить такой эффект. Отправлен: 26.08.2006, 14:03 Вопрос задал: Таянчин Алексей Геннадьевич (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0) Отвечает: Митрофанов Артем Борисович Здравствуйте, Таянчин Алексей Геннадьевич! Прозрачность можно установить с помощью графического редактора, после чего проозрачную картинку можно установить на фон Ответ отправил: Митрофанов Артем Борисович (статус: 4-ый класс) Ответ отправлен: 26.08.2006, 14:42 Оценка за ответ: 3 Отвечает: Кокорич Вадим Леонидович Здравствуйте, Таянчин Алексей Геннадьевич! Неплохой пример использования накладки одного изображения на другое - в примере Н. Культина "Анимация". Изучив код, Вы разберетесь, как добиться прозрачности части одного изображения на фоне другого (см. приложение). Отбросить лишнее помогут комментарии к программе (она совсем короткая). Приложение: ' инициализация формы Private Sub Form_Initialize() ' загрузка картинки для самолета и фона Picture1.Borderstyle="0" Picture1.Picture = LoadPicture(CurDir + "ack.bmp") Picture3.Borderstyle="0" Picture3.Picture = LoadPicture(CurDir + "plane.bmp") Picture3.Visible = False ' Picture2 - это PictureBox, который обеспечивает ' движение самолета. В него загружается изображение ' самолета из Picture3 и часть фона из Picture1. Picture2.Borderstyle="0" Picture2.Height = Picture3.Height Picture2.Width = Picture3.Width Picture2.Left = Picture1.Left - Picture2.Width Randomize ' инициализация генератора случайных чисел Picture2.Top = Int((500 * Rnd) + 1) + Picture2.Height Timer1.Interval = 20 Timer1.Enabled = True End Sub ' обработка сигнала таймера Private Sub Timer1_Timer() Dim dx As Integer, dy As Integer Dim npoint ' цвет точки Picture2.Visible = False If Picture2.Left > Picture1.Left + Picture1.Width Then Picture2.Left = Picture1.Left - Picture2.Width Picture2.Top = Int((500 * Rnd) + 1) + Picture2.Height Else Picture2.Left = Picture2.Left + 25 ' двигаем картинку End If ' копирование определенной части фона (Picture1) ' на Picture2 Picture2.PaintPicture Picture1.Picture, _ -Picture2.Left, -Picture2.Top ' копирование самолета из Picture3 на Picture2 For dx = 1 To Picture3.Width Step Screen.TwipsPerPixelX For dy = 1 To Picture3.Height Step Screen.TwipsPerPixelY ' определение цвета точки npoint = Picture3.Point(dx, dy) ' если цвет точки не белый (RGB(255, 255, 255)), ' то копируем точку из Picture3 на Picture2, ' т. о. по точкам копируем самолет. If npoint <> RGB(255, 255, 255) Then Picture2.PSet (dx, dy), npoint End If Next dy Next dx Picture2.Visible = True End Sub --------- Труд сделал обезьяну человеком, а лень человека - программистом ! Ответ отправил: Кокорич Вадим Леонидович (статус: 5-ый класс) Ответ отправлен: 26.08.2006, 15:29 Оценка за ответ: 5 Комментарий оценки: Спасибо, все работает отлично! Теперь сделаю свой контрол типа PictureBox с возможностью прозрачности! Отвечает: C4tnt Здравствуйте, Таянчин Алексей Геннадьевич! Если вы решились сделать контрол - посоветую вам более быстрый вариант: Нужны: Картинка Маска Фон Маска - картинка, на которой белым цветом закрашено прозрачное место, а чёрным - всё остальное На вашей картинке прозрачное место должно быть чёрным. Порядок рисования: 1. Сохраняем DrawMode 2. DrawMode = vbSrcAnd 3. рисуем маску 4. DrawMode = vbSrcOr 5. рисуем картинку 6. восстанавливаем DrawMode Можно получать дополнительные спецэффекты, такие как изолированный канал (в результате в этом месте будет видна только одна компонента цвета) или смещение (в этом месте цвет будет ограничен по яркости снизу) Для изоляции канала на маске рисуем цветом, который должен остаться (то есть через красный цвет на маске будет видна красная часть фоновой картинки). Используйте максимально насыщенные цвета. (RGB(255,0,0) и т.п.) Для смещения рисуем цветом на картинке в её прозрачной части. Для того, чтобы не было проблем используйте только яркости каналов, имеющие вид 2^n - 1 (0<=n<=8). Маску можно получить по картинке автоматически Пример в приложении Создайте 4 PictureBox'а: Pica,Picb,Picc,PicOut Pica - AutoRedraw = true Picb - AutoRedraw = true Picc - AutoRedraw = true Pica - картинка Picb - маска Picc - фон UpdateResult - рисует картинку в PicOut MakeMask - создаёт маску Маску можно получить ещё быстрее, используя winAPI Приложение: Sub MakeMask() For X = 0 To Pica.ScaleWidth For Y = 0 To Pica.ScaleHeight If Pica.Point(X, Y) = 0 Then Picb.PSet (X, Y), &HFFFFFF Else Picb.PSet (X, Y), 0 End If Next Next End Sub Sub UpdateResult() PicOut.PaintPicture Picc.Image, 0, 0, Opcode:=vbSrcCopy PicOut.PaintPicture Picb.Image, 0, 0, Opcode:=vbSrcAnd PicOut.PaintPicture Pica.Image, 0, 0, Opcode:=vbSrcPaint End Sub --------- Теперь к нашим ответам осталось лишь найти вопросы Ответ отправил: C4tnt (статус: 2-ой класс) Ответ отправлен: 27.08.2006, 13:38 Оценка за ответ: 5 Комментарий оценки: Я уже сделал контрол, немного по другому, но все равно, спасибо за совет! Отправить вопрос экспертам этой рассылки Приложение (если необходимо): * Код программы, выдержки из закона и т.п. дополнение к вопросу. Эта информация будет отображена в аналогичном окне как есть. Обратите внимание! Вопрос будет отправлен всем экспертам данной рассылки! Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru. Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)! Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru. © 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.35 от 27.07.2006

---

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти"> <!--</a>--> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} {#if $P.login_register_tab == 2} <div class="rg_for_input"> <span class="rg_text_inner">E-mail</span> <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/> </div> <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a> </label> <br /> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span> Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a> </label> </div> {* <div style="float: left;position: absolute;left: 11em;"> <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;"> </div> <div class="rg_for_input rg_set_lineh"> <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label> </div> *} <div class="rg_for_input"> <em id="reg_msg" class="reg_error rg_for_input_wide"></em> <em id="reg_msg2" class="reg_error rg_for_input_wide"></em> <input id="rf_typeauthid" value="email" type="hidden"> <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} </div> {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label> <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em> </div> {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} <div class="rg_butons_socials"> {#if $P.login_register_tab == 1} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} {#if $P.login_register_tab == 2} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} </div> {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} <div class="rg_soc"> {#if $P.login_register_tab == 1} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} {#if $P.login_register_tab == 2} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} </div> {#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div> <!-- <div class="gray_bg register_shadow"></div> --> </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br />  <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}