Доброе время суток всем!
Есть программа, Main форма которой содержит только таймер и не отображается (hidden).
По таймеру программа проверяет всякие условия и по результатам проверки выводит (или не выводит) сообщение пользователю. Это сообщение очень желательно вывести модально для системы, или хотя бы поверх всех открытых окон. Я попробовал сделать форму для вывода этого сообщения, но она появляется не "наверху", а под другими окошками. Я пробовал для вывода сообщения использовать MsgBox (эта штука модальна, как нужно), но хитрые русские юзеры ловко обманывают программу - они не закрывают MsgBox, а просто перемещают его за пределы экрана и все - программа дальше не работает, а ждет ответа... В связи с этим вопрос к гуру:
Как же сделать, что бы форма открывалась "поверх" всех окон или как продолжить работу программы с незакрытым MsgBox? Или как программно закрыть этот MsgBox?
Всем заранее спасибо!

Цитата

BOOL SetWindowPos(          HWND hWnd,     HWND hWndInsertAfter,     int X,     int Y,     int cx,     int cy,     UINT uFlags );

Код

SetWindowPos Me.hWnd,-1,0,0,0,0, &H1 or &H2

Добавь в проект ещё одну форму, а на первую добавь кнопку. На событие кнопки кинь этот код.

Код

Private Sub Command1_Click()     Form2.Show vbModal End Sub

Думаю пояснять ничего не нужно.

Удачи.

А на зачем тебе Main-форма?
Сделай старт не формы, а Sub Main(). Будет проще контролировать действия юзера.
А еще по тому же таймеру можно сотворить
If Form.Visible=True Then Call RestorePositionAndModality()

Juffin, а зачем показывать MsgBox, если ты его программно собираешься закрыть?
Можешь с этого момента подробней?

Цитата(Mephisto @ 27.5.2005, 06:11)

...а зачем показывать MsgBox, если ты его программно собираешься закрыть?

2Mephisto: На самом деле я использую MsgBox только потому, что он модален и выскакивает "поверх всех".

Добавлено @ 13:23

Цитата(Akina @ 26.5.2005, 13:42)

А на зачем тебе Main-форма? Сделай старт не формы, а Sub Main().

2Akina: А как без формы работать с таймером? Мне нужно отслеживать произвольные промежутки времени (задается настройками).

Цитата(Mephisto @ 26.5.2005, 12:44)

Код SetWindowPos Me.hWnd,-1,0,0,0,0, &H1 or &H2

2Mephisto: А как в проекте VB объявить SetWindowPos?

Чтобы без формы использовать таймер надо юзать АПИ:
SetTimer and KillTimer

Есть специальная утилита для декларации функций АПИ. Лежит в пуске, возле самого ВБ в подкоталоге. Зайти в пуск, там найдешь. Нажмешь "загрузить файл", в разделе Declares наберешь SetWindowPos и запостишь это в раздел General. Короче, если никто не поможет, завтра напишу пример!

Код

Private Const HWND_TOPMOST As Long = -1 Private Declare Function SetWindowPos Lib "user32.dll" ( _      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 Sub Form_Load()  SetWindowPos Me.hwnd, HWND_TOPMOST, 100, 100, 100, 100, 0 End Sub

Всем огромное спасибо!!!
Именно SetWindowPos сделала все, что мне нужно!
А вызывал я ее вот так:

Код

SetWindowPos Form.hwnd, -1, 0, 0, 0, 0, 67

Именно так окно не меняет ни размера, ни положения и вытаскивается "на самый верх".
Еще раз всем спасибо.

Mephisto

Цитата

SetWindowPos Me.hWnd,-1,0,0,0,0, &H1 or &H2

это все правильно, а как во время выполнения сделать окно неактивным (в соответствии с z-порядком)?

efedron
http://forum.vingrad.ru/index.php?act=modu...icle_num=002864
Значения флагов - очевидны (для знающих аглицкий) или подробнее в MSDN.

Akina
в том-то все и дело, что если сказать swp_noactive, а окно до этого уже было активным, то фокус оно не отдает попробуй, может у тебя получится;)

Цитата(efedron @ 7.6.2005, 11:09)

если сказать swp_noactive, а окно до этого уже было активным, то фокус оно не отдает

Ну ты дал... а с какого перепугу оно должно отдать фокус? и куда? это надо делать явно, руками...