Модальность

[learnet]

Возможно ли окну приделать системную модальность

Код: Выделить всё

vbSystemModal

Если это так зовется

[Arcanoid]

While True
Form.SetFocus
Wend

[learnet]

и что с этим делать, непонимаю!

[kirrun]

Arcanoid

Сам-то понял что сказал? Представь себе загрузку процессора!

[Alexander N. Samarin]

По-моему у формы есть ивент LostFocus

[Antonariy]

SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

[kirrun]

По-моему у формы есть ивент LostFocus

Неа. Не то.

[kirrun]

SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

Это что за бред?

[Alexander N. Samarin]

Так что же нужно? Поверх всех окон, что ли???

[Antonariy]

2 kirrun: Учи матчасть

[learnet]

Нет идей, оч.жаль

[kirrun]

2 kirrun: Учи матчасть

А ты проверь работает ли?

[FaKk2]

kirrun
Работает. Вот полный пример:

Код: Выделить всё


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()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Set the window position to topmost
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub


[ANDLL]

Должно работать. Неужто не работает

P.S.:SystemModal можно реализовать только по принципу, сказанному Arcanoid, только поместить SetFocus надо в таймер, а не то программа просто не будет реагировать на события.

[kirrun]

Неа. Не работает...

[FaKk2]

kirrun
К сожалению мой магический шарик, не телепат...

[learnet]

Вон там слева написано новичек!! Эт правда
Не понимаю.
с API совсем никак

Теперь цель!!!
есть два окна 1 и 2
С 1 открывается 2
Нужно чтоб 1 окно видеть можно было, но пока со 2 не разберешся доступа к нему небыло

[learnet]

Хотя окну ведь можно Enabled = false сделать наверно будет работать
Простите за глупый вопрос

[FaKk2]

learnet

Код: Выделить всё

Form2.Show vbModal

[learnet]

А как сделать чтоб у пользователя небыло доступа ко всем окнам кроме данного, возможно?

[FaKk2]

learnet
Я понимаю, что ты новичек, но сходи по ссылке в моей подписи, и почитай. А пока мой ответ, возможно.

[learnet]

Ок, претензия ясна
очень полезное чтиво
впредь попытаюсь придерживаться.

P.S Я не программист, я приборист
P.P.S Зачем вообще отвечать на вопрос если нет времени???

[FaKk2]

learnet
Чтоб впредь таких вопросов не было

Что бы заблокировать все окна в системе, тебе нужно опуститься до уровня системы. Один из возможных способов это внедрить свою библиотеку написанную на С/С++, что то вроде глобального хука.

Но возможно, есть менее болезненые способы.

[ANDLL]

Внедрить свою библиотеку Это как? Существует более безболезненный способ, это как раз то, что писал Arcanoid, с моими поправками. И на который даже никто внимания не обратил

[FaKk2]

ANDLL

1) Хук, он же Ловушка, он же Hook. Для установки есть API SetWindowsHookEx, для того чтобы поставить ловушку на уровне системы, нужно ее оформить в виде динамически подгружаемой библиотеки (DLL).
2) Написать DLL стандартными средствами VB нельзя, посему надо либо немного извратиться. Либо оформить ее на C++, например.
3) Когда поставишь ловушку на уровне системы, то сможешь ловить все сообщения посылаемые системой всем приложениям.

Еще вопросы?