Windows Form è la tecnologia smart client per .NET Framework. Si tratta di una selezione di librerie gestite che semplificano applicazione generica attività quali la lettura e la scrittura nel file System. In Visual Studio, è possibile creare applicazioni Windows form basato su cui visualizzare informazioni, accettano input e comunicano con i computer remoti. Windows Form è un'interfaccia visiva, dove è possibile visualizzare informazioni agli utenti. È possibile aggiungere controlli quali pulsanti o griglia di dati o campi di testo al form. Creazione di un Windows form o l'aggiunta di un nuovo windows form a un progetto è piuttosto semplice. In alcune circostanze, potrebbe essere necessario ridimensionare una forma adattata un grande schermo.

Istruzioni

1

Fare clic su "Start", "Tutti i programmi" e "Visual Studio" per entrare nell'ambiente di sviluppo integrato. Selezionare "Visual Basic" come linguaggio di programmazione e il modulo di domanda di Windows come la modalità di applicazione.

2

Fare doppio clic su Form1 per accedere all'interfaccia di codice. Creare un nuovo modulo denominato GetFormSize.

3

Immettere codice nel modulo appena creato. Definire hDC, IngRetVal, ScreenX e ScreenY, PixX PixY che verrà utilizzato nella programmazione:

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

Utilizzare GetDeviceCaps functon per ottenere le dimensioni dello schermo in pixel per X e y:

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

La funzione GetDeviceCaps recupera informazioni relative al dispositivo per alcune periferiche come schermo monitor. Ha due argomenti HDC e HORZSIZE che rappresenta la larghezza dello schermo fisico.

5

Immettere la funzione GetDeviceCaps per calcolare la conversione di pixel per X e y:

PixX = GetDeviceCaps (hDc, LOGPIXELSX)
PixY = GetDeviceCaps (hDc, LOGPIXELSY)
Convertire i pixel in punti via codice:

x = (ScreenX / PixX) * 72

y = (ScreenY / PixY) * 72

6

Immettere codice tra tra Sub ed End Sub di ridimensionare il modulo basato sui pixel calcolati per 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