Ребенок MDI формы поверх остальных детей? - VB
Формулировка задачи:
Такое сделать не получается именно с детьми МДИ формы. А с обычными формами все работает.
Решение задачи: «Ребенок MDI формы поверх остальных детей?»
textual
Листинг программы
Public Const HWND_TOP = 0 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOOWNERZORDER = &H200 Public Const SWP_NOACTIVATE = &H10 Public Declare Function 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) As Long Private Sub Form_Activate() SetWindowPos Form1.hwnd, HWND_TOP, x, y, X_Width, Y_Width, _ SWP_NOACTIVATE + SWP_NOOWNERZORDER end sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д