Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
0 / 0 / 0
Регистрация: 27.11.2006
Сообщений: 12

Как сделать, чтобы немодальная форма всегда была поверх других (даже если она не активна)?

27.11.2006, 04:46. Показов 2587. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Субж...

Недавно перешел с Дельфей на VB (вынужден был по работе)... Этот вопрос - мое первое разочарование в VB... Пожалуйста не дайте мне разочароваться окончательно...
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
27.11.2006, 04:46
Ответы с готовыми решениями:

Как сделать, чтобы некоторая вспомогательная форма была всегда над главной?
Как сделать, чтобы некоторая вспомогательная форма была всегда над главной? Т. е. это должно работать так: я щекаю по некоторым объектам на...

Как сделать форму, чтоб всегда была поверх Word ?
Делаю Addin для Word 2000. Должна открываться главная формочка. Как сделать так, чтоб она была немодальной, но всегда поверх самого...

Сделать так, что бы форма реагировала на нажатие клавиш даже если она не активна
Как заставить форму реагировать на нажатие клавиш, при том что она не активна (свернута). Ну например: форма свернута, я нажал на F2, а он...

4
layder_llf
28.11.2006, 03:34
Стандартными средствами - никак.
Через API. На FORM_LOAD

Visual Basic
1
2
3
   SetWindowPos Me.hwnd, -1, Me.Left / Screen.TwipsPerPixelX, _
    Me.Top / Screen.TwipsPerPixelY, Me.Width / Screen.TwipsPerPixelX, _
    Me.Height / Screen.TwipsPerPixelY, 1
Как ее декларировать - сам посмотри.
0 / 0 / 1
Регистрация: 05.11.2006
Сообщений: 133
28.11.2006, 16:28
Декларируем в модуле
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40
Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
 
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
Вставляем в форме
Visual Basic
1
2
3
4
5
6
7
Option Explicit
 
Private Sub Form_Load()
 
Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
 
End Sub
Заходи на сайт ''Азбука Visual Basic'' - http://www.cm.f2s.com - это как раз для тебя.

Удачи....)
0
0 / 0 / 0
Регистрация: 27.11.2006
Сообщений: 12
28.11.2006, 19:55  [ТС]
Спасибо!
0
asd
04.12.2006, 02:52
http://vbcity.com/vbcode/ru/code.asp?id=67
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
04.12.2006, 02:52
Помогаю со студенческими работами здесь

Тонкости верстки. Сделать так чтобы один блок всегда повторял высоту другого, даже если она явно не задана
У меня есть 3 блока. Один родительский, а другие два в нем. Нужно сделать так, чтобы высота блока-родителя зависела от первого блока...

Как сделать вьюшку, чтобы она была поверх любых приложений?
Например, как это сделано в ГеймХацкере. Нигде не могу нарыть. Говорят про AlertDialog, но это совсем не то, что мне нужно..

Как сделать, чтобы MainWindow было всегда поверх других окон?
Как сделать, чтобы MainWindow было всегда поверх других окон? Т.е. если например, после запуска программы формы MainWindow, запускаем...

Как сделать так, чтобы форма всегда была под фокусом
Как сделать так, чтобы форма всегда была под фокусом.

Как сделать так чтобы моя форма была поверх полноэкранных приложений (например, игр)
Пытаюсь написать программу (C# WPF) наподобие PlayClaw 5, чтобы поверх игры была информация о температурах железа и их загрузке, но не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru