Discussion :

[drakkar_agfa]

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!

[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 :

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

Me.Height = 50

[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

[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 ?

[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

[drakkar_agfa]

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

Code :

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

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!