CLR: .Net / Mono / Boo / Otros CLR > VB .NET
[Utilidad] Cambiar Resolucion de Pantalla
Anónimo:
Saludos...
Muchas veces me han preguntado como se puede cambiar la resolucion de la pantalla, debido a que asi se facilita ajustar la resolucion del usuario en caso de que sea distinta a la de la maquina en donde se desarrollo el Programa, causando una serie de incomodidades.
Pues bueno es bastante sencillo y va asi:
Primero agregamos una referencia a nuestro proyecto: El Com DirectX7 for Visual Basic Type Library.
Una vez hecho eso solo nos queda agregar a un evento click estas pequeñas lineas:
Private Direct As New DxVBLib.DirectX7
Private DirectD As DxVBLib.DirectDraw7
Private ScreenWith, ScreenHight As Integer
'Parametro de Resolucion Deseados
ScreenWith = 1024
ScreenHight = 768
DirectD = Direct.DirectDrawCreate("")
DirectD.SetDisplayMode(ScreenWith, ScreenHight, 0, 0, DxVBLib.CONST_DDSDMFLAGS.DDSDM_DEFAULT)
Bueno eso es todo, recuerden que la resolucion definida por nosotros solo funcionara mientras nuestro programa este en funcion, una vez cerrada la aplicacion, windows restaurara la configuracion que tenia antes del cambio.
No deben hacerlo en un evento FormLoad ya que no funcionara, pueden hacerlo agregando un nuevo modulo o clase y despues llamarlo desde el form de inicio o si tiene su programa un splash screen llamarlo desde alli.
Espero les Funcione.
Autor: Kenyie Araya Ramos
Anónimo:
Hola, tengo una página aspx, y en un archivo .vb tengo el codigo que ofreces en un modulo, pero como llamo desde mi pagina aspx, a esta función y que funcione.
Muchas gracias
Anónimo:
Hola.
El codigo funciona de la leche, pero el problema que tengo es que cuando se cambia la resolucion de 800x600 a 1024x768 no se ven bien los formularios, sin embargo cuando es una resolucion mayor a 1024x768 y se cambia a esta no hay problemas.
Gracias
unreal:
Saludos, Bien mis disculpas por que tengo tiempo de no pasar por aca hasta que me llego un correo de un nuevo comentario el dia de hoy y me entere que mi cuenta habia sido borrada, pero como sea aca te dejo algo que se me ocurrio de repente para aplicarlo en sitios aspx, como explico fue algo muy rapido solo para el ejemplo, ustedes puede perfeccionarlo como gusten.
Primero agregamos la referencia del Iterop.DxVBlib.dll.
Segundo paso es crear una clase llamada pantalla:
mports Microsoft.VisualBasic
Public Class pantalla
Public Direct As New DxVBLib.DirectX7
Public DirectD As DxVBLib.DirectDraw7
Public ScreenWith As Integer
Public ScreenHight As Integer
End Class
Por ultimo en el global.asax del sitio cargamos nuestra clase con las caracteristicas para que se ejecute en el inicio de la aplicacion:
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
Dim pantalla As New pantalla
pantalla.ScreenWith = 1024
pantalla.ScreenHight = 768
pantalla.DirectD = pantalla.Direct.DirectDrawCreate("")
pantalla.DirectD.SetDisplayMode(pantalla.ScreenWith, pantalla.ScreenHight, 0, 0, DxVBLib.CONST_DDSDMFLAGS.DDSDM_DEFAULT)
End Sub
Bueno espero les sirva de algo, hice unas pruebas y funciona correctamente.
Saludos...
Kenyie Araya Ramos...
unreal:
Bien la verdad, aun no entiendo eso de que los forms no se visualizan bien, fijate que no estes usando letras muy chicas, ya que a la hora de ajustar la resolucion aun se veran mas pequeñas, tambien asegurate de asignar un posicionamiento correcton de los formularios.
si no puedes enviarme una parte de tus forms donde implementas el cambio de resolucion a mi correo kenyie_a@hotmail.com
Saludos....
Kenyie Araya Ramos...
Navegación
[#] Página Siguiente
Ir a la versión completa