DOCUMENT:Q265451 19-JAN-2001 [vbwin] TITLE :HOWTO: Run an eVB Application Full Screen on a Pocket PC PRODUCT :Microsoft Visual Basic for Windows PROD/VER::3.0 OPER/SYS: KEYWORDS:kbGrpDSVB kbDSupport kbVBM300 kbOSWinCEPsPC200 kbOSWinCE300 ====================================================================== ------------------------------------------------------------------------------- The information in this article applies to: - Microsoft eMbedded Visual Basic, version 3.0, on platform(s): - Microsoft Windows CE Platform SDK for Pocket PC ------------------------------------------------------------------------------- SUMMARY ======= This article illustrates how to programmatically manipulate the various screen objects on a Pocket PC device by using the SHFullScreen API function from an eMbedded Visual Basic (eVB) application. It is popular for applications that target Windows CE to use as much of the screen of the smaller Palm-sized devices as possible. The new user interface (UI) of the Pocket PC platform requires additional work for an application to use the full screen area. MORE INFORMATION ================ To understand the comments in the code examples in the article, the new Pocket PC UI terms are described as follows: - The taskbar is located at the top of the screen, it displays application captions, and gives the user the ability to start applications. - The command bar, also known as the menu bar, is located at the bottom of the screen. - The soft input panel (SIP) button is located on the command bar, to the lower-right corner of the screen. To create a window that uses as much of the screen as possible, the application calls SHFullScreen to hide these elements. Step-by-Step Example -------------------- 1. Start eMbedded Visual Basic, and create a new Windows CE for the Pocket PC project. 2. Add four CommandButton controls to Form1. 3. Paste the following code into Form1: Option Explicit Const SW_HIDE = 0 Const SW_SHOWNORMAL = 1 Const SHFS_SHOWTASKBAR = &H1 Const SHFS_HIDETASKBAR = &H2 Const SHFS_SHOWSIPBUTTON = &H4 Const SHFS_HIDESIPBUTTON = &H8 Const SHFS_SHOWSTARTICON = &H10 Const SHFS_HIDESTARTICON = &H20 Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 Const SWP_SHOWWINDOW = &H40 Const SM_CXSCREEN = &H0 Const SM_CYSCREEN = &H1 Const HHTASKBARHEIGHT = 26 Dim bShowMenu As Boolean Dim bShowStart As Boolean Dim bShowTaskbar As Boolean Dim bFullScreen As Boolean Dim lHwnd As Long Declare Function GetSystemMetrics Lib "Coredll" ( _ ByVal nIndex As Long) As Long Declare Function SHFullScreen Lib "aygshell" ( _ ByVal hwndRequester As Long, _ ByVal dwState As Long) As Boolean Declare Function MoveWindow Lib "Coredll" ( _ ByVal hwnd As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long, _ ByVal bRepaint As Long) As Long Declare Function SetForegroundWindow Lib "Coredll" ( _ ByVal hwnd As Long) As Boolean Declare Function GetLastError Lib "Coredll" () As Long Declare Function ShowWindow Lib "Coredll" ( _ ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Declare Function FindWindow Lib "Coredll" Alias "FindWindowW" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Sub Form_Load() bShowMenu = True bShowStart = True bShowTaskbar = True bFullScreen = False lHwnd = Form1.hwnd Command1.Caption = "Full Screen" Command2.Caption = "Hide Menu" Command3.Caption = "Hide Start" Command4.Caption = "Hide Taskbar" Command4.Visible = False Command1.Move 120, 480, 1335, 495 Command2.Move 120, 1080, 1335, 495 Command3.Move 120, 1680, 1335, 495 Command4.Move 120, 2280, 1335, 495 End Sub Private Sub Form_OKClick() App.End End Sub Private Sub Command1_Click() Dim lret If bFullScreen Then lret = FindWindow("menu_worker", "") If lret <> 0 Then 'window found ShowWindow lret, SW_SHOWNORMAL End If lret = SetForegroundWindow(Me.hwnd) lret = MoveWindow(Me.hwnd, 0, HHTASKBARHEIGHT, _ GetSystemMetrics(SM_CXSCREEN), _ GetSystemMetrics(SM_CYSCREEN), True) Command1.Caption = "Full Screen" Else 'show form full screen lret = FindWindow("menu_worker", "") If lret <> 0 Then 'window found ShowWindow lret, SW_HIDE End If lret = SetForegroundWindow(Me.hwnd) lret = MoveWindow(Me.hwnd, 0, 0, _ GetSystemMetrics(SM_CXSCREEN), _ GetSystemMetrics(SM_CYSCREEN) + HHTASKBARHEIGHT, 0) Command1.Caption = "Not Full Screen" End If bFullScreen = Not bFullScreen Command4.Visible = bFullScreen End Sub Private Sub Command2_Click() Dim lret lret = SetForegroundWindow(lHwnd) If bShowMenu Then lret = SHFullScreen(lHwnd, SHFS_HIDESIPBUTTON) Command2.Caption = "Show Menu" Else lret = SHFullScreen(lHwnd, SHFS_SHOWSIPBUTTON) Command2.Caption = "Hide Menu" End If bShowMenu = Not bShowMenu End Sub Private Sub Command3_Click() Dim lret lret = SetForegroundWindow(lHwnd) If bShowStart Then lret = SHFullScreen(lHwnd, SHFS_HIDESTARTICON) Command3.Caption = "Show Start" Else lret = SHFullScreen(lHwnd, SHFS_SHOWSTARTICON) Command3.Caption = "Hide Start" End If bShowStart = Not bShowStart End Sub Private Sub Command4_Click() Dim lret lret = SetForegroundWindow(lHwnd) If bShowTaskbar Then lret = SHFullScreen(lHwnd, SHFS_HIDETASKBAR) Command4.Caption = "Show TaskBar" Else lret = SHFullScreen(lHwnd, SHFS_SHOWTASKBAR) Command4.Caption = "Hide TaskBar" End If bShowTaskbar = Not bShowTaskbar End Sub 4. Run the project and test the functionality by clicking the CommandButtons. REFERENCES ========== For additional information, click the article number below to view the article in the Microsoft Knowledge Base: Q266244 HOWTO: Create Full-Screen Applications for the Pocket PC Additional query words: ====================================================================== Keywords : kbGrpDSVB kbDSupport kbVBM300 kbOSWinCEPsPC200 kbOSWinCE300 Technology : kbVBSearch kbAudDeveloper kbZNotKeyword2 kbVBeMbSearch Version : :3.0 Issue type : kbhowto ============================================================================= THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY. Copyright Microsoft Corporation 2001.