Récupérer la résolution de windows sans api :: screenstatus
Soyez le premier à donner votre avis sur cette source.
Vue 5 812 fois - Téléchargée 476 fois
Description
Une méthode utilisant l' objet "Screen", SANS APIs.
J' en ai fait un type de donné pour le rendre simple a utiliser.
Il suffit de mettre ce code dans un module.
Utilisation:
Il suffit apres de déclarer une variable avec le type de donné ScreenStatus ex:
Dim ScrStatus As ScreenStatus
et d' utiliser la fonction:
GetScreenStatus ScrStatus
Voila
Laissez des commentaires.
J' en ai fait un type de donné pour le rendre simple a utiliser.
Il suffit de mettre ce code dans un module.
Source / Exemple :
'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
Conclusion :
Utilisation:
Il suffit apres de déclarer une variable avec le type de donné ScreenStatus ex:
Dim ScrStatus As ScreenStatus
et d' utiliser la fonction:
GetScreenStatus ScrStatus
Voila
Laissez des commentaires.
Codes Sources
A voir également
- Vb net get screen resolution
- Basic resolution - Meilleures réponses
- Vb.net screen width - Meilleures réponses
- Arret et redemarge de windows sans api - Codes sources - Visual Basic / VB.NET (Shell)
- Recuperer les accomptes internet d'une machine (sans api) - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Visual Basic / VB.NET : Recuperer les dimensions image jpeg et psd (photoshop) sans ocx sans api - - Guide
- Récupérer les contacts de Windows live Mail. ✓ - Forum - Visual Basic 6
- Récupérer la version de windows ✓ - Forum - C# / .NET
1 août 2004 à 14:45
29 mars 2002 à 11:12
29 mars 2002 à 10:00
(et aussi parce que dans votre vie d'informaticien vous aurez tous a présenter des projets contenant ce mot)
dimenSion, pas dimention... tss
28 mars 2002 à 23:12
merci de me repondre plize
28 mars 2002 à 13:12
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.