Slik installerer en stor størrelse skjema med VB6

Slik installerer en stor størrelse skjema med VB6


Windows Forms er smart klient teknologi for .NET Framework. Det er et utvalg av administrerte biblioteker som forenkler generiske programoppgaver 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 i 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.

Bruksanvisning

1 Klikk "Start", "Alle programmer" og "Visual Studio" for å angi integrert utviklingsmiljø. Velg "Visual Basic" som programmeringsspråk og Windows Application Form som applikasjonsmodus.

2 Dobbeltklikk på Form1.vb å taste inn koden grensesnitt. Opprett en ny modul som heter GetFormSize.

3 Tast inn koden i den nyopprettede modulen. Definer HDC, IngRetVal, ScreenX, screeny, PixX og nisse som du vil bruke i programmeringen:

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

4 Bruk GetDeviceCaps functon å få skjermstørrelsen i piksler for X og Y:

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

Den GetDeviceCaps funksjonen henter enhetsrelatert informasjon for enkelte enhet som LCD-skjermen. Den har to argumenter HDC og HORZSIZE som representerer bredden av det fysiske skjermen.

5 Inn funksjons GetDeviceCaps å beregne omdannelsen av piksler for X og Y:

PixX = GetDeviceCaps (HDC, LOGPIXELSX)
Pixy = GetDeviceCaps (HDC, LOGPIXELSY)
Konvertere piksler til Points via kode:

x = (ScreenX / PixX) * 72

y = (screeny / Pixy) * 72

6 Tast inn koden mellom mellom Sub og End Sub å re-size form basert på de beregnede piksler for X og 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