Приложение
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 2
• Страница 1 из 1
- WhiTe*DeviL
- Начинающий
- Сообщения: 23
- Зарегистрирован: 15.06.2003 (Вс) 18:42
Приложение
WhiTe*DeviL » 16.04.2004 (Пт) 19:15
Как сделать так, что бы приложение развернутое во весь экран нельзя было свернуть и оно всегда было активно?
- A.A.Z.
- Член-корреспондент академии VBStreets
- Сообщения: 3035
- Зарегистрирован: 30.06.2003 (Пн) 13:38
A.A.Z. » 16.04.2004 (Пт) 19:18
В свойствах формы поставь WindowState = 2 и MinButton = False; а чтобы сделать поверх всех -
- Код: Выделить всё
Private Declare Sub 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)
Private Sub Form_Load()
SetWindowPos Me.hWnd, -1, Me.Left / Screen.TwipsPerPixelX, Me.Top / Screen.TwipsPerPixelY, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY, &H10 Or &H40
End Sub
Нет меня больше
Сообщений: 2
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 13