Как программно изменить положение панели задач?

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Damage
Обычный пользователь
Обычный пользователь
 
Сообщения: 50
Зарегистрирован: 06.04.2003 (Вс) 18:31
Откуда: Москва

Как программно изменить положение панели задач?

Сообщение Damage » 21.04.2003 (Пн) 22:19

Собссно субж.

Александр Андреев
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 145
Зарегистрирован: 09.04.2003 (Ср) 16:43
Откуда: Н.Новгород

Сообщение Александр Андреев » 22.04.2003 (Вт) 9:55

Код: Выделить всё
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Dim lHwnd As Long
'найти hWnd
lHwnd& = FindWindow("Shell_TrayWnd", "")


Это у тебя найдется hWnd панели задач. А дальше делай с ним что хотел: прячь, изменяй размер и положение, рисуй на нем зюзи и т.д. :wink:

Damage
Обычный пользователь
Обычный пользователь
 
Сообщения: 50
Зарегистрирован: 06.04.2003 (Вс) 18:31
Откуда: Москва

Сообщение Damage » 22.04.2003 (Вт) 12:30

неполучается, как бы не менял координаты - не двигается :(

вообщем надо получить его координаты. не подскажите функцию?

Александр Андреев
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 145
Зарегистрирован: 09.04.2003 (Ср) 16:43
Откуда: Н.Новгород

Сообщение Александр Андреев » 22.04.2003 (Вт) 13:16

Значит какие-то стили мудреные у него там стоят... Какой-нибудь align. Ты поковыряй, должно получиться.

Александр Андреев
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 145
Зарегистрирован: 09.04.2003 (Ср) 16:43
Откуда: Н.Новгород

Сообщение Александр Андреев » 22.04.2003 (Вт) 13:18

Упс... а функция - вот она:

Код: Выделить всё
Public Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As RECT) As Long

Damage
Обычный пользователь
Обычный пользователь
 
Сообщения: 50
Зарегистрирован: 06.04.2003 (Вс) 18:31
Откуда: Москва

Сообщение Damage » 22.04.2003 (Вт) 13:21

Какой align???

Делаю так:
Код: Выделить всё
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

SetWindowPos lHwnd, -1, 0,0,0, 0, &H10

окно ворочается, а это нет.

Надо считать текущие св-ва, а потом их применить.

ЗЫ.
Просто всплыл непонятный глюк: панель задач сама(не уверен т.к. у девушки и я процесса не5 наблюдал, но говорит - само) переместилась на верх и двигаться мышей не хочет никакк, только размер меняется.

Александр Андреев
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 145
Зарегистрирован: 09.04.2003 (Ср) 16:43
Откуда: Н.Новгород

Сообщение Александр Андреев » 22.04.2003 (Вт) 14:11

Гы :)
Что-то ничего в голову пока не приходит.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 56

    TopList