Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Форма пов...

Тема: Форма поверх рабочего стола (вне окна Access 2000)

15.06.2007 21:01:55

Eugene

7 сообщения

Тема: Форма поверх рабочего стола (вне окна Access 2000)

Подскажите пожалуста как можно открыть форму поверх рабочего стола вне окна Access. И убрать из формы кнопки "свернуть" и "развернуть на весь экран" оставить только "закрыть".
Спасибо.

P.S. Общий раздел по формам
Автор: Eugene от 31.01.2002 8:27:18 Источник ...

15.06.2007 21:01:55

Sergey

3 сообщения

Очень просто

Создай модуль
ption Compare Database
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 Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
Option Explicit

Public Function window_on()
Dim HWND_TOPMOST, SWP_SHOWWINDOW
SetWindowPos Application.hWndAccessApp, HWND_TOPMOST, -30, -30, 0, 0, SWP_SHOWWINDOW
End Function
Public Function window_off()
Dim HWND_TOPMOST, SWP_NOACTIVATE, SWP_SHOWWINDOW
SetWindowPos Application.hWndAccessApp, HWND_TOPMOST, 0, 0, 1200, 1200, SWP_SHOWWINDOW
End Function

А в форме пропиши:
Private Sub Form_Open(Cancel As Integer)
window_on
End Sub
Private Sub Form_Close()
window_off
End Sub

Естественно, в свойствах формы надо проставить:
ВСПЛЫВАЮЩЕЕ ОКНО : ДА
Кнопка оконного меню : Да
Кнопки размеров окна : нет
Кнопка закрытия: да

P.S. Общий раздел по формам
Автор: Sergey от 31.01.2002 8:47:18 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Форма пов...

Поиск

Список форумов

Начало | Forums