<DllImport("aygshell.dll")> _
Friend Shared Function SHFullScreen(ByVal hWnd As IntPtr, ByVal dwState As Integer) As Boolean
End Function
Const SHFS_SHOWTASKBAR = &H1 '任务栏
Const SHFS_HIDETASKBAR = &H2
Const SHFS_SHOWSIPBUTTON = &H4 '输入法
Const SHFS_HIDESIPBUTTON = &H8
Const SHFS_SHOWSTARTICON = &H10 '开始菜单栏
Const SHFS_HIDESTARTICON = &H20
Private Function FullScreen(ByVal hWnd As IntPtr, ByVal IsFull As Boolean) As Boolean
Dim dwState As Integer
dwState = 0
If IsFull Then
dwState = SHFS_HIDETASKBAR Or SHFS_HIDESIPBUTTON Or SHFS_HIDESTARTICON
Else
dwState = SHFS_SHOWTASKBAR Or SHFS_SHOWSIPBUTTON Or SHFS_SHOWSTARTICON
End If
FullScreen = SHFullScreen(hWnd, dwState)
End Function
转载于:https://blog.51cto.com/igump/678233