Comment adapter les interfaces à n'importe quel écran d'ordinateur

rodalex Messages postés 3 Date d'inscription jeudi 16 octobre 2003 Statut Membre Dernière intervention 15 mars 2004 - 29 oct. 2003 à 14:04
rodalex Messages postés 3 Date d'inscription jeudi 16 octobre 2003 Statut Membre Dernière intervention 15 mars 2004 - 31 oct. 2003 à 18:20
Comment adapter les interfaces Vb à n'importe quel écran d'ordinateur

2 réponses

cs_phil23 Messages postés 79 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 14 juillet 2005 1
29 oct. 2003 à 19:35
En récupérant la dimension de l'écran en pixels

VB6
Dim ScreenWidth As Long
Dim ScreenHeight As Long

'Pixels en X
ScreenWidth = Screen.Width / Screen.TwipsPerPixelX
'Pixels en Y
ScreenHeight = Screen.Height / Screen.TwipsPerPixelY

VB.net
Dim DisplaySize As System.Drawing.Size = System.Windows.Forms.SystemInformation.PrimaryMonitorSize
Dim ScreenWidth As Integer
Dim ScreenHeight As Integer

'Pixels en X
ScreenWidth = DisplaySize.Width
'Pixels en Y
ScreenHeight = DisplaySize.Height

puis tu peux déplacer tes contrôles ou tes fenêtres avec les propriétés .top .left ..... de chaque objets.
0
rodalex Messages postés 3 Date d'inscription jeudi 16 octobre 2003 Statut Membre Dernière intervention 15 mars 2004
31 oct. 2003 à 18:20
Bonjour phil23

je te remercie pour ta réponse
0
Rejoignez-nous