ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
33 сообщений из 33, показаны все 2 страниц
  все  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35267164
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Есть большая форма в экселе и бухгалтера все время тыкают в панель инструментов промахиваясь мимо кнопок "назад" и "далее" и запускают всякие программы, а то и на ПУСК нажимают, хорошо хоть процедуру подготовки к 3 мировой войне не начинают...
Приходится перед пуском программы вручную отключать галку "отображать панель задач поверх остальных окон"- в свойствах панели задач.

Как автоматизировать процесс, чтобы при инициализации формы - панель задач "автоматически скрывалась за формой", а при закрытии формы, настройки панели задач восстанавливались?
...
Рейтинг: 0 / 0
20.04.2008, 19:59
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269889
alex_gearbox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_gearbox
Гость
Быть может использовать WinAPI ?
...
Рейтинг: 0 / 0
21.04.2008, 22:49
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269923
alex_gearbox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_gearbox
Гость
Для того, чтобы скрыть панель задач достаточно выполнить макрос HiddenTaskBar(), а за отображение панели задач отвечает макрос VisibleTaskBar()

Вариант I.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Declare Function FindWindow _ 
        Lib "user32.dll" Alias "FindWindowA" ( _ 
        ByVal lpClassName As String, _ 
        ByVal lpWindowName As String) As Long 
Private Declare Function ShowWindow _ 
        Lib "user32.dll" ( _ 
        ByVal hWnd As Long, _ 
        ByVal nCmdShow As Long) As Long 

Private Sub HiddenTaskBar() 
    ShowWindow FindWindow("Shell_TrayWnd", vbNullString),  0 & 
End Sub 

Private Sub VisibleTaskBar() 
    ShowWindow FindWindow("Shell_TrayWnd", vbNullString),  4 & '1& 
End Sub

Вариант II.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private Declare Function FindWindow _ 
        Lib "user32.dll" Alias "FindWindowA" ( _ 
        ByVal lpClassName As String, _ 
        ByVal lpWindowName As String) As Long 
Private Declare Function SetWindowPos _ 
        Lib "user32.dll" ( _ 
        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 HiddenTaskBar() 
    ihWnd& = FindWindow("Shell_TrayWnd", vbNullString) 
    SetWindowPos ihWnd&,  0 &,  0 &,  0 &,  0 &,  0 &,  128 & 
End Sub 

Private Sub VisibleTaskBar() 
    ihWnd& = FindWindow("Shell_TrayWnd", vbNullString) 
    SetWindowPos ihWnd&,  0 &,  0 &,  0 &,  0 &,  0 &,  64 & 
End Sub

(c) www.msoffice.nm.ru
...
Рейтинг: 0 / 0
21.04.2008, 23:25
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269942
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Вам ничто не поможет кроме смены бухгалтера.
...
Рейтинг: 0 / 0
21.04.2008, 23:50
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269948
alex_gearbox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_gearbox
Гость
White OwlВам ничто не поможет кроме смены бухгалтера.
Я для себя что-ли примеры работающих функций цитировал? (проверял на Windows XP, Office 2003)
...
Рейтинг: 0 / 0
21.04.2008, 23:59
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269963
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
alex_gearbox White OwlВам ничто не поможет кроме смены бухгалтера.
Я для себя что-ли примеры работающих функций цитировал? (проверял на Windows XP, Office 2003)От криворукого юзера программная защита невозможна в принципе. Он всегда найдет куда мышой ткнуть.
...
Рейтинг: 0 / 0
22.04.2008, 00:20
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269967
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
alex_gearbox White OwlВам ничто не поможет кроме смены бухгалтера.
Я для себя что-ли примеры работающих функций цитировал? (проверял на Windows XP, Office 2003)
))))
написать все что угодно можно)
Но с White Owl я полностью в данной ситуации согласен!
...
Рейтинг: 0 / 0
22.04.2008, 00:22
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269984
alex_gearbox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_gearbox
Гость
:-) Что и сказать...

Но хоть как-то программный способ показал.
Проблема (помимо "криворукости" юзера) может быть и в расположении элементов управления на "большой форме в экселе". Пользователь может не знает, что к чему. Не хватает интуитивности восприятия?
...
Рейтинг: 0 / 0
22.04.2008, 00:38
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269995
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
alex_gearbox:-) Что и сказать...

Но хоть как-то программный способ показал.
Проблема (помимо "криворукости" юзера) может быть и в расположении элементов управления на "большой форме в экселе". Пользователь может не знает, что к чему. Не хватает интуитивности восприятия?
...тогда уже уважаемый, alex_gearbox, нужно продумывать (простите за грубость) Интерфейс! - штоп не сто кнопок на экране появлялось.... а лишь интуитивные две: "согласна" - "не согласна".
Думаю так.
...
Рейтинг: 0 / 0
22.04.2008, 00:47
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35269999
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
alex_gearbox,
не в обиду... - вопрос оказался опять политический.
Решать его исходно нужно решать технически - решайте.
Каюсь, что нафлудил. Простите.

Но такими темпами нужно прийти, штоп мыши шевелились в нужную сторону бухгалтерами, ИМХО....
...
Рейтинг: 0 / 0
22.04.2008, 00:57
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35270002
alex_gearbox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_gearbox
Гость
Согласен, что продумывать интерфейс (количество, размеры, правильность надписей, подсказки и т.д. и т.п.) надо. Споры в этом отношении излишни.

Dan-K задавал вопрос: "Как автоматизировать процесс, чтобы при инициализации формы - панель задач "автоматически скрывалась за формой", а при закрытии формы, настройки панели задач восстанавливались?"
Вариант предложен и изложен выше.
...
Рейтинг: 0 / 0
22.04.2008, 01:02
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35272186
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Большое спасибо, сейчас пробовать буду.
А бухгалтеров все равно надо беречь, хоть я и ругаюсь на них...
...
Рейтинг: 0 / 0
22.04.2008, 17:34
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35333356
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
ВСЕ!!! ЛОВИТЕ ФАЙЛ
...
Рейтинг: 0 / 0
25.05.2008, 01:25
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35333822
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Как тебе такой вариант?

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
25.05.2008, 17:33
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35333911
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Сразу не пойму, но слегонца офигел. Везде читал что жуткий головняк, только за бешенные деньги и т.п.
Большое спасибо.

А где запрятана "синяя полоска с названием" (забыл как называется) сверху и как ее закрыть при гипотетическом сбое?
Есть ли метод автоматически изменить разметы и шрифты кнопок, комбобоксов?
Хотя это конечно наглость, но вдруг кто-нибудь оч.умный просчитал зависимости для размеров комбобоксов (текстбоксов...) и шрифтов от разрешения экрана и выставленного размера шрифта...
...
Рейтинг: 0 / 0
25.05.2008, 19:32
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35333939
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Dan-K1)А где запрятана "синяя полоска с названием" (забыл как называется) сверху и как ее закрыть при гипотетическом сбое?
2)Есть ли метод автоматически изменить разметы и шрифты кнопок, комбобоксов?

1) синяя полоска с названием - это TitleBar. Она прячется функцией из модуля modHideTitleBar
2) про это я уже говорил в одном из твоих топиков: проперть Zoom
...
Рейтинг: 0 / 0
25.05.2008, 20:12
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35333964
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Спасибо, у нас на урале уже 22.26
разбираться буду завтра...

Научиться VBA можно только одним способом - ради развлечения прорешивая задачи топиков на sql.ru.*********** Карл Маркс. Полное собрание сочинений. т12. Стр.235
...
Рейтинг: 0 / 0
25.05.2008, 20:37
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35346616
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Спасибо KL (XL) !!! ОТЛИЧНАЯ ВЕЩЬ. Разобрался пока на 80% но уже использую, это лучше чем вариант с которым я бился последнее время.
заменил TitleBar на Label, растянул его на ширину формы (размер формы 517х640) под максимальное разрешение 19'' монитора и заголовок формы ввел туда. В результате получилась ничем не сдвигаемая форма, а внешний вид как у обычной.
Кстати посмотрите если можно проверку паролей менеджеров. Как ее организовать без использования формулы на листе?
...
Рейтинг: 0 / 0
30.05.2008, 19:08
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35346817
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Dan-KКстати посмотрите если можно проверку паролей менеджеров. Как ее организовать без использования формулы на листе?
С паролями в Excel я бы не затевался - при желании любой взломает любую твою защиту и узнает все пароли за считанные секунды (Инет кишит советами по этому поводу).
...
Рейтинг: 0 / 0
30.05.2008, 23:02
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35347298
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
Это не страшные пароли. Это просто способ правильно раскидать информацию о рабочем времени и действиях менеджеров в удаленном офисе. Менеджер сам не захочет входить под чужим паролем - свое учитываемое рабочее время (зарплату) подарит другому...
Так что если можно гляньте...
Заранее благодарен.
...
Рейтинг: 0 / 0
31.05.2008, 19:56
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35347304
Фотография Dan-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dan-K
Участник
ПРОИГРЫВАТЕЛЬ Windows Media находящийся на Панели задач в свернутом виде выдает в начале каждой песни маленькое окошко с названием песни.
Когда форма скрывает панель задач, то это окошко продолжает всплывать в начале каждой песни поверх формы, видимо то же самое должно происходить и с сервисными сообщениями от различных программ (принтеров). Или это глюк 2007 ?


Научиться VBA можно только одним способом - ради развлечения прорешивая задачи топиков на sql.ru.*********** Карл Маркс. Полное собрание сочинений. т12. Стр.235
...
Рейтинг: 0 / 0
31.05.2008, 20:08
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #35356542
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
KL (XL)Как тебе такой вариант?

KL
[MVP - Microsoft Excel]
Кирилл, поле запуска этого файла, у меня при сворачивании всех окон через значек в панели быстрого запуска исчезает панель задач...
Как это можно исправить?
...
Рейтинг: 0 / 0
05.06.2008, 13:38
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #37191981
Глюкман
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глюкман
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Declare Function FindWindow _
        Lib "user32.dll" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow _
        Lib "user32.dll" ( _
        ByVal hWnd As Long, _
        ByVal nCmdShow As Long) As Long
Sub HiddenTaskBar()
'закрытие панели управления
    ShowWindow FindWindow("Shell_TrayWnd", vbNullString),  0 &
End Sub
Sub VisibleTaskBar()
'открытие панели управления
    ShowWindow FindWindow("Shell_TrayWnd", vbNullString),  4 & '1&
End Sub
Работает очень хорошо, т.е. окно закрывается полностью.
А как скрыть только кнопку Пуск на нём расположенную?
...
Рейтинг: 0 / 0
31.03.2011, 11:51
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #37192018
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
и ещё хотел спросить, как эти две процедуры повесить на одну кнопку: Открыть\Закрыть панель управления, то есть сначала надо проверить, каков скрипт?
...
Рейтинг: 0 / 0
31.03.2011, 12:06
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #37192033
Глюкман
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глюкман
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private Declare Function FindWindowEx Lib "user32" _
                Alias "FindWindowExA" _
               (ByVal hWnd1 As Long, _
                ByVal hWnd2 As Long, _
                ByVal lpsz1 As String, _
                ByVal lpsz2 As String) As Long

Private Declare Function FindWindow _
        Lib "user32.dll" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow _
        Lib "user32.dll" ( _
        ByVal hWnd As Long, _
        ByVal nCmdShow As Long) As Long
Sub HiddenTaskBar()
    aClock = FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString),  0 , "TrayNotifyWnd", vbNullString),  0 , "TrayClockWClass", vbNullString)
    ShowWindow aClock,  0 &
End Sub
Sub VisibleTaskBar()
    aClock = FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString),  0 , "TrayNotifyWnd", vbNullString),  0 , "TrayClockWClass", vbNullString)
    ShowWindow aClock,  4 &
End Sub
Так часы скрыть, а как кнопку???
...
Рейтинг: 0 / 0
31.03.2011, 12:11
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #37192052
Глюкман
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глюкман
Гость
сделал)))
показать
Код: plaintext
1.
2.
    hWnd = FindWindow("Shell_TrayWnd", vbNullString)
    aClock = FindWindowEx(hWnd,  0 , "Button", vbNullString)
    ShowWindow aClock,  4 &
...
Рейтинг: 0 / 0
31.03.2011, 12:16
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #37192057
Глюкман
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глюкман
Гость
Ну ФСЁ!!!!
Держитесь завтра офисные крыски)))
...
Рейтинг: 0 / 0
31.03.2011, 12:17
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #37192231
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Глюкман, что то опробовал Ваш скрипт от сегодня, 12:16 ничего не происходит ????
как повесить на одну кнопку скрыть\отобразить часы и скрыть\отобразить панель задач, так как скрывая скрытые часы ошибки нет, тогда надо писать условие, каков скрипт? Спасибо
...
Рейтинг: 0 / 0
31.03.2011, 13:16
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #37193578
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
ГлюкманНу ФСЁ!!!!
Держитесь завтра офисные крыски)))
Вы им часы убрали и они не зная времени не будут знать когда уйти домой
Ответьте пожалуйста мой предыдущий пост, спасибо
...
Рейтинг: 0 / 0
01.04.2011, 08:09
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #37199280
Глюкман
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глюкман
Гость
Ципихович Эндрю,

хз, у меня всё работает.
как проверять скрыто или нет не знаю. вероятно можно как-то
...
Рейтинг: 0 / 0
05.04.2011, 07:31
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #37199376
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Глюкман, да и у меня всё работает, за исключением скрытия кнопки пуск, я так понял Вы сделали - скрипт от 31 мар 11, 12:16 полный можете выложить
...
Рейтинг: 0 / 0
05.04.2011, 09:11
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #37201516
Глюкман
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глюкман
Гость
Код: plaintext
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.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
Private Declare Function FindWindowEx Lib "user32" _
                Alias "FindWindowExA" _
               (ByVal hWnd1 As Long, _
                ByVal hWnd2 As Long, _
                ByVal lpsz1 As String, _
                ByVal lpsz2 As String) As Long

Private Declare Function FindWindow _
        Lib "user32.dll" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow _
        Lib "user32.dll" ( _
        ByVal hWnd As Long, _
        ByVal nCmdShow As Long) As Long
        
'скрыть панель задач
Public Sub HiddenTaskBar()
    ShowWindow FindWindow("Shell_TrayWnd", vbNullString),  0 &
End Sub
'показать панель задач
Public Sub VisibleTaskBar()
    ShowWindow FindWindow("Shell_TrayWnd", vbNullString),  4 & '1&
End Sub
'скрыть часы
Public Sub HiddenTaskBarClock()
    aClock = FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString),  0 , "TrayNotifyWnd", vbNullString),  0 , "TrayClockWClass", vbNullString)
    ShowWindow aClock,  0 &
End Sub
'показать часы
Public Sub VisibleTaskBarClock()
    aClock = FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString),  0 , "TrayNotifyWnd", vbNullString),  0 , "TrayClockWClass", vbNullString)
    ShowWindow aClock,  4 &
End Sub
'скрыть пуск
Public Sub HiddenTaskBarStartButton()
    hWnd = FindWindow("Shell_TrayWnd", vbNullString)
    aClock = FindWindowEx(hWnd,  0 , "Button", vbNullString)
    ShowWindow aClock,  0 &
End Sub
'показать пуск
Public Sub VisibleTaskBarStartButton()
    hWnd = FindWindow("Shell_TrayWnd", vbNullString)
    aClock = FindWindowEx(hWnd,  0 , "Button", vbNullString)
    ShowWindow aClock,  4 &
End Sub
...
Рейтинг: 0 / 0
06.04.2011, 07:43
| Ответить | Цитировать | Написать  
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
    #37201534
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Глюкман, спасибо, то что нужно
...
Рейтинг: 0 / 0
06.04.2011, 08:19
| Ответить | Цитировать | Написать  
33 сообщений из 33, показаны все 2 страниц
  все  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=61&tid=2177010]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 160ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 72ms
get tp. blocked users:
 2ms
others: 229ms
total:  506ms
созд. / загр.: 506ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]