Discussion :

[mosquitout]

Bonjour,

J'ai un petit souci de resize pour afficher une form dont la hauteur varie en fonction du contenu des label dessus. Je m'explique:
J'ai une form avec une liste de 8 label les uns au dessus des autres. Ces label se nomment: label(0), label(1), etc.. label(7)
Au chargement de la form, ils sont alimenté. Tous ne sont pas forcement et je voudrai revoir la hauteur de ma form en fonction du contenu de ces label.
Je fais donc le test suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Form_Resize()   
On Error Resume Next    
Dim i As Integer  
 
  Me.Height = 800 
  For i = 0 To 8
    If label(i).Caption <> "" Then
       Me.Height = (Me.Height + 500) 
    End If
  Next 
 
End Sub

Mais vb n'aime pas du tout ca ! et il me plante après 30 seconde ...
J'ai essayé de mettre ce bout de code dans le Form-load mais ce n'est pas possible. Alors ? qu'est ce qui cloche ?
Merci de vos lumières

[mosquitout]

j'ai trouvé. Le fait de définir ma hauteur dans une boucle située dans le rezise entrainait une boucle sans fin puisqu'a chaque fois que je modifiait la hauteur (me.height), je rappellait automatiquement l'action "resize".