quitar barra

11/05/2004 - 12:05 por Antonio Belmonte | Informe spam
Utilizamos una aplicación terminal server.
¿Sería posible ocultar la barra inferior (donde aparece el teclado) y la
barra azul superior (la de desplazar/ cerrar la ventana?
Gracias

Preguntas similare

Leer las respuestas

#1 Julio Meneses [MS Mobile Devices MVP]
11/05/2004 - 16:43 | Informe spam
Hola Antonio,

Utilizamos una aplicación terminal server.
¿Sería posible ocultar la barra inferior (donde aparece el teclado) y la
barra azul superior (la de desplazar/ cerrar la ventana?
Gracias



Si te refieres a las barras superior e inferior de la interfaz del sistema
operativo, no, no es posible ocultarlas.

Un saludo!


Julio Meneses
Microsoft MVP Mobile Devices - http://www.pocketpc.com
Surf the web with your Pocket PC - http://www.piefriendly.com
Pocket PC and SmartPhone speak Spanish! - http://www.mipcdebolsillo.com
Spanish Pocket PC User Group
http://www.microsoft.com/mobile/poc...groups.asp




Respuesta Responder a este mensaje
#2 Abulafia
01/06/2004 - 20:16 | Informe spam
Bueno, hay que usar apis de windows. De hecho, lo que se hace es ocultar
esas barras y luego redimensionar el formulario.
Const SHFS_SHOWTASKBAR = &H1 'Muestra la barra de tareas

Const SHFS_HIDETASKBAR = &H2 'Esconde la barra de tareas

Const SHFS_SHOWSIPBUTTON = &H4 'Muestra el icono de teclado

Const SHFS_HIDESIPBUTTON = &H8 'Esconde el icono de teclado

Const SHFS_SHOWSTARTICON = &H10 'Muestra el icono de inicio

Const SHFS_HIDESTARTICON = &H20 'Esconde el icono de inicio

Const SM_CXSCREEN = &H0

Const SM_CYSCREEN = &H1

Const HHTASKBARHEIGHT = 26



Declare Function SHFullScreen Lib "aygshell" ( ByVal hwndRequester As Long,
ByVal dwState As Long) As Boolean

Declare Function GetSystemMetrics Lib "Coredll" ( ByVal nIndex As Long) As
Long

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

Para esconder el Sip panel (el icono de teclado):
==y luego se usa así:
lHwnd = Form1.hwnd

variableDeRetorno= SHFullScreen(lHwnd, SHFS_HIDESIPBUTTON)


Para esconder el icono de Start ( Inicio):
variableDeRetorno= SHFullScreen(lHwnd, SHFS_HIDESTARTICON)



Para esconder el icono de Start ( Inicio):
variableDeRetorno= SHFullScreen(lHwnd, SHFS_SHOWTASKBAR)



Para conseguir el efecto full screen (pantalla completa)
valorDeRetorno= SetForegroundWindow(Me.hwnd)

valorDeRetorno= MoveWindow(Me.hwnd, 0, HHTASKBARHEIGHT,
GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN), True)




MÁS INFORMACIÓN:

http://www.todopocketpc.com/foro/showthread.php?s¸44726186d520a15538140f4adc54a1&p4064#post134064

fíjate en el comentario de Ctitanic
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida