Сайт Алексея Муртазина (Star Cat) E-mail: starcat-rus@yandex.ru
Мои программы Новости сайта Мои идеи Мои стихи Форум Об авторе Мой ЖЖ
VB коды Статьи о VB6 API функции Самоучитель по VB.NET
Собрания сочинений Обмен ссылками Все работы с фото и видео
О моём деде Муртазине ГР Картинная галерея «Дыхание души»
Звёздный Кот

2 Скрыть/показать значки на Рабочем столе
Private Declare Sub ShowWindow& Lib "user32" (ByVal q&, ByVal q1&)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal w As String, ByVal w1 As String) As Long

Dim r As Long

Private Sub Command1_Click()
r = FindWindow("progman", vbNullString)
Call ShowWindow(r, 1)
End Sub

Private Sub Command2_Click()
r = FindWindow("progman", vbNullString)
Call ShowWindow(r, 0)
End Sub

Private Sub Form_Load()
Command1.Caption = "Показываем"
Command2.Caption = "Скрываем"
End Sub

Инфо
Сайт создан: 20 июня 2015 г.
Рейтинг@Mail.ru
Главная страница