Страница: 1 |
Ну так это просто: Const HWND_TOPMOST = -1 Const SWP_NOSIZE = &H1 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 Private Sub Form_Load() Страница: 1 |
Вопрос: Always on top
Добавлено: 11.01.03 15:08
Автор вопроса: Silent Bob | Web-сайт:
Как сделать чтобы прога была always on top.
Ответы
Всего ответов: 6
Номер ответа: 1
Автор ответа:
Иван
Администратор
ICQ: 147688925
Вопросов: 24
Ответов: 708
Web-сайт:
Профиль | | #1
Добавлено: 11.01.03 16:21
Номер ответа: 2
Автор ответа:
Андрей Щёкин [darxeth]
ICQ: 161560107
Вопросов: 9
Ответов: 52
Web-сайт:
Профиль | | #2
Добавлено: 11.01.03 16:53
Const SWP_NOMOVE = &H2
SetWindowPos YourForm.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOMOVE Or SWP_NOSIZE
End Sub
Номер ответа: 3
Автор ответа:
msv
Вопросов: 34
Ответов: 312
Web-сайт:
Профиль | | #3
Добавлено: 11.01.03 18:41
Посмотри в "Библиотеке кодов"
Номер ответа: 4
Автор ответа:
Shinobi
Вопросов: 1
Ответов: 2
Профиль | | #4
Добавлено: 24.10.06 18:06
А у меня почему-то пишет
Run-time error '424'
Object required
Номер ответа: 5
Автор ответа:
Sharp
Лидер форума
ICQ: 216865379
Вопросов: 106
Ответов: 9979
Web-сайт:
Профиль | | #5
Добавлено: 24.10.06 20:05
Наверно, ты не заменяешь YourForm на имя своей формы.
Номер ответа: 6
Автор ответа:
Shinobi
Вопросов: 1
Ответов: 2
Профиль | | #6
Добавлено: 25.10.06 00:22
Да, точно! Заработало! Спасибо!!!