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