Ah oui en effet c'est meilleur ! Merci !
j'ai ajouté cette nuance :
For n = 0 to nb
if Control(n) isa RectControl then
RectControl(Control(n)).Refresh
end if
Next
Mais en fait, il y a encore plus simple :
il suffit, après avoir appelé TransitionWindow, d'attribuer la
hauteur de la fenêtre
self.Height = nn
et le tour est joué.
Le 15 nov. 2006 à 21:19, Mark Nutter a écrit :
--- Vincent Mercey <vincent at billjobs dot com> wrote:
Seulement, le hic c'est que RB ne dessine pas les éléments de
la
fenêtre dans la partie agrandie, comme s'il y avait une zone de
clipping.
Comment faire (j'ai déjà fait un refresh de la fenêtre juste
après
l'appel de TransitionWindow, mais rien n'y fait...) ?
Je n'y connais rien :-) mais se on faisait un refresh de chaque
element?
sub ForceRefresh()
Dim i, c As Integer
c = Window1.ControlCount - 1
For i = 0 to c
RectControl(Window1.Control(i)).Refresh
Next
End Sub
Sincères salutations
----------------------------
Vincent MERCEY
BillJobs
7, rue Greffulhe
75008 PARIS
AIM/iChat AV : billjobsdev.aim
http://www.billjobs.com
|