powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / всплывающее окно
5 сообщений из 5, страница 1 из 1
всплывающее окно
    #33628590
Диам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравтствуйте, как сделать всплывающее окно (не модальное, когда останавливается выполнение кода, а всплывающее, как в VBA frm.popup=true)?
...
Рейтинг: 0 / 0
всплывающее окно
    #33628611
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Form2.Show VBNormal, Me
...
Рейтинг: 0 / 0
всплывающее окно
    #33639280
Avtopic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Извиняюсь, а что такое frm.popup=true ?
...
Рейтинг: 0 / 0
всплывающее окно
    #33640162
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кажется там это - Topmost
...
Рейтинг: 0 / 0
всплывающее окно
    #33640413
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если из самой формы, в раздел деклараций

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Const HWND_TOP =  0 
Private Const HWND_TOPMOST = - 1 
Private Const HWND_NOTOPMOST = - 2 

Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOACTIVATE = &H10

Private 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

Где-нибудь в коде

Код: plaintext
SetWindowPos Me.hWnd, HWND_TOPMOST,  0 ,  0 ,  0 ,  0 , SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / всплывающее окно
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]