|
КАК ПРОГРАМНО "СПРЯТАТЬ" ПАНЕЛЬ ЗАДАЧ ЗА UserForm?
#37201516
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
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
|
|
|
