Fullscreen – Visual Basic – Fórum – Programujte.com

Ahoj nevíte někdo prosím jak udělat fullscreen?kdyby nekdo byl ochotny tak předem díky...

No přes API funkci: EnumDisplaySettings, ale příklad je moc dlouhej a nechce se mi ho sem kopírovat tak si zkus sehnat program API Guide a tam je hafo příkladů k různým apinám.

Nevim jestli je to přesně to co chceš. tady je ukázka jak udělat fullscreen u okna bez okrajů (BorderStyle = 0)
Je to z upraveného api-guide ... takže je možná že je tu ještě něco navíc... ale to si kdyžtak upravíš už :)
------------------------------------------------------------
Do modulu:
------------------------------------------------------------
Option Explicit

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Type MONITORINFO
cbSize As Long
rcMonitor As RECT
rcWork As RECT
dwFlags As Long
End Type

Public Declare Function GetMonitorInfo Lib "user32.dll" Alias "GetMonitorInfoA" (ByVal hMonitor As Long, ByRef lpmi As MONITORINFO) As Long
Public Declare Function EnumDisplayMonitors Lib "user32.dll" (ByVal hdc As Long, ByRef lprcClip As Any, ByVal lpfnEnum As Long, ByVal dwData As Long) As Long
Public Rozliseni As String
Public xPix As Long
Public yPix As Long

Public Function MonitorEnumProc(ByVal hMonitor As Long, ByVal hdcMonitor As Long, lprcMonitor As RECT, ByVal dwData As Long) As Long
Dim MI As MONITORINFO, R As RECT

'initialize the MONITORINFO structure
MI.cbSize = Len(MI)
'Get the monitor information of the specified monitor
GetMonitorInfo hMonitor, MI
'write some information on teh debug window
Rozliseni = CStr(MI.rcMonitor.Right - MI.rcMonitor.Left) + "x" + CStr(MI.rcMonitor.Bottom - MI.rcMonitor.Top)
xPix = MI.rcMonitor.Right - MI.rcMonitor.Left
yPix = MI.rcMonitor.Bottom - MI.rcMonitor.Top
End Function


------------------------------------------------------------
Do Tlačítka Command1 na formuláři Form1
------------------------------------------------------------
Private Sub Command1_Click()
Dim WidthPixels As Long

EnumDisplayMonitors ByVal 0&, ByVal 0&, AddressOf MonitorEnumProc, ByVal 0&
Print "Rozlišení vašeho monitoru je: " & Rozliseni

With Form1
.Top = 0
.Left = 0
.Width = xPix * Screen.TwipsPerPixelX
.Height = yPix * Screen.TwipsPerPixelY
End With

End Sub

ak si dobre spominam, tak mi to islo, ked som dal na form - vlastnost STARTUPPOSITION="MAXIMIZED" a skryl som hornu listu.

Dobrý den, zdroj funguje v klasickém form1 a v MDIForm1 už ne jen se roztáhne jako kdyby se maximalizovalo okno. Nevíte jak přinutit MDIForm1 aby se roztáhlo do plnohodnotného fullscreenu. Moc děkuji za odpovědi.

To Radek :
Nastav: WindowsState = Maximized, ControlBox = false a Text musí být prázdné. Když dáš pak ještě na TopMost na true, tak to bude uplně na fullscreen a pořád.