Это не действительно более кратко, но могло бы быть более гибким путем ( кредит ):
FOR /F "TOKENS=1* DELIMS= " %%A IN ('DATE/T') DO SET CDATE=%%B
FOR /F "TOKENS=1,2 eol=/ DELIMS=/ " %%A IN ('DATE/T') DO SET mm=%%B
FOR /F "TOKENS=1,2 DELIMS=/ eol=/" %%A IN ('echo %CDATE%') DO SET dd=%%B
FOR /F "TOKENS=2,3 DELIMS=/ " %%A IN ('echo %CDATE%') DO SET yyyy=%%B
SET date=%mm%%dd%%yyyy%
//Set fixed border
yourForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
//Set the state of your form to maximized
yourForm.WindowState = FormWindowState.Maximized
//Disable the minimize box and the maximize box
yourForm.MinimizeBox = False
yourForm.MaximizeBox = False
Установить стиль начала окна как развернутый. Затем скройте кнопки свертывания и разворачивания.
Чтобы пользователи не могли изменять размер, установите для FormBoderStyle значение Fixed3D или FixedDialog из окна свойств или из кода
frmYour.BorderStyle = System.WinForms.FormBorderStyle.Fixed3D
. Установите для свойства WindowState значение Maximized, установите для свойств MaximizeBox и MinimizeBox значение false.
Чтобы пользователь не мог перемещаться, переопределите WndProc
Protected Overrides Sub WndProc(ByRef m As Message)
Const WM_NCLBUTTONDOWN As Integer = 161
Const WM_SYSCOMMAND As Integer = 274
Const HTCAPTION As Integer = 2
Const SC_MOVE As Integer = 61456
If (m.Msg = WM_SYSCOMMAND) And (m.WParam.ToInt32() = SC_MOVE) Then
Return
End If
If (m.Msg = WM_NCLBUTTONDOWN) And (m.WParam.ToInt32() = HTCAPTION) Then
Return
End If
MyBase.WndProc(m)
End Sub
Вы можете удалить пользовательский интерфейс, чтобы управлять этим, с помощью:
frmYour.MinimizeBox = False
frmYour.MaximizeBox = False
Задайте для минимального и максимального размера формы одинаковые числа. Не отображать кнопки минимума и максимума.