[.net2] redéfinir l'espace de travail de l'écran

Soyez le premier à donner votre avis sur cette source.

Vue 6 787 fois - Téléchargée 552 fois

Description

Ce code simple montre comment redéfinir l'espace de travail du bureau en utilisant la propriété SystemInformation.WorkingArea pour obtenir la zone de l'espace de travail et une fonction de l'api SystemParametersInfo pour modifier la taille de cette zone.

SystemInformation.WorkingArea:
http://msdn2.microsoft.com/fr-fr/library/system.windows.forms.systeminformation.workingarea(VS.80).aspx

SystemParametersInfo (SPI_SETWORKAREA):
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/systemparametersinfo.asp

Conclusion :


Voila voila...
Bon dev à tous.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
4
Date d'inscription
lundi 14 août 2006
Statut
Membre
Dernière intervention
4 août 2012

bien sûr, j'ai changé

If iNewWA = 1 Then
Label1.Text = String.Format("Espace de travail d'origine: {0} {1} Espace de travail actuel (redimensionné): {2}", _
rectWA.ToString, vbCrLf, SelectScreen.WorkingArea.ToString)
End If

mais il écrit "Ma barre perso"
Messages postés
4
Date d'inscription
lundi 14 août 2006
Statut
Membre
Dernière intervention
4 août 2012

Bonjour,
très pratique pour se créer un formulaire type sidebar, mais comment le faire pour le second écran ?
avec les quelques modifications suivantes, j'arrive bien à l'afficher sur le 2ème écran, mais il ne réduit pas la surface, ni affiche les dimensions, alors que si c'est l'écran principal, tout marche
qu'est-ce que j'ai pû rater ?
Merci

Dim SelectScreen As ScreenSelectScreen Screen.AllScreens(1) '0 1er écran, 1 = 2ème écran
Me.Width = SelectScreen.WorkingArea.Width
Me.Left = SelectScreen.WorkingArea.Left
Me.Top = SelectScreen.WorkingArea.Height - Me.Height

rectWA = SelectScreen.WorkingArea

Dim r As RECT = New RECT(rectWA.Left, rectWA.Top, rectWA.Width, rectWA.Height - Me.Height) 'rectWA.width au lieu de rectWA.Right
Messages postés
2167
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
1
FremyCompany > effectivement ça marche chez moi, bonne idée c'est sur.
En y reflechissant bien, ça devait etre sous win 98 que ça posait problème surement...
Messages postés
276
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
22 décembre 2008

Il y a un moyen simple de tester si mon truc marche...
Dans la barre de lancement rapide, tu as l'icone "bureau", qui renvoie toutes les fenêtres dans la barre de taches et qui exploite la même fonction du shell que moi... Moi il me semblait que ca devait marcher, mais j'ai jamais vraiment testé...
Messages postés
956
Date d'inscription
lundi 30 mai 2005
Statut
Membre
Dernière intervention
21 août 2014
1
petite question : un programme comme ça faut pas qu'il se fasse tué violemment sinon ça fou la merde, comment on peut faire pour embêcher le kill ?
Afficher les 13 commentaires

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.