Fare clic su "Start ", " Tutti i programmi " e " Visual Studio" per entrare nell'ambiente di sviluppo integrato . Selezionare " Visual Basic ", come il linguaggio di programmazione e il modulo di domanda di Windows come la modalità di applicazione .
2
doppio clic Form1.vb per accedere all'interfaccia codice . Creare un nuovo modulo denominato GetFormSize .
3
Inserisci il codice nel modulo appena creato . Definire HDC, IngRetVal , screenX , Screeny , Pixx e Pixy che verrà utilizzato nella programmazione :
Dim hDc As Long , lngRetVal Come LongDim screenX As Variant , Screeny Come VariantDim Pixx As Variant , Pixy As Variant
4
Usa GetDeviceCaps functon per ottenere le dimensioni dello schermo in pixel per X e Y :
screenX = GetDeviceCaps ( hDC, HORZRES ) Screeny = GetDeviceCaps (HDC , VERTRES ) per
La funzione GetDeviceCaps recupera le informazioni relativo al dispositivo per certo dispositivo come schermo del monitor. Ha due argomenti HDC e HORZSIZE che rappresenta la larghezza dello schermo fisico
5
Inserisci GetDeviceCaps funzione per calcolare la conversione di pixel per X e Y : .
Pixx GetDeviceCaps = ( hDC, LOGPIXELSX ) Pixy = GetDeviceCaps (HDC , LOGPIXELSY ) Converti i pixel per i punti intermedi codice : x = ( screenX /Pixx ) * 72y = ( Screeny /Pixy ) * 72
6
Inserisci il codice tra tra Sub ed End Sub per ridimensionare la forma in base ai pixel calcolati per X e Y :
Dim x As Variant , y Come VariantGetFormSize x , yLoad Form1With Form1.Top = 0.Left = 0.Width = x.Height = YEND WithForm1.Show
Programmazione © www.354353.com