Soyez le premier à donner votre avis sur cette source.
Vue 5 484 fois - Téléchargée 422 fois
'Le type ScreenStatus Public Type ScreenStatus 'Dimentions totale de l' écran ScreenDimentions As String 'La largeur de l' ecran ScreenX As Long 'La hauteur de l' ecran ScreenY As Long 'Le nombre de Twips par pixel sur l' écran ScreenTwips As Long End Type Public ScrStatus As ScreenStatus 'La fonction pour calculer les dimentions de l' écran a partir du type Public Sub GetScreenStatus(ssVar As ScreenStatus) 'La largeur de l' ecran [largeur en Twips / nombre de twips par pixel] ssVar.ScreenX = Screen.Width / Screen.TwipsPerPixelX 'La hauteur de l' ecran [hauteur en Twips / nombre de twips par pixel] ssVar.ScreenY = Screen.Height / Screen.TwipsPerPixelY 'les dimentions totale de l' écran ssVar.ScreenDimentions = ssVar.ScreenX & "*" & ssVar.ScreenY 'Le nombre de Twips par pixel sur l' écran [(Twips par pixel sur la largeur + Twips par pixel 'sur la hauteur) / 2] ssVar.ScreenTwips = (Screen.TwipsPerPixelX + Screen.TwipsPerPixelY) / 2 End Sub
(et aussi parce que dans votre vie d'informaticien vous aurez tous a présenter des projets contenant ce mot)
dimenSion, pas dimention... tss
merci de me repondre plize
Silarou
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.