Discussion :

[bb62]

Bonjour à tous,

J'ai un problème de textbox multiligne.

Je m'explique je creer des textbox dynamiquement et des picturebox car les textbox se trouves dans les picturebox :

J'ai fais le code suivant pour créer dynamiquement mes textbox :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
 
      If Index = Text1.Count - 1 Then
         Load Picture1(Index + 1)
         Load Text1(Index + 1)
         Load Picture2(Index + 1)
         Load Text2(Index + 1)
 
 
         Load Label1(Index + 1) 'Le label1 correspond au code de l'evenement
 
         Set Text1(Index + 1).Container = Picture1(Index + 1)
         Text1(Index + 1).Move 0, 0
 
         Set Text2(Index + 1).Container = Picture2(Index + 1)
         Text2(Index + 1).Move 0, 0, 13575, 375
 
         Text1(Index + 1) = ""
         Text2(Index + 1) = ""
 
         Label1(Index + 1) = ""
 
         Label1(Index + 1).Top = Label1(Index).Top + Label1(0).Height
         Picture1(Index + 1).Top = Picture1(Index).Top + Picture1(0).Height
         Picture2(Index + 1).Top = Picture2(Index).Top + Picture2(0).Height
 
         Text1(Index + 1).Visible = True
         Text2(Index + 1).Visible = True
         Picture1(Index + 1).Visible = True
         Picture2(Index + 1).Visible = True
         Label1(Index + 1).Visible = True
 
         Text1(Index).SetFocus
      Else
         i = Index + 1
         Text1(i - 1).SetFocus
    End If

Et j'ai un problème pour ma Text2(i).

Donc Ma text2(i) se trouve dans ma picture2(i). La propriété multiligne de la text2(i) st egale à true mais il y a une erreur qui apparaît lorsque je veux quitter :

L'instruction à "0x77e2a5ae" amploie l'adresse mémoire "0x000000019".la mémoire ne peut pas être "read".

Et lorsque je retire le bout de code suivant :

Code :

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

1
2
3
 
Set Text2(Index + 1).Container = Picture2(Index + 1)
Text2(Index + 1).Move 0, 0, 13575, 375

Il ne me fais plus l'erreur mais il y a un bug dans mon programme.

Je pense que cette erreur viens de ce bout de code.

Pouvez-vous m'aider?

Merci d'avance.

[bb62]

En fait je crois que le problème vient que de cette ligne là :

Code :

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

1
2
 
Set Text2(Index + 1).Container = Picture2(Index + 1)

Pouvez-vous m'aider?

Merci d'avance.