[E-03] Modifier le format d'un USF

Version imprimable

05/03/2009, 20h42
drakkar_agfa

[E-03] Modifier le format d'un USF

Bonjour à tous,

Petite question (vraiment, seulement pour la beauté!)

Comment faire ceci (voir les images)
En gros, comment masquer une partie d'un USF ou l'afficher?
Ce n'est pas clair en paroles comme cela mais regardez les images ;)

Est-ce possible dans la mesure du normal?

Merci!
05/03/2009, 20h46
ouskel'n'or

Oui, tu peux en redimensionnant la hauteur de l'usf mais tu verras ce qu'il y a dessous (ta feuille de calculs ou un fond gris si tu l'as masquée)
Teste ça :

Code:

Me.Height = 50
05/03/2009, 20h52
drakkar_agfa

Oui, je savais que la hauteur pouvait être modifiée.

Mais quand tu parles de dessous, ça ne change rien que l'on voit ou pas la feuille.

Dans l'exemple que j'ai donnée, le bouton en dessous du txtbox (ou liste, peu importe) se repositionne en agrandissant l'USF. Quand l'aide est marquée, on voit une ligne à l'emplacement du txtbox.

Est-ce que tout est programmé de sorte que le bouton (.position) se change, le txtbox .visibled, la ligne .visibled et la hauteur du USF?

J'aimerais que ce soir plus simple ;)
05/03/2009, 21h19
ucfoutu

Bonjour,

Il n'y a rien là ni de très complexe, ni de très simple.

Il y a recalcul de positionnement et de dimensions et il est vraisemblable que cela passe simplement par l'utilisation d'une structure dont on modifie tel ou tel autre élément.
Il s'agit en quelque sorte d'une espèce de boîte de dialogue personnalisée.

Le tout passe à mon sens (si l'on veut travailler avec précision) par l'utilisation (hé oui) du calcul des twips par pixel tant dans le sens de la hauteur que dans celui de la largeur)

Peut-être fred62500 (s'il a un peu de temps) pourrait-il vous en parler succinctement ? ;)
05/03/2009, 22h25
ouskel'n'or

Ok, je vois ce que tu veux dire... si j'ai bien compris...
Tu as trois choses à modifier
Le Textbox : Tu le masques : Txtbox.visible = false
Le bouton : Tu le déplaces : CommandButton1.top = TxtBox.top
La fenêtre : Tu la redimensionnes : Me.height = La hauteur qui va bien
Tu dis

J'avais fait ceci (qui est proche (identique) à ce que tu me proposes
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub cmdAffichier_Click() usfFormat.Height = 340 Me.ListBox1.Height = 220 Me.cmdQuitter.Top = 288 Me.cmdMasquer.Visible = True Me.cmdAffichier.Visible = False End Sub Private Sub cmdMasquer_Click() usfFormat.Height = 120 Me.ListBox1.Height = 3 Me.cmdQuitter.Top = 66 Me.cmdMasquer.Visible = False Me.cmdAffichier.Visible = True End Sub
Je me demandais s'il avait un code, une fonction, ou quelque chose qui permettait ce genre de manipulation automatique.
Un peu comme le Reseize.

Merci quand même de votre temps!

05/03/2009, 23h23
ucfoutu

Bonsoir,

cela devrait aller pour ce que tu as à faire

Mais (de mémoire) attention : il me semble me rappeler que si tu as à redimensionner et déplacer également un Frame dans ton UserForm, ou à déplacer ton UserForm lui-même, ce sera moins simple (me semble bien que tu vas être confronté à une affaire de positionnement en pixels et qu'il te faudra alors d'autres calculs, à moins que tu n'y ailles à tâtons, mais en courant alors le risque de voir ton affichage réagir différemment entre une machine et l'autre)...