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
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