Discussion :

[salimo79]

salut,
comment deplacer les boutons fermer (x) & rduire(-) & grandir d'une fentere de droite à gauche de la fenetre sous vb6?

[babaothe]

salut

je n'ai pas VB6 sous la main, mais je viens d'essayer avec VBA (en extrayant le hwnd d'un userform alors que toi tu peux directement utiliser Me.hwnd) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
 
Private Sub Form_Activate()
    SetWindowLong Me.hwnd, -20, &H8000
    SetLayeredWindowAttributes Me.hwnd, -6, 255, &H2&
End Sub

dis-moi si vb6 réagit correctement (ça m'intéresse).

[l_autodidacte]

Sauf erreur de ma part, ces boutons sont des propriétés intrinsèques du système. Même la propriété RightToLeft ne concerne que le mode d'affichage du texte si la fonctionnalité Bidirectionnelle du système est activée(pour l'Arabe par exemple).

[babaothe]

Sauf erreur de ma part, ces boutons sont des propriétés intrinsèques du système. Même la propriété RightToLeft ne concerne que le mode d'affichage du texte si la fonctionnalité Bidirectionnelle du système est activée(pour l'Arabe par exemple).

salut

rien à voir avec la propriété RightToLeft !
As-tu essayé (je suis intéressé) ?
J'ai en fait besoin d'être certain de ce que les valeurs passées par tâtonnements successifs pour un UserForm VBA sont les mêmes pour une Form de VB6 (bien qu'a priori, je ne vois pas pourquoi, s'agissant de fenêtres Windows, elle ne seraient pas les mêmes ! )

[l_autodidacte]

Désolé de n'avoir vu ton message qu'après avoir envoyé le mien.(Donc mon message était en réponse à salimo79).

Effectivement, ça marche. Je ne le savais pas et je dois apprendre beaucoup plus et voici une nouvelle chose que je viens d'apprendre.

Merci pour cette astuce.

Rq : J'ai invoqué la propriété RightToLeft pour le cas où on serait tenté de l'essayer.

[ProgElecT]

Je trouve dommage que les boutons system ne soient pas aussi inversées ...... ......... ........ plaisanterie, je garde çà sous le coude, bien que je n'en vois pas l'utilité, l'important est que cela répond exactement à la demande du créateur de la discussion. babaothe

[l_autodidacte]

Juste une précision : L'utilisation de "SetLayeredWindowAttributes" est en fait superflue si ce n'est que pour la transparence de la feuille car "SetWindowLong" suffit à la demande.

Chose curieuse, si on fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetWindowLong Me.hWnd, -20, &H3000

on voit les boutons avancer(descendre un peu) quand la souris passe sur la barre de titres.
et pour les voir monter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetWindowLong Me.hWnd, -20, &H20000

[babaothe]

salut l'autodidacte

Je vois que tu as pris goût aux tâtonnements, à ton tour
C'est hélas quelquefois le seul moyen, avec certaines fonctions de l'Api de Windows.
Et on fait toujours des découvertes. Exemple (essaye) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetWindowLong Me.hwnd, -20, -26880

Amuse-toi bien

[Invité]

Bonjour

salut,
comment deplacer les boutons fermer (x) & rduire(-) & grandir d'une fentere de droite à gauche de la fenetre sous vb6?

En dehors des solutions évoquées, je trouve cela dommage, car tu vas déstabiliser les utilisateurs de ton application, et cela est préjudiciable en terme d'ergonomie.

Philippe

[babaothe]

Bonjour



En dehors des solutions évoquées, je trouve cela dommage, car tu vas déstabiliser les utilisateurs de ton application, et cela est préjudiciable en terme d'ergonomie.

Philippe

Je plussoie .
Et comme ProgElecT, je n'en vois vraiment pas l'intérêt .

[l_autodidacte]

je n'en vois vraiment pas l'intérêt

La personne ayant créé la discussion est peut-être en train de développer une application BIDI(Arabe ou autre). Si son application utilise des menus, ils seront affichés de droite à gauche.
De ce fait, le déplacement des boutons système vers la gauche cadre bien avec le thème général de l'application. (comme pour toute application non bidi).
Peut-être aussi qu'on lui a demandé un tel travail(s'il est étudiant ou en stage).

Bien sûr, la fonctionnalité des boutons est toujours la même quel que soit le sens de leur affichage
Ce n'est qu'une idée mais c'est à salimo79 d'en décider.

[babaothe]

ouais...bon...
1) le seul intérêt que j'y ai personnellement vu, c'était celui de la possibilité offerte de définir le style de la barre de titre et de ses menus (exercice purement de style). Fait...
2) la seule fois (dans toute ma vie) où j'ai dû modifier le style de cette barre de titre avait un tout autre propos. Il s'agissait (sans modifier les paramètres système et donc influer sur toutes les fenêtres et non la seule en cours) de modifier la taille : tant des boutons eux-mêmes que du caption du Form, de sorte à pouvoir tout "faire tenir" dans une largeur plus réduite. Mais bon ! c'est un autre problème (qui a sa solution également, mais dont je ne traiterai pas ici, puisque tel n'était pas celui du demandeur )