Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / всплывающее окно / 5 сообщений из 5, страница 1 из 1
28.03.2006, 07:54:10
    #33628590
Диам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
всплывающее окно
Здравтствуйте, как сделать всплывающее окно (не модальное, когда останавливается выполнение кода, а всплывающее, как в VBA frm.popup=true)?
...
Рейтинг: 0 / 0
28.03.2006, 08:23:33
    #33628611
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
всплывающее окно
Form2.Show VBNormal, Me
...
Рейтинг: 0 / 0
01.04.2006, 20:14:32
    #33639280
Avtopic
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
всплывающее окно
Извиняюсь, а что такое frm.popup=true ?
...
Рейтинг: 0 / 0
03.04.2006, 08:55:43
    #33640162
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
всплывающее окно
Кажется там это - Topmost
...
Рейтинг: 0 / 0
03.04.2006, 10:35:55
    #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
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / всплывающее окно / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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