| Вопрос: Вопрос по прозрачности | Добавлено: 28.02.05 16:11 |
Автор вопроса:  Дмитрий
|
|
Вопрос такой как сделать форму прозрачной а элементы на ней нет. Ну допустим чтобы установить 0-ую прозрачность форме а label чтоб осталась видимой.
Я делаю календарик, и хочу чтобы он висел на рабочем столе и было видно только цифры дней а форму нет??? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #1 | Добавлено: 28.02.05 18:31 |
|
Скорее всего не выйдет, т.к. лабел пренадлежит форме, но есть 2 решения этой задачи:
1. Рисовать на десктопе время, имея его DC 2. Создать форму без заголовка и с лабелом, и тогда это выглядит как один лабел без формы. |
||
|
Номер ответа: 2 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 28.02.05 18:57 |
|
Помнится в далекие времена, на одном из сайтов посвященному VB было:
Создать прозрачную форму
Вот еще один интересный примерчик. Чтобы приложение заставить работать просто скопируйте код и вставьте в модуль новой формы. Самое, что замечательно что вырубить эту программу можно только с самого VB. Option Explicit Private Const GWL_EXSTYLE = (-20) Private Const WS_EX_TRANSPARENT = &H20& Private Const SWP_FRAMECHANGED = &H20 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 Private Const SWP_SHOWME = SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE Private Const HWND_NOTOPMOST = -2 Private Declare Function SetWindowLong _ Lib "user32" Alias "SetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long _ ) As Long Private Declare Function SetWindowPos _ Lib "user32" ( _ ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal cx As Long, _ ByVal cy As Long, _ ByVal wFlags As Long _ ) As Long Private Sub Form_Load() SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME End Sub |
||
|
Номер ответа: 3 Автор ответа: crestaВопросов: 117 Ответов: 1538 |
Профиль | | #3 | Добавлено: 28.02.05 21:10 |
| SetParent DTPicker1.hwnd, 0 | ||
|
Номер ответа: 4 Автор ответа: Дмитрий Вопросов: 3 Ответов: 6 |
Профиль | | #4 | Добавлено: 08.03.05 16:37 |
Я так понял єто не возможно??? (
|
||
Страница: 1 |