2 / 2 / 0
Регистрация: 14.02.2012
Сообщений: 12
1

Как скрыть/показать панель задач и ярлыки на рабочем столе

21.02.2012, 23:17. Показов 2366. Ответов 0
Метки нет (Все метки)

Кто знает, как скрыть/показать панель задач и ярлыки на рабочем столе у Visual Basic 2008?
У Visual Basic 6 я пользовался кодом

Visual Basic
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
Option Explicit
 
Private Declare Function ShowWindow& Lib _
        "user32" (ByVal q&, ByVal q1&)
        
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
     
Private Declare Function FindWindow Lib _
    "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
    
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Dim hPanel As Long
Dim p As Long
 
Private Sub Command1_Click()
' Скрыть панель задач
hPanel = FindWindow("Shell_traywnd", "")
Call SetWindowPos(hPanel, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub
 
Private Sub Command2_Click()
' Показать панель задач
hPanel = FindWindow("Shell_traywnd", "")
Call SetWindowPos(hPanel, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub
 
Private Sub Command3_Click()
' Скрыть ярлыки
    p = FindWindow("progman", vbNullString)
    Call ShowWindow(p, 0)
End Sub
 
Private Sub Command4_Click()
'Показать ярлыки
    p = FindWindow("progman", vbNullString)
    Call ShowWindow(p, 1)
End Sub
У Visual Basic 2008 этот код не работает.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.02.2012, 23:17
Ответы с готовыми решениями:

Как скрыть/показать панель задач для Win7
Всем привет.Сам вопрос в заглавии.В инете ничего полезного не нашел.Попался код на шарпе,но я не...

Не загружаются меню "Пуск", панель задач и ярлыки на рабочем столе
Здравствуйте все! Комп не мой. Дети говорят, что с утра поиграли в игру. Система ХР грузится до...

не отображаются ярлыки на рабочем столе. нет диспетчера задач
:( проблема тоже есть, похожая помогите!!!!! после включения компа появляется фоновый рисунок и не...

Запустить батник при первом входе в систему, НО после того, как появиться панель задач на рабочем столе!
Во время сборки образа Wondows 7, Возникла следующая задача.... нужно запустить батник на Этапе...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.02.2012, 23:17
Помогаю со студенческими работами здесь

Показать/скрыть панель задач
Здравствуйте! Возникла проблема: знаю как скрыть, знаю как показать панель задач. А как сделать...

Как закрепить ярлыки на рабочем столе
Посоветуйте програмку чтоб закрепить ярлыки на рабочем столе? А то после выхода из игры под другим...

Как настроить ярлыки на рабочем столе
Ребят подскажите как настроить полупрозрачную панель ярлыков в семёрке, на скринах вот вижу люди...

Как закрепить ярлыки на рабочем столе win7
Не правда ли простейший вопрос.. нужно зафиксировать расположение значков на рабочем столе. что бы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru