|
. Visual Basic NET ou VB.NET, est un langage de programmation informatique mis en place sur le NET Framework . . Vous pouvez utiliser VB.NET pour créer des formes complexes. Toutefois , une forme créée pour la résolution VGA standard ( 640 x 480) ne prend qu'une partie de l'écran avec une résolution supérieure . Bien que cela soit normal, vous voudrez peut-être sous forme d'avoir une taille et la position proportionnelle à la résolution. Ces formes sont appelées cadres indépendants de la résolution et sont relativement faciles à créer . Choses que vous devez
Visual Basic, une version
Voir Plus Instructions
1 clic-droit n'importe où sur votre bureau et sélectionnez "Propriétés". Allez le l'onglet "Paramètres" et changer la résolution d'écran de « 800 x 600 ». Vous utiliserez cette petite résolution pour créer la trame indépendante de la résolution .
2 Ouvrez Visual Studio et démarrer un nouveau projet . Le formulaire " Form1 " est créé automatiquement
3 Aller au module de la forme et coller le code pour rendre la forme indépendante de la résolution : .
Option Explicit
MyForm As FRMSIZE
DesignX As Integer
Dim designy As Integer
Private Sub Form_Load ( )
ScaleFactorX As simple , ScaleFactorY comme unique » Les facteurs d'échelle
' Taille du formulaire en pixels à la conception résolution
DesignX = 800
designy = 600
RePosForm = True Flag » pour positionnement formulaire
DoResize = False ' Flag pour redimensionner événement
»mis en place l'écran valorise
Xtwips = Screen.TwipsPerPixelX
Ytwips = Screen.TwipsPerPixelY Photos Ypixels = de Y pixels de résolution
les Xpixels = screen.width /Xtwips de screen.height /Ytwips X Pixels Résolution
la «déterminer les facteurs d'échelle
ScaleFactorX = ( Xpixels /DesignX )
ScaleFactorY = ( Ypixels /designy )
ScaleMode uncomment = 1 ' twips
' Exit Sub 'pour voir comment Form1 regarde sans redimensionnement
Resize_For_Resolution ScaleFactorX , ScaleFactorY , Me
Label1.Caption = " résolution actuelle est" & Str $ ( Xpixels ) + _
"par" + Str $ ( Ypixels )
MyForm.Height = Me.Height « Rappelez-vous la taille
MyForm.Width = Me.Width
End Sub
Form_Resize Private Sub courant ()
ScaleFactorX As simple , ScaleFactorY Comme simples
|
