(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 
 

Скрытие и востановление панели задач

Текст модуля:
 

Option Compare Database
Option Explicit

' скрытие и востановление панели задач
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal IpClassName As String, ByVal IpWindowName _
As String) As Long

Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndlnsertAfter As Long, _
ByVal x As Long, ByVal у As Long, ByVal ex As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_SHOWWINDOW = &H40

Public Function HideTaskBar() As Boolean
Dim IRet As Long

IRet = FindWindow("Shell_traywnd", "")
If IRet > 0 Then

IRet = SetWindowPos(IRet, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
HideTaskBar = IRet > 0
End If
End Function

Public Function ShowTaskBar() As Boolean
Dim IRet As Long

IRet = FindWindow("Shell_traywnd", "")
If IRet > 0 Then

IRet = SetWindowPos(IRet, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)

ShowTaskBar = IRet > 0
End If
End Function

Обращение к функции:
 

' HideTaskBar
Call HideTaskBar

' ShowTaskBar
Call ShowTaskBar

Ссылки по теме


 Распечатать »
 Правила публикации »
  Написать редактору 
 Рекомендовать » Дата публикации: 28.11.2007 
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Microsoft 365 Apps for business (corporate)
Microsoft 365 Business Basic (corporate)
Microsoft Windows Professional 10, Электронный ключ
Microsoft Office для дома и учебы 2019 (лицензия ESD)
Microsoft 365 Business Standard (corporate)
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Безопасность компьютерных сетей и защита информации
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
3D и виртуальная реальность. Все о Macromedia Flash MX.
Проект mic-hard - все об XP - новости, статьи, советы
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
 



    
rambler's top100 Rambler's Top100