Как я заставляю приложение WinForms пойти Полный экран
Во-первых, это не код изображения, это подпись файла, еще не совсем понятно, какой именно. Кроме того, как ты получил это с картинки?
4 ответа
К основному вопросу следующее добьется цели (сокрытие панели задач)
private void Form1_Load(object sender, EventArgs e)
{
this.TopMost = true;
this.FormBorderStyle = FormBorderStyle.None;
this.WindowState = FormWindowState.Maximized;
}
, Но, интересно при свопинге тех последних двух строк, Панель задач остается видимой. Я думаю, что последовательностью этих действий будет трудно управлять с окном свойств.
И для menustrip-вопроса, попробуйте набор
MenuStrip1.Parent = Nothing
, когда в полноэкранном режиме, он должен будет затем исчезнуть.
И при выходе fullscreenmode, сброс menustrip1.parent к форме снова и menustrip будет нормален снова.
Я недавно подал заявку Mediaplayer, и я использовал вызовы API, чтобы удостовериться, что панель задач была скрыта, когда программа выполняла полный экран и затем восстановила панель задач, когда программа не была в полном экране или не сфокусировалась или вышлась.
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer
Sub HideTrayBar()
Try
Dim tWnd As Integer = 0
Dim bWnd As Integer = 0
tWnd = FindWindow("Shell_TrayWnd", vbNullString)
bWnd = FindWindowEx(tWnd, bWnd, "BUTTON", vbNullString)
ShowWindow(tWnd, 0)
ShowWindow(bWnd, 0)
Catch ex As Exception
'Error hiding the taskbar, do what you want here..
End Try
End Sub
Sub ShowTraybar()
Try
Dim tWnd As Integer = 0
Dim bWnd As Integer = 0
tWnd = FindWindow("Shell_TrayWnd", vbNullString)
bWnd = FindWindowEx(tWnd, bWnd, "BUTTON", vbNullString)
ShowWindow(bWnd, 1)
ShowWindow(tWnd, 1)
Catch ex As Exception
'Error showing the taskbar, do what you want here..
End Try
End Sub
Необходимо установить окно, чтобы быть самыми верхними.