kiosk.vb

清华大学出版社出版的 移动应用开发宝典 张大威（2008）的附书源代码

Public Module Kiosk

    Public Sub FullScreen(ByVal form As System.Windows.Forms.Form, ByVal startMenu As Boolean, ByVal taskbar As Boolean, ByVal sip As Boolean)

        Dim success As Boolean = SHFullScreen(form.Handle, IIf(startMenu, SHFS.HIDESTARTICON, SHFS.SHOWSTARTICON) Or IIf(sip, SHFS.HIDESIPBUTTON, SHFS.SHOWSIPBUTTON) Or IIf(taskbar, SHFS.HIDETASKBAR, SHFS.SHOWTASKBAR))
    End Sub


    <System.Runtime.InteropServices.DllImport("aygshell.dll", SetLastError:=True)> _
    Private Function SHFullScreen(ByVal hwndRequester As IntPtr, ByVal dwState As SHFS) As Boolean
    End Function

    <Flags()> _
    Friend Enum SHFS
        SHOWTASKBAR = &H1
        HIDETASKBAR = &H2
        SHOWSIPBUTTON = &H4
        HIDESIPBUTTON = &H8
        SHOWSTARTICON = &H10
        HIDESTARTICON = &H20
    End Enum
End Module