Problemas con visual basic y el tamaño del monitor

Alguine puede ayudarme
Hice un programa en visual basic pero lo hice en una computadora donde el monitor es muy grande, ahora que quiero verlo en otra computadora no me lo mustra completo
Que puedo hacer existe algun codigo para ajustarlo a una pantalla mas chica, y verlo completo

1 respuesta

Respuesta
2
Aca te dejo un ejemplo.
En este ejemplo se comprueba el tamaño del formulario activo después de un cambio en la resolución de la pantalla y se ajusta el tamaño del formulario si rebasa la zona visible de la pantalla. Para ejecutar este ejemplo, coloque un control SysInfo en un formulario. Pegue este código al evento DisplayChanged del control SysInfo. Ejecute el ejemplo y cambie la resolución de la pantalla.
<pre><code>Private Sub SysInfo1_DisplayChanged()
   If Screen.ActiveForm.Width > SysInfo1.WorkAreaWidth Then
       Screen.ActiveForm.Left = SysInfo1.WorkAreaLeft
       Screen.ActiveForm.Width = SysInfo1.WorkAreaWidth
   End If
   If Screen.ActiveForm.Height > SysInfo1<span class="cfe">.WorkAreaHeight</span> Then
       Screen.ActiveForm.Top = SysInfo1.WorkAreaTop
       Screen.ActiveForm.Height = SysInfo1<span class="cfe">.WorkAreaHeight</span>
   End If
End Sub
</code></pre>
<pre><code>Salu2.</code></pre>
Yo sabia como se usaba, asi que busque en la ayuda, pero pegue y copie el codigo del MSDN, por eso sale con el codigo HTML.
Seria asi:
Private Sub SysInfo1_DisplayChanged()
    If Screen.ActiveForm.Width > SysInfo1.WorkAreaWidth Then
        Screen.ActiveForm.Left = SysInfo1.WorkAreaLeft
        Screen.ActiveForm.Width = SysInfo1.WorkAreaWidth
    End If
    If Screen.ActiveForm.Height > SysInfo1.WorkAreaHeight Then
        Screen.ActiveForm.Top = SysInfo1.WorkAreaTop
        Screen.ActiveForm.Height = SysInfo1.WorkAreaHeight
    End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo controlo los cambios de resolución de pantalla para ajustar todos los formularios?

Me gustaría saber como puedo controlar los cambios de resolución de pantalla, es decir, si la resolución es 800x600, que todos los formularios estén proporcionados a esa resolución y así con todas las resoluciones.
1 respuesta

Programa en Visual Basic, adaptarlo a la resolución de la pantalla de otro ordenador

He diseñado un programa en vb6 mi pc tiene una resolución de 1024 x 768 el problema surge cuando abro el programa en otro procesador, con diferente resolución, es decir el userform no se adapta justo a la pantalla del otro ordenador. Mi pregunta es...
2 respuestas

Ajuste de controles a pantalla

Estoy haciendo una aplicación pero no logro hacer que al cambiar la resolución de pantalla en una o varias pc que tienen diferente resolución estos controles se ajusten a la pantalla por ejemplo a una de 800x600 que es la mínima y yo estoy haciendo...
4 respuestas

MSGBOX con "No volver a mostrar este mensaje."

Nuevamente con una consulta: Quisiera aplicar a un MSGBOX o hacer un formulario a modo de mensaje emergente donde incluya un chckbox con el texto "No volver a mostrar este mensaje". A la vez, necesitaría el código que de funcionalidad a este comando....
1 respuesta

Error loop sin do, visual basic 6

Tengo un problema con una parte del codigo del un formulario, que hace que me de error en el loop, dice que no tiene do, aun cuanto si lo tiene, si elimino el loop me da un error en el end while, tambien que no tiene el while, si elimino este lo da...
1 respuesta

Dos combobox sincronizados

Tengo dos combobox en un formulario y me gustaría que en todo momento tuviesen el mismo valor seleccionado, de manera que si se selecciona un ítem en el primero, ese mismo ítem aparece seleccionado en el segundo, y viceversa. Me interesa que no se...
1 respuesta

Mi formulario que simule un MsgBox real

He hecho un formulario que me muestra los mensajes de errores personalizados, y los muestro en diferentes diseños: color negrita, subrayado, etc.; lo que no se puede hacer con MsgBox del Visual Basic. Pero el problema está en que no detiene ningún...
2 respuestas

Activar formulario al pinchar en un rango de celdas

Tengo en Excel un rango de celdas cuyos valores pueden cambiar de tres maneras: AA, OA, NA. De acuerdo al valor que se opte en dicha celda deben abrirse tres formularios distintos. Estuve probando sin éxito algunas lineas de código como para arrancar...
2 respuestas

Bloquear la aplicación después de un cierto tiempo

Soy nuevo en esta página y quería ver si alguien me podría ayudar, resulta que estoy realizando una aplicación en VB 6.0 y me gustaría que cuando el programa este cargado y pasa un cierto tiempo por ejemplo unos 10 min. Sin que el usuario este...
2 respuestas

Introducir solo números ami calculadora en vb

Quisiera saber si me pueden ayudar en esto estoy haciendo una calculadora en visual basic 6.0 y no encuentro la forma de introducir los números que tengo en la calculadora por medio del teclado dela compu, osea intrucir solo nmeros desde ya
1 respuesta