| Вопрос: Форму в бэкграунд | Добавлено: 22.12.05 16:34 |
Автор вопроса:  Pashenko | ICQ: 176176951 |
| Ответы | Всего ответов: 26 |
|
Номер ответа: 16 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #16 | Добавлено: 23.12.05 22:09 |
| or js... | ||
|
Номер ответа: 17 Автор ответа: Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #17 | Добавлено: 26.12.05 11:26 |
|
Я думаю, человек хотел, чтобы форма ра рабочем столе была "как прибитая к десктопу"
Именно это и хотел. Попробовал как советовали привязать к десктопу и форму и контрол - ничего не помогает. 
|
||
|
Номер ответа: 18 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #18 | Добавлено: 26.12.05 16:53 |
| Не, ты попробуй frame вместо формы прибить к десктопу, а на него разместить контролы. Просто GetDesktopWindow -> SetParent, а саму по себе форму прятай Me.Hide | ||
|
Номер ответа: 19 Автор ответа: CyRax  Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #19 | Добавлено: 27.12.05 06:43 |
|
Т.е. чтобы была видна даже после нажатия [win]+D.
Странно, а я всегда [win]+M применял и о сочетании [win]+D даже не знал 
|
||
|
Номер ответа: 20 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #20 | Добавлено: 27.12.05 09:52 |
|
Не, ты попробуй frame вместо формы прибить к десктопу, а на него разместить контролы. Просто GetDesktopWindow -> SetParent, а саму по себе форму прятай Me.Hide
Уже лучше, но всё равно не то... По [win]+D сворачивается (при повторном нажатии [win]+D, как ни странно, разворачивается). И ещё бы при запуске на задний план поставить. |
||
|
Номер ответа: 21 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #21 | Добавлено: 27.12.05 13:33 |
| Так а чего ж нехватает? Надо, чтоб с TitleBar'ом что-ли форму? Какие функции у тебя эта панель должна выполнять? | ||
|
Номер ответа: 22 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #22 | Добавлено: 27.12.05 13:55 |
| Функции, на самом деле самые тупые: висеть постоянно на рабочем столе и показывать имя компьютера и ip-адрес. | ||
|
Номер ответа: 23 Автор ответа:  SerJВопросов: 24 Ответов: 332 |
Профиль | | #23 | Добавлено: 27.12.05 14:40 |
|
Попробуй это. Правда когда выгружаешь прогу - она с собой тянет експлорера. А когда его загружаешь опять - всплывают наверх все проги из трея
Option Explicit
Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Sub Command1_Click() End 'Crash!!! End Sub Private Sub Form_Load() Dim rectTask As RECT App.TaskVisible = False WindowState = 2 AutoRedraw = True ScaleMode = 3 GetWindowRect FindWindow("Shell_TrayWnd", ""  , rectTask
ScaleHeight = rectTask.Top SetParent FindWindow("Progman", "Program Manager" , hwnd
Timer1.Interval = 100 '
End Sub Private Sub Timer1_Timer() SetForegroundWindow FindWindow("Shell_TrayWnd", ""
End Sub |
||
|
Номер ответа: 24 Автор ответа: SerJВопросов: 24 Ответов: 332 |
Профиль | | #24 | Добавлено: 27.12.05 14:42 |
| Ааа, ещё забыл ShowInTaskBar=False | ||
|
Номер ответа: 25 Автор ответа: SerJВопросов: 24 Ответов: 332 |
Профиль | | #25 | Добавлено: 27.12.05 14:42 |
| Ааа, ещё забыл ShowInTaskBar=False | ||
|
Номер ответа: 26 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #26 | Добавлено: 28.12.05 12:42 |
|
Правда когда выгружаешь прогу - она с собой тянет експлорера. А когда его загружаешь опять - всплывают наверх все проги из трея
Вот он, пример безглючного кода: когда все ошибки изучены и описаны LOL )))))))))))))
|
||