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

Windows Forms es la tecnología de cliente inteligente para el NET Framework . . Se trata de una selección de bibliotecas administradas que simplifican las tareas de aplicaciones genéricas como la lectura y la escritura en el sistema de archivos . En Visual Studio , puede crear aplicaciones basadas en formularios Windows Forms que muestran información, aceptar la entrada y comunicarse con equipos remotos. El formulario de Windows es una interfaz visual donde se puede mostrar la información a los usuarios. Puede agregar controles tales como botones o campos de texto o de cuadrícula de datos al 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 lenguaje de programación y el Formulario de Aplicación para Windows como el modo de aplicación.
2

doble clic en el Form1.vb para entrar en la interfaz de código. Cree un nuevo módulo llamado GetFormSize .
3

Introduzca 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 Como LongDim ScreenX As Variant , screenY Como VariantDim Pixx As Variant , pixy As Variant
página 4

Uso GetDeviceCaps functon obtener el tamaño de la pantalla en píxeles de X e y:

ScreenX = GetDeviceCaps (HDC, HORZRES ) screenY = GetDeviceCaps (HDC, VERTRES )
< p > La función GetDeviceCaps recupera la información relacionada con el dispositivo de dispositivo determinado , como la pantalla del monitor . Tiene dos argumentos HDC y HORZSIZE que representa el ancho de la pantalla física
5

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

Pixx GetDeviceCaps = ( hDc , LOGPIXELSX ) Pixy = GetDeviceCaps (HDC, LOGPIXELSY ) Convierte los píxeles de puntos a través de código: x = ( ScreenX /Pixx ) * 72y = ( screenY /Pixy ) * 72
6

Introduzca el 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 , año Como VariantGetFormSize x, yLoad Form1With Form1.Top = 0.Left = 0.Width = x.Height = yEnd WithForm1.Show