. 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