miércoles, septiembre 05, 2007

Pantalla Completa CF.NET

Pantalla Completa CF.NET

Debemos modificar algunas propiedades del Form:

FormBorderStyle = None
Size = 240, 320
WindowsState = Normal
ControlBox = False
Maximeize = False
Minimize = False

Los Imports a utilizar en el modulo en donde se coloquen las declaraciones son los siguientes:

System.Runtime.InteropServices

Añadir las siguientes declaraciones en un modulo:

Añadir este evento de la forma al codigo:

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
' ---------------------------------------------------
' Esto para FullScreen
Me.Capture = True
Dim hWnd As IntPtr = GetCapture()
Me.Capture = False
SHFullScreen(hWnd, 2)
SetWindowPos(hWnd, IntPtr.Zero, 0, 0, 240, 320, 4)
End Sub
'API Declarations to FullScreen
Declare Function GetCapture Lib "coredll.dll" () As IntPtr
Declare Function SHFullScreen Lib "aygshell.dll" (ByVal hWnd As IntPtr, ByVal state As Integer) As Boolean
Declare Function SetWindowPos Lib "coredll.dll" (ByVal hWnd As IntPtr, _
ByVal hWndInsertAfter As IntPtr, ByVal x As Integer, _
ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, _
ByVal flags As Integer) As Boolean
Publicar un comentario