Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Форма поверх всех Добавлено: 28.02.10 14:43  

Автор вопроса:  iprog | Web-сайт: usprogs.atheo-club.ru
Добрый день. Скажите пожалуйста, как в VB 6 форму разместить поверх всех остальных? Всё перерыл, где-то нашёл, но тот код не работал... Может, это зависит от операционной системы? Заранее спасибо.

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #1 Добавлено: 28.02.10 15:54
А почему тема в разделе .NET?
Пример и на этом сайте есть и точно рабочий.

Ответить

Номер ответа: 2
Автор ответа:
 Raider



Вопросов: 18
Ответов: 29
  Профиль | | #2 Добавлено: 28.02.10 23:21
В модуль:

 
  1.  
  2. 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
  3.  
  4. Public Const HWND_NOTOPMOST = -2
  5.  
  6. Public Const HWND_TOPMOST = -1
  7.  
  8. Public Const SWP_NOACTIVATE = &H10
  9.  
  10. Public Const SWP_NOMOVE = &H2
  11.  
  12. Public Const SWP_NOSIZE = &H1
  13.  
  14. Public Sub SetFormPos(frmHwnd As Long, TopPos As Boolean)
  15.  
  16. If TopPos Then
  17.  
  18. SetWindowPos frmHandl, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOSIZE Or SWP_NOMOVE
  19.  
  20. Else
  21.  
  22. SetWindowPos frmHandl, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
  23.  
  24. End If
  25.  
  26. End Sub


 

Пример вызова функции из формы

  1. SetFormPos Me.hwnd, True

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам