Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Изменение прозрачности текста и картинки Добавлено: 04.10.09 16:32  

Автор вопроса:  Tham
Задача: вывести на рабочий стол поверх всех программ картинку с текстовым комментарием так, чтобы они плавно появлялись и исчезали. Т.е. их прозрачность должна меняться от 0 до 100% и затем обратно от 100 до 0.

Не имею ни малейшего представления как это сделать.

Ответить

  Ответы Всего ответов: 5  

Номер ответа: 1
Автор ответа:
 UnDeAdZak



Вопросов: 80
Ответов: 476
  Профиль | | #1 Добавлено: 04.10.09 20:41
У тебя .Net или 6,0?На нете, я смогу рассказать как сделать.

Ответить

Номер ответа: 2
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #2 		Добавлено: 04.10.09 21:39
o_Opacity)

Ответить

Номер ответа: 3
Автор ответа:
 Илья



Вопросов: 1
Ответов: 48
  Профиль | | #3 Добавлено: 05.10.09 15:48
Не имею ни малейшего представления как это сделать.

Ну ты дал, сам объяснил, а сделать не можешь...

Вот, это самый простой пример, правда он не такой уж и быстрый:
http://visualprog.ucoz.ru/PixScan.rar
Хочешь быстрее делай сам

Ответить

Номер ответа: 4
Автор ответа:
 Илья



Вопросов: 1
Ответов: 48
  Профиль | | #4 Добавлено: 05.10.09 19:42
Есть ещё один пример, правда не мой, но вроде быстрее
http://visualprog.ucoz.ru/PixScan2.rar

Ответить

Номер ответа: 5
Автор ответа:
 KreAtoR



Вопросов: 120
Ответов: 438
  Профиль | | #5 Добавлено: 06.10.09 18:07
мне очень помогает

  1. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
  2.         (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  3.         Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
  4.         (ByVal hwnd As Long, ByVal nIndex As Long, _
  5.         ByVal dwNewLong As Long) As Long
  6.         Private Const GWL_STYLE = (-16)
  7.         Private Const GWL_EXSTYLE = (-20)
  8.         Private Declare Function SetLayeredWindowAttributes Lib "user32" _
  9.         (ByVal hwnd As Long, ByVal crKey As Long, _
  10.         ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
  11.         Private Const LWA_COLORKEY = &H1
  12.         Private Const LWA_ALPHA = &H2
  13.         Private Const WS_EX_LAYERED = &H80000
  14.         
  15.         Sub Alpha(Hwnds As Long, ByRef vals As Integer)
  16.         If vals < 254 Then
  17.         Dim lStyle As Long
  18.         lStyle = GetWindowLong(Hwnds, GWL_EXSTYLE)
  19.         lStyle = lStyle Or WS_EX_LAYERED
  20.         SetWindowLong Hwnds, GWL_EXSTYLE, lStyle
  21.         SetLayeredWindowAttributes Hwnds, 0, vals, LWA_ALPHA
  22.         Else '&#226; &#235;&#254;&#225;&#238;&#236; &#228;&#240;&#243;&#227;&#238;&#236; &#241;&#235;&#243;&#247;&#224;&#229;
  23.         SetWindowLong Hwnds, GWL_EXSTYLE, 0
  24.         End If
  25.         End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам