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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
mayhem
Новичок
Новичок
Аватара пользователя
 
Сообщения: 49
Зарегистрирован: 26.07.2004 (Пн) 14:02
Откуда: kiev

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

Сообщение mayhem » 01.10.2004 (Пт) 15:52

я такой прикол в проге Object Bar видел
никто не знает, может там API какой-то есть?

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 01.10.2004 (Пт) 16:07

Просто найди её окно и пошли ей WM_CLOSE.
Изображение

mayhem
Новичок
Новичок
Аватара пользователя
 
Сообщения: 49
Зарегистрирован: 26.07.2004 (Пн) 14:02
Откуда: kiev

Сообщение mayhem » 01.10.2004 (Пт) 16:11

а где искать? (да! я тупой!!)

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 01.10.2004 (Пт) 16:51

среди top-level окон, с классом Shell_TrayWnd
Изображение

ahill
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 29.09.2004 (Ср) 15:16

Сообщение ahill » 01.10.2004 (Пт) 16:53

используй FindWindow. только класс окна я не помню :)

GM
programador
programador
 
Сообщения: 1427
Зарегистрирован: 24.06.2003 (Вт) 15:56
Откуда: 194.67.52.100

Сообщение GM » 02.10.2004 (Сб) 7:22

Вот так:
Код: Выделить всё
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub cmdShow_Click()
Call ShowWindow(FindWindow("Shell_TrayWnd", vbNullString), 1)
End Sub
Private Sub cmdHide_Click()
Call ShowWindow(FindWindow("Shell_TrayWnd", vbNullString), 0)
End Sub
الفيجوال بيسك الرابح

mayhem
Новичок
Новичок
Аватара пользователя
 
Сообщения: 49
Зарегистрирован: 26.07.2004 (Пн) 14:02
Откуда: kiev

Сообщение mayhem » 02.10.2004 (Сб) 11:57

спасибо


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 2

    TopList