Отправляет email-рассылки с помощью сервиса Sendsay

Русский_Проект: Изучение Visual Basic

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 3.885 RSS
←   Сентябрь 2002   →
 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


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


Сайт рассылки: http://rusproject.narod.ru/
Открыта: 06-01-2001

Автор
Русский_Проект

Статистика

3.885 подписчиков
0 за неделю
←   Все выпуски   →

Русский_Проект: Изучение Visual Basic


Информационный Канал Subscribe.Ru
Русский_Проект: Рассылка Вступление
Задачи
Функции API
Гостевая книга Подписка на рассылку
Юмор

Вступление

Здравствуйте! Жизнь продолжается. Visual Basic жив и не сдает своих позиций своему родственнику VB.NET

Задачи

Как я и предполагал, народ "поглупел". Никто не смог решить задачи из прошлой рассылки. Придется на некоторое время закрыть рубрику. Задания сегодня не будет.

Функции API

Сегодня расскажем о функции SetLayeredWindowAttributes.
Данная функция появилась в Windows 2000 и позволяет делать окно прозрачным или полупрозрачным!
Параметры 
hWnd
Дескриптор слойного окна. Слойное окно создается при помощи параметра WS_EX_LAYERED при создании окна функцией CreateWindowEx или установки стиля WS_EX_LAYERED через SetWindowLong после создания окна
crKey
Значение цвета, которое будет считаться прозрачным в данном окне
bAlpha
Значение Alpha-канала, описывающее полупрозрачность слойного окна. Аналогично значению SourceConstantAlpha структуры BLENDFUNCTION. Когда bAlpha равно 0, окно совершенно прозрачно. Когда bAlpha равно 255, окно не прозрачно
dwFlags
Флаги, определяющие различные действия
LWA_COLORKEY = &H1(Использовать crKey как прозрачный цвет)
LWA_ALPHA = &H2 (Использовать bAlpha для определения прозрачности слойного окна)

Пример
' Делаем часть окна прозрачным
' Установите на форме Picture1 (картинку)
' и присвойте его свойству BackColor любое значение
Dim ret As Long
Dim myback as Long

myback = Picture1.BackColor
' Устанавливаем стиль Layered
ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
ret = ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, ret

' Установим значение crKey в цвет фона картинки
' Теперь место картинки будет прозрачным
SetLayeredWindowAttributes Me.hWnd, myback, 0, LWA_COLORKEY

' Второй пример - делаем окно полупрозрачным
Dim ret As Long

' Устанавливаем стиль Layered
ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
ret = ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, ret

' устанавливаем уровень полупрозрачности
SetLayeredWindowAttributes Me.hWnd, 0, 128, LWA_ALPHA
Описание данной функции войдет в Cправочник по функциям Windows API, доступный только зарегистрированным пользователям. Данный справочник содержит около 400 популярных функций и сообщений!

Гостевая книга

На сайте открылась Гостевая книга. Также можно использовать ее в режиме форума. Заходите

Подписка на рассылку

Если вы уже перешли на VB.NET, то можете подписаться на рассылку Игоря Алексеева
Рассылки Subscribe.Ru
Visual Basic.NET Уроки.
 Уроки по Visual Basic.NET с сайта progs.biz. Написание программ, создание собственных компонентов, примеры и исходники, создание ActiveX-элементов, работа с базами данных, создание веб-приложений, FAQ, и многое другое.

Юмор

Новость: На выпуск зубной щетки Colgate Navigator, Aquafresh ответила своей новой разработкой Aquafresh Explorer

Вот и все на сегодня!

Присылайте ваши предложения по адресу rusproject@mail.ru
Посетите сайт Русский_Проект, где вы найдете другую интересную информацию
Давайте делать рассылку вместе! Счастливого вам программирования!

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное