Plein ecran - Barre de légende
scottmat
Messages postés
438
Date d'inscription
samedi 24 mai 2003
Statut
Membre
Dernière intervention
23 janvier 2011
-
11 sept. 2005 à 23:45
scottmat Messages postés 438 Date d'inscription samedi 24 mai 2003 Statut Membre Dernière intervention 23 janvier 2011 - 13 sept. 2005 à 11:36
scottmat Messages postés 438 Date d'inscription samedi 24 mai 2003 Statut Membre Dernière intervention 23 janvier 2011 - 13 sept. 2005 à 11:36
2 réponses
BasicInstinct
Messages postés
1470
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
12 sept. 2005 à 16:00
12 sept. 2005 à 16:00
'positionnement de la feuille
Form1.Top = 0
Form1.Left = 0
Form1.Height = hauteur_ecran
Form1.Width = largeur_ecran
'dans un module
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Const SPI_GETWORKAREA = 48
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As RECT, ByVal fuWinIni As Long) As Long
Public Function largeur_ecran() As Long
Dim prect As RECT
If SystemParametersInfo(SPI_GETWORKAREA, 0, prect, 0) Then
largeur_ecran = (prect.Right - prect.Left) * Screen.TwipsPerPixelX
End If
End Function
Public Function hauteur_ecran() As Long
Dim prect As RECT
If SystemParametersInfo(SPI_GETWORKAREA, 0, prect, 0) Then
hauteur_ecran = (prect.Bottom - prect.Top) * Screen.TwipsPerPixelY
End If
End Function
BasicInstinct
Form1.Top = 0
Form1.Left = 0
Form1.Height = hauteur_ecran
Form1.Width = largeur_ecran
'dans un module
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Const SPI_GETWORKAREA = 48
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As RECT, ByVal fuWinIni As Long) As Long
Public Function largeur_ecran() As Long
Dim prect As RECT
If SystemParametersInfo(SPI_GETWORKAREA, 0, prect, 0) Then
largeur_ecran = (prect.Right - prect.Left) * Screen.TwipsPerPixelX
End If
End Function
Public Function hauteur_ecran() As Long
Dim prect As RECT
If SystemParametersInfo(SPI_GETWORKAREA, 0, prect, 0) Then
hauteur_ecran = (prect.Bottom - prect.Top) * Screen.TwipsPerPixelY
End If
End Function
BasicInstinct
scottmat
Messages postés
438
Date d'inscription
samedi 24 mai 2003
Statut
Membre
Dernière intervention
23 janvier 2011
1
13 sept. 2005 à 11:36
13 sept. 2005 à 11:36
je suis désoler j'ai oublié de précisser que j'utilise visual Basic.net
je suis vrémait désoler j'ai oublié de précisser
j'ai essayer de l'adapter ! j'ai fait mon possible mais sa marche pas
je suis vrémait désoler j'ai oublié de précisser
j'ai essayer de l'adapter ! j'ai fait mon possible mais sa marche pas