Full Screen application

G

Giuseppe

Hi guys, I'd like to develop a Full Screen WinCE5.0 application with VB .
NET. I found a tutorial for Pocket PC that uses this function but with CE
doesn't work. Thank you for your help.

Giuseppe

Public Function InitFullScreen() As Integer

'// Declare & Instatiate local variable

Dim Result As Integer = 0

Try

If SystemParametersInfo(SPI_GETWORKAREA, 0, rtDesktop, vbNullString) = 1
Then

'// Successful obtain the system working area (Desktop)

SetRect(rtNewDesktop, 0, 0, 240, 320)

End If

'// Find the Input panel window handle

hWndInputPanel = FindWindowW("SipWndClass", vbNullString)

'// Checking...

If hWndInputPanel.ToInt64 <> 0 Then

'// Get the original Input panel window size

GetWindowRect(hWndInputPanel, rtInputPanel)

End If

'// Find the SIP Button window handle

hWndSipButton = FindWindowW("MS_SIPBUTTON", vbNullString)

'// Checking...

If hWndSipButton.ToInt64 <> 0 Then

'// Get the original Input panel window size

GetWindowRect(hWndSipButton, rtSipButton)

End If

'// Find the Taskbar window handle

hWndTaskBar = FindWindowW("HHTaskBar", vbNullString)

'// Checking...

If hWndTaskBar.ToInt64 <> 0 Then

'// Get the original Input panel window size

GetWindowRect(hWndTaskBar, rtTaskBar)

End If

Catch ex As Exception

'// PUT YOUR ERROR LOG CODING HERE

'// Set return value

Result = 1

End Try

'// Return result code

Return Result

End Function
 
P

Paul G. Tobey [eMVP]

"Doesn't work" is useless information. What happens? Does the target
device have the AYGShell component built into it?

Paul T.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top