Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 127
от 08.10.2005, 17:18

Администратор:Калашников О.А.
В рассылке:Подписчиков: 117, Экспертов: 15
В номере:Вопросов: 1, Ответов: 1


Вопрос № 27163: Здравствуйте уважаемые эксперты! У меня к вам несколько вопросов: 1.Как имея на форме Slider1 регулировать громкость (всей винды) и чтобы при нажатии на Command1 звук вообще отключался? 2.Как сделать что бы окно программы было поверх всех дру...

Вопрос № 27.163
Здравствуйте уважаемые эксперты! У меня к вам несколько вопросов:
1.Как имея на форме Slider1 регулировать громкость (всей винды) и чтобы при нажатии на Command1 звук вообще отключался?
2.Как сделать что бы окно программы было поверх всех других окон?
Отправлен: 03.10.2005, 17:16
Вопрос задал: Dushin Igor (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Залетин Виталий Викторович
Здравствуйте, Dushin Igor!

2. Функция SetWindowPos
ставит окно поверх других.

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40

Private Declare Sub 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)

Private Sub Form_Activate()
'Поставить окошко наверх
SetWindowPos Me.hWnd, _
HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOACTIVATE Or SWP_SHOWWINDOW Or _
SWP_NOMOVE Or SWP_NOSIZE
End Sub

1. Смотрите МСДН.
---------
Учиться никогда не поздно. Особенно программированию!
Ответ отправил: Залетин Виталий Викторович (статус: 4-ый класс)
Отправлен: 08.10.2005, 16:14


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.

Rambler's Top100 Яндекс


Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba
Архив рассылки
Отписаться
Вспомнить пароль

В избранное