Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

MODIFICATION DE LA ZONE DE TRAVAIL


Information sur la source

Catégorie :API Niveau : Débutant Date de création : 24/11/2004 Date de mise à jour : 24/11/2004 20:30:04 Vu / téléchargé: 2 802 / 233

Note :
8,5 / 10 - par 2 personnes
8,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (14)
Ajouter un commentaire et/ou une note

Description

Quand on maximise une fenetre (de n'importe quelle application), celle-ci s'agrandit de façon a occuper tout l'écran, sans la barre des taches...
Pour forcer les fenetres à n'occuper qu'une partie de l'écran, il faut modifier des données via une api que j'ai eu du mal à trouver !!
Il est important de préciser que les modifications sont valables pour toutes les fenetres, puisqu'elles se basent sur ces données pour connaitre la taille à prendre...
 

Source

  • 'Il faut, 4 textbox (Text1, Text2, Text3, Text4) et 2 CommandButton (Command1, Command2)
  • Option Explicit
  • 'déclaration de l'api et de ses constantes
  • Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
  • Const SPI_GETWORKAREA = 48
  • Const SPI_SETWORKAREA = 47
  • 'déclaration de 2 variables types qui récupereront la taille de la zone de travail
  • Private Type RECT
  • Left As Long
  • Top As Long
  • Right As Long
  • Bottom As Long
  • End Type
  • Dim RCold As RECT
  • Dim RCnew As RECT
  • Private Sub Command1_Click()
  • 'on récupere la taille de la zone de travail et si l'api bug (<>1), on le signal
  • If SystemParametersInfo(SPI_GETWORKAREA, vbNull, RCold, 0) = 1 Then
  • With RCold
  • Text1.Text = .Left
  • Text2.Text = .Top
  • Text3.Text = .Right
  • Text4.Text = .Bottom
  • End With
  • Else
  • MsgBox "Une erreur est survenue lors de la récupération des données !", vbOKOnly + vbMsgBoxSetForeground + vbCritical, "Erreur"
  • End If
  • End Sub
  • Private Sub Command2_Click()
  • 'on modifie la taille de la zone de travail apres verifier la requete de l'utilisateur, en cas "d'accident" !!
  • If MsgBox("Etes-vous sur de vouloir modifier la zone de travail ??" & vbCrLf & "Une mauvaise manipulation peut entrainer de graves conséquences !!", vbQuestion + vbYesNo + vbMsgBoxSetForeground, "Etes-vous sur ?") = vbYes Then
  • With RCnew
  • .Left = Text1.Text
  • .Top = Text2.Text
  • .Right = Text3.Text
  • .Bottom = Text4.Text
  • End With
  • Call SystemParametersInfo(SPI_SETWORKAREA, vbNull, RCnew, 0)
  • End If
  • End Sub
  • Private Sub Form_Load()
  • Command1_Click
  • End Sub
'Il faut, 4 textbox (Text1, Text2, Text3, Text4) et 2 CommandButton (Command1, Command2)

Option Explicit
    'déclaration de l'api et de ses constantes
    Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
    Const SPI_GETWORKAREA = 48
    Const SPI_SETWORKAREA = 47
    
    'déclaration de 2 variables types qui récupereront la taille de la zone de travail
    Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
    End Type
    Dim RCold As RECT
    Dim RCnew As RECT

Private Sub Command1_Click()
    'on récupere la taille de la zone de travail et si l'api bug (<>1), on le signal
    If SystemParametersInfo(SPI_GETWORKAREA, vbNull, RCold, 0) = 1 Then
        With RCold
            Text1.Text = .Left
            Text2.Text = .Top
            Text3.Text = .Right
            Text4.Text = .Bottom
        End With
    Else
        MsgBox "Une erreur est survenue lors de la récupération des données !", vbOKOnly + vbMsgBoxSetForeground + vbCritical, "Erreur"
    End If
End Sub

Private Sub Command2_Click()
    'on modifie la taille de la zone de travail apres verifier la requete de l'utilisateur, en cas "d'accident" !!
    If MsgBox("Etes-vous sur de vouloir modifier la zone de travail ??" & vbCrLf & "Une mauvaise manipulation peut entrainer de graves conséquences !!", vbQuestion + vbYesNo + vbMsgBoxSetForeground, "Etes-vous sur ?") = vbYes Then
        With RCnew
            .Left = Text1.Text
            .Top = Text2.Text
            .Right = Text3.Text
            .Bottom = Text4.Text
        End With
        Call SystemParametersInfo(SPI_SETWORKAREA, vbNull, RCnew, 0)
    End If
End Sub

Private Sub Form_Load()
    Command1_Click
End Sub

Conclusion

Je ne pense pas qu'il y aura de suite à ce projet, sauf bien sûr pour corriger d'éventuels bugs !
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Historique

24 novembre 2004 20:30:04 :
J'ai rajouté une fonction permettant de restaurer les parametres par default !! Il s'enregistrent dans un fichiers qui sera créé dans le dossier du programme...

Commentaires et avis

signaler à un administrateur
Commentaire de Cracker le 24/11/2004 19:22:21

n'hésitez pas à me soumettre vos commentaires..

signaler à un administrateur
Commentaire de bouv le 24/11/2004 19:55:36

Pas mal, je met 9 car il serait bien de sauvegardr qq part (autre que dans une variable, un fichier par ex) les valeurs d'origines et de proposer de les restaurer.
Car apres mon test j'avais oublié quelles la valeur Height à l'origine, j'ai du faire un test sur un autre PC avec la meme resolution.

Mais ce la reste très interressant.
Il faut preciser que cela modifie la valeur pour TOUTES les fenetres actives.
Bonne prog
++

signaler à un administrateur
Commentaire de Cracker le 24/11/2004 20:35:22

source Mise A jour ;)

signaler à un administrateur
Commentaire de MadM@tt le 24/11/2004 20:49:07

Salut

J'ai déjà mis une source qui fait la meme chose sur ce site et j'étais confronté à un problème : sur certains systèmes d'exploitation (dont XP j'en ai fait l'experience) quand tu change la zone utilisable de l'écran, toutes les fenetres maximisées ne sont pas modifiées, et meme si tu les démaximise puis tu les remaximises elle ne prendront pas compte des nouvelles dimensions, enfin bien chiant le problème.
J'ai essayé avec plein de prog différents, essayer de tout démaximiser et tout remaximiser, rien à faire, le problème reste.
En + j'ai reçu un mail de quelqu'un dont toutes les fenetres d'internet explorer restaient à l'ancienne taille, meme après reboot.

Donc je pense qu'il serait interressant avec la réédition de cette technique, de résoudre ce problème qui peut devenir bien chiant....

Mais bon c'est pas de ta faute, c'est celle d'XP j'ai le meme problème.

voilà j'espère que ça servira a améliorer cette source
@ +
MadMatt

signaler à un administrateur
Commentaire de Cracker le 24/11/2004 21:06:02

personnellement je n'ai pas rencontré ce genre de probleme (je suis sur XP aussi)  mais je n'ai pas fait énormément de test encore...

signaler à un administrateur
Commentaire de MadM@tt le 24/11/2004 21:09:12

Il faudrait voir si du monde qui recontre ce problème se manifeste

signaler à un administrateur
Commentaire de BruNews le 24/11/2004 21:15:03 administrateur CS

Salut,

quand on change les parametres de Windows, il faut en informer les autres progs pour qu'ils s'adaptent a la nouvelle situation.
Quand changements appliques:
SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);

signaler à un administrateur
Commentaire de MadM@tt le 24/11/2004 21:55:32

OHHHHH
tu es trop bon BruNews, meme si chez moi quelques fenetres ne changent pas de taille automatiquement, ça supprime pas mal de bugs...;
merciiiiiii

signaler à un administrateur
Commentaire de bouv le 25/11/2004 08:05:44

PS : Chez moi les autres fenetres adoptes la meme taille, meme si elles sont deja maximizées. Au pire s'il y en a une qui change pas, je 'demaximize' et 'remaximize' et c'est ok.

Bonne prog
++

signaler à un administrateur
Commentaire de bouv le 25/11/2004 08:07:06

MadM@tt>> Je me disait bien que j'avais vu ça qq part. Ce ne serait pas dans une source pour mettre une barre d'outils sur le bureau ?

signaler à un administrateur
Commentaire de MadM@tt le 25/11/2004 17:53:44

oui c'est ça

A propos du problème dont j'ai parlé, ça n'arrive pas sur tous les PC (je me suis trompé c'est pas pour tous les XP) mais c'est quand meme à prendre en compte quand on écrit le programme

signaler à un administrateur
Commentaire de Cracker le 27/11/2004 11:57:08

je vais essayer de prendre ce probleme en compte, mais il me faudrait des témoignages précis...

signaler à un administrateur
Commentaire de rprovost le 04/02/2005 15:57:29

probleme identique sur WinXp Pro Sp2.
J ai une application qui redimensionne la zone de travail pour permettre l'affichage d une barre de travail a gauche de l'ecran en permanence en utilisant SystemParametersInfo . Cette application lance d'autres applications maximisees. Au bout d'un certain temps l'application maximisee reoccupe la totalite de l'ecran, et meme en remaximisant et demaximisant le probleme reste.

voila pour un temoignage.

signaler à un administrateur
Commentaire de Elangel le 30/06/2008 13:58:35

Très bon prog mais je cherche un moyen pour qu'il change automatiquement le workspace a chaque démarrage sans avoir a lancer le programme et lui appliquer les parrametres que je souhaite.
Pourriez-vous m'expliquer comment faire cela ??

Merci de votre part.
Elangel

Ajouter un commentaire



Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,499 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.