Discussion :

[cati_78]

Bonjour,

Je sollicite votre aide sur le point suivant :

J'ai réalisé un useform de grande taille (en longueur et largeur).

Je souhaite diminuer ou augmenter progressivement la hauteur du useform lorsque je clique et maintiens avec la souris sur les 4 coins du formulaire.

Par ailleurs, je souhaite mettre une barre de défilement horizontale dans l'useform pour assurer l'ergonomie.

Je ne sais pas du tout comment procéder.

Merci d'avance pour votre aide.

[aalex_38]

Pour la barre horizontale, soit dans les propriétés soit dans le code :

Code :

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

Me.ScrollBars = fmScrollBarsHorizontal

A toute fin utile l'excellent tutorial de silkyroad sur les userform ici

[cati_78]

Bonjour,

En regardant la documentation, je n'arrive pas à modifier la taille de l'useform en cliquant et maintenant la souris sur les coins du formulaire.

L'idée est de reproduire sur l'useform, les 3 boutons qu'on retrouve dans une application WINDOWS (en haut à droite) : réduire - niveau inférieur - fermer.

Je me permets de vous demander de quelle façon faut-il utiliser l'API WINDOWS pour pouvoir modifier la taille du formulaire avec la souris.

Merci d'avance pour votre aide.

[ucfoutu]

Bonjour,

L'idée est de reproduire sur l'useform, les 3 boutons qu'on retrouve dans une application WINDOWS (en haut à droite) : réduire - niveau inférieur - fermer.

.

Il va alors te falloir créer ta propre "pseudo/barre de titre" puis gérer tout çà ...

Je n'en ai pas vraiment le temps, mais toi oui (et tu es intéressé...) ===>> alors : une recherche avec mon pseudo et le bon mot de clé ( "reduire", peut-être ?) ...
J'ai soluitionné ce problème ilm y a quelque mois ...

EDIT :

voilà la discussion qu'il te faut lire:
http://www.developpez.net/forums/d64...erform-bouton/

[laetitia]

bonjour cati_78 aalex_38 l'ami ucfoutu le forum code user

Option Explicit

Code :

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

1
2
3
4
Private Declare Function FindWindowA& Lib "User32" (ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function EnableWindow& Lib "User32" (ByVal hWnd&, ByVal bEnable&)
Private Declare Function GetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&)
Private Declare Function SetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000 Or &H10000
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
End Sub

[cati_78]

Bonjour,

Malgré la recherche sur le forum, je n'ai pas réussi à trouver la méthode permettant d'activer le bouton "niveau inférieur" (bouton du milieu d'une application WINDOWS - taille de l'useform modifiable en cliquant/maintenant la souris sur les coins du formulaire).

Merci d'avance de bien vouloir m'aider.

[ucfoutu]

Et pourtant, cati_78... et pourtant ....
Ta solution se trouve dans la discussion vers laquelle je t'ai envoyée.... il suffit d'en comprendre le code (le mien) et de l'adapter (si peu)...