Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

9th
Сен

Возможно ли убрать заголовок и обводку вокруг UserForm?

Posted by Chas under Basic, Пост-обзор

Помогите пожалуйста.
Необходимо сделать программу с авторским дизайном
Имеется обычная пользовательская форма. Она будет замощена специальным рисунком с дизайном.
Смысл в том что вид ужасно портит само окно Windows. То есть строка заголовка (где кнопки свернуть,развернуть окно и закрыть). И обводка вокруг формы. Если видели интерфейс OS X то знаете, что там вокруг окна нет обводки.
Существует ли возможность избавиться от этого.

viter.alex

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_STYLE = (-16)

Private Const WS_BORDER As Long = &H800000

Private Const WS_CAPTION As Long = &HC00000
Public Sub ChangeWindow(f As UserForm)

  Dim hwnd As Long

  Dim retval As Long

  hwnd = FindWindow("ThunderDFrame", f.Caption)

  If hwnd <> 0 Then

    retval = SetWindowLong(hwnd, GWL_STYLE, GetWindowLong(hwnd, GWL_STYLE) And WS_BORDER)

  End If

  If retval = 0 Then MsgBox "Fail"

End Sub
Private Sub UserForm_Initialize()

  ChangeWindow Me

End Sub

Пост написан при поддержке Casada: Массажеры, и массажные кресла из Германии для Москвы и всей России.

Массаж как средство лечения известен уже не одну тысячу лет. До сих пор ученые не могут установить, где он появился и кого можно назвать изобретателем массажа. Но для людей, которым массаж помогает каждый день это не так уж и важно. Главное — что массаж лечит. Массаж активизирует функции организма, снимая усталость и различные напряжения.

тема на форуме