Fullscreen без DirectX.

[Gogic]

Реально ли в рантайме перевести форму в фуллскрин режим без использования сторонних интерфейсов типа DirectX?

Код: Выделить всё

BorderStyle=0

Не работает.

Код: Выделить всё

ll_Width = GetSystemMetrics(SM_CXSCREEN)
ll_Height = GetSystemMetrics(SM_CYSCREEN)
Call SetWindowPos(Me.hwnd, HWND_TOP, 0, 0, ll_Width, ll_Height, SWP_SHOWWINDOW)

Не работает.

Надо просто порперти формы Left Height Top и Width поменять так чтобы заголовок и границы оказались за переделами экрана.

Изврат. нашел в поиске по форуму.

[Gogic]

Точнее, нужен даже не фуллскрин, а возможность программно убирать заголовок окна...

[MIT]

Может поможет.

[Gogic]

Не поможет. Это дотнет, нужен шестой.


Можно как-то через Setwindowlong, но я не знаю, как в точности (убрать титлбар).
Если у кого есть, просьба поделиться...

[Mikle]

Gogic
А показать другую форму вместо этой?

[MIT]

Не поможет. Это дотнет, нужен шестой.

Если на минутку включить мозг, то сразу становиться понятно, что два необходимых из трёх предложенных свойств, а именно WindowState и FormBorderStyle есть даже в шестой студии.

[Gogic]

Если на минутку запустить шестую студию, то можно увидеть, что BorderStyle формы не меняется в Runtime.
См. начало топа.

[Gogic]

http://www.roman.by/r-88942.html

Тут пример на C++, придется переводить на VB.

[Alec]

Можно как-то через Setwindowlong, но я не знаю, как в точности (убрать титлбар).

Код: Выделить всё

Const WS_CAPTION = &HC00000
Call SetWindowLong(Form1.hwnd, GWL_STYLE, GetWindowLong(Form1.hwnd, GWL_STYLE) And Not WS_CAPTION)


[MIT]

Если на минутку запустить шестую студию, то можно увидеть, что BorderStyle формы не меняется в Runtime.

У меня всё замечательно меняется, что я делаю не так?

Код: Выделить всё

Private Sub Form_Load()
Me.BorderStyle = 0
Me.Caption = Me.Caption
Me.WindowState = 2
End Sub

[Mikle]

Код: Выделить всё

Me.Caption = Me.Caption

Это всё меняет...

[Gogic]

Это всё меняет...

И правда...
Объясните, почему?

P.S. Уже до этого сделал вот так:

Код: Выделить всё

Const WS_CAPTION = &HC00000
Call SetWindowLong(Form1.hwnd, GWL_STYLE, GetWindowLong(Form1.hwnd, GWL_STYLE) And Not WS_CAPTION)