Cómo instalar una forma de tamaño grande con VB6

Windows Forms es la tecnología de cliente inteligente para .NET Framework. Es una selección de bibliotecas administradas que simplifican las tareas de aplicación genéricos, tales como la lectura y la escritura al sistema de archivos. En Visual Studio, puede crear formularios de Windows aplicaciones basadas en la información que muestran, aceptar la entrada y comunicarse con equipos remotos. El formulario de Windows es una interfaz visual donde se puede mostrar información a los usuarios. Puede agregar controles tales como botones o campos de texto o cuadrícula de datos en el formulario. Creación de un formulario de Windows o la adición de una nueva forma de ventanas para un proyecto es bastante sencillo. En algunas circunstancias, puede que tenga que cambiar el tamaño de una forma para adaptarse a una gran pantalla.

Instrucciones

1 Haga clic en "Inicio", "Todos los programas" y "Visual Studio" para entrar en el entorno de desarrollo integrado. Seleccione "Visual Basic" como el lenguaje de programación y el formulario de solicitud de Windows como el modo de aplicación.

2 Haga doble clic en el Form1.vb para entrar en la interfaz de código. Crear un nuevo módulo denominado GetFormSize.

3 Introducir el código en el módulo recién creado. Definir hDC, IngRetVal, screenX, screenY, pixx y Pixy que va a utilizar en la programación:

Dim hDc As Long, lngRetVal As Long
Dim ScreenX As Variant, ScreenY As Variant
Dim PixX As Variant, PixY As Variant

4 Utilice GetDeviceCaps functon obtener el tamaño de la pantalla en píxeles para X e Y:

ScreenX = GetDeviceCaps (HDC, HORZRES)
ScreenY = GetDeviceCaps (HDC, VERTRES)

La función GetDeviceCaps recupera la información relacionada con el dispositivo para el dispositivo determinado, como la pantalla del monitor. Tiene dos argumentos HDC y HORZSIZE que representa la anchura de la pantalla física.

5 Introduzca GetDeviceCaps de función para calcular la conversión de píxeles para X e Y:

Pixx = GetDeviceCaps (HDC, LOGPIXELSX)
Pixy = GetDeviceCaps (HDC, LOGPIXELSY)
Convertir los píxeles a través de puntos de código:

x = (ScreenX / PixX) * 72

y = (screenY / Pixy) * 72

6 Introducir código entre entre Sub y End Sub para cambiar el tamaño de la forma sobre la base de los píxeles calculados para X e Y:

Dim x As Variant, y As Variant
GetFormSize x, y
Load Form1
With Form1
.Top = 0
.Left = 0
.Width = x
.Height = y
End With
Form1.Show