Windows Forms er smart klient teknologi for NET Framework . . Det er et utvalg av administrerte bibliotekene som forenkler generiske søknad oppgaver som å lese og skrive til filsystemet . I Visual Studio , kan du lage Windows Forms baserte applikasjoner som viser informasjon , ta imot innspill og kommunisere med eksterne datamaskiner . Windows Form er et visuelt grensesnitt der du kan vise informasjon til brukerne . Du kan legge til kontroller som knapper eller tekstfelt eller data rutenett til skjemaet . Opprette en Windows-skjema eller legge til en ny Windows-skjema til et prosjekt er ganske grei . I noen tilfeller kan det være nødvendig å re- size et skjema for å passe en stor skjerm . Instruksjoner
en

Klikk " Start", " Alle programmer " og " Visual Studio" å gå inn i integrerte utviklingsmiljø . Velg " Visual Basic" som programmeringsspråk og Windows Application Form som søknaden modus.
2

Dobbeltklikk Form1.vb å taste inn koden grensesnitt. Lag en ny modul som heter GetFormSize .
3

Skriv inn koden i den nyopprettede modulen. Definer HDC , IngRetVal , ScreenX , screeny , PixX og Pixy som du vil bruke i programmering : en

Dim HDC Som Long , lngRetVal Som LongDim ScreenX Som Variant , screeny Som VariantDim PixX Som Variant , PIXY Som Variant

4

bruk GetDeviceCaps functon å få skjermstørrelse i piksler for X og Y : en

ScreenX = GetDeviceCaps ( HDC , HORZRES ) screeny = GetDeviceCaps ( HDC , VERTRES )
< p > Den GetDeviceCaps funksjonen henter enhet -relatert informasjon for enkelte enhet, for eksempel LCD-skjermen. Den har to argumenter HDC og HORZSIZE som representerer bredden av den fysiske skjermen
5

Enter funksjon GetDeviceCaps å beregne konvertering av piksler for X og Y : .

PixX = GetDeviceCaps ( HDC , LOGPIXELSX ) Pixy = GetDeviceCaps ( hst , LOGPIXELSY ) Konverter pikslene til Points via kode : x = ( ScreenX /PixX ) * 72y = ( screeny /Pixy ) * 72
6

Skriv inn koden mellom mellom Sub og End Sub til re- size skjemaets basert på de beregnede piksler for x og Y :

Dim x As Variant , y Som VariantGetFormSize x , yLoad Form1With Form1.Top = 0.Left = 0.Width = x.Height = yEnd WithForm1.Show