[VB6]Creer un autre TextBox à partir d'une Textbox Existante

Version imprimable

Voir 40 message(s) de cette discussion en une page

17/01/2006, 11h22
bb62

[VB6]Creer un autre TextBox à partir d'une Textbox Existante

Bonjour à tous,

Est-ce qu'il est possible de créer une nouvelle TextBox à Partir d'une TextBox existante.

Je m'explique : J'ai 1 TextBox "Text1(0)", J'aimerai créer un autre Text1(1). Comment pourrai-je faire avec du code VB?

nb : je travaille en Visual Basic 6.0.

Merci d'avance.
17/01/2006, 11h24
jmfmarques

Tu devrais préciser :

Au stade du développement ou à celui du "runtime" (dynamiquement) ?
17/01/2006, 11h28
bb62

Lorsque je lance mon formulaire et que je met une valeur dans la Text1(0), j'aimerai que automatiquement lorsque je fait Tab, par exemple ,il y a une Text1(1) qui se cree.

Merci d'avance.
17/01/2006, 11h44
jacma
Ta TextBox est un objet. Tu peut donc en créer des instances.

Déclares une variable objet (ou control) et initialise la.
Code:

1 2 Dim myControl as Control Set myControl = TaTextBox
17/01/2006, 11h49
bb62
Non c'est pas ce que je veux.

Je me reexplique:
Dans un formulaire j'ai une TextBox "Text1(0)". Lorsque je fais Tab il y a une deuxième TextBox "Text1(1)" qui se crée automatiquement et ainsi de suite.

Comment pourrai je faire?

J'ai trouver un bout de code dans la faq vb :
Code:

1 2 3 4 5 6 7 Dim i As Long For i = 1 To 9 Load Text1(i) Text1(i).Top = Text1(i - 1).Top + Text1(0).Height + 60 Text1(i).Visible = True Next
Ce code je l'ai mis dans mon Load de mon formulaire. Et en mode création j'ai créer qu'un seul TextBox et grâce à ce code j'en crée 9 lorsque mon formulaire est ouvert. Mais moi je voudrais que se soit seulement quand je fait Tab sur ma premiere TextBox qui rajoute une autre TextBox.

Merci d'avance.
17/01/2006, 11h56
jmfmarques

Citation:

il y a une deuxième TextBox "Text1(1)" qui se crée automatiquement et ainsi de suite

Qui se crée ou qui, déjà existant, se charge ?

Ton code me laisse penser qu'il ne s'agit pas d'une création...
17/01/2006, 11h57
bb62

non qui se crée.
17/01/2006, 12h01
bb62

Oui c'est ça.

Code:

1
2
3
4
5
6
7
8
9
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyTab Then
    If Index = 9 Then Exit Sub
    Load Text1(Index + 1)
    Text1(Index + 1).Top = Text1(Index).Top + Text1(0).Height + 60
    Text1(Index + 1).Visible = True
    Text1(Index + 1).SetFocus
    End If
End Sub

Mais la touche TAB pose probleme, tu doit mettre la propriété TabStop à false dans ton text1(0)
Sinon tu peux utiliser vbKeyReturn

17/01/2006, 12h16
ThierryAIM

Citation:

Envoyé par ouskel'n'or

Créés en dynamique comme tu le fais, j'ignore s'il est possible de récupérer les événements qui te permettraient de passer de l'un à l'autre et donc de créer le suivant.

Un controle créé dynamiquement à partir d'un autre est toujours WithEvents
Dans ce cas, seule la touche TAB peut causer un soucis car c'est aussi une fonctionnalité Windows
Pour contourner cela, il faut que TabStop soit à False, ce qui inhibe la fonction de passage d'un controle à l'autre
17/01/2006, 12h27
ThierryAIM

Je repète :

Citation:

Un controle créé dynamiquement à partir d'un autre est toujours WithEvents

:wink:

salut
voila ce que j'ai put faire :

Citation:

mettre la propriété TabStop du textbox à false

Code:

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
Option Explicit
 
 
Dim mShift As Integer
 
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
   mShift = Shift
End Sub
 
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Dim i As Long
   If KeyAscii = vbKeyTab And mShift = 0 Then
      If Index = Text1.Count - 1 Then
         i = Text1.Count
         Load Text1(i)
         Text1(i).Top = Text1(i - 1).Top + Text1(0).Height + 60
         Text1(i).Visible = True
         Text1(i).SetFocus
      Else
         i = Index + 1
         Text1(i).SetFocus
      End If
   ElseIf KeyAscii = vbKeyTab And mShift = 1 Then
      If Index = 0 Then
         i = Text1.Count - 1
      Else
         i = Index - 1
      End If
      Text1(i).SetFocus
   End If
End Sub
 
Private Sub Text1_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
   mShift = 0
End Sub

17/01/2006, 13h09
jmfmarques

Citation:

Ce code je l'ai mis dans mon Load de mon formulaire

puis-je timidement rappeler que l'événement load n'est pas du tout indiqué pour ce genre d'intervention (sur une Form non encore complétement chargée à coup sur) ??? :?: :?:
17/01/2006, 14h10
bb62

J'ai mis ton code Amri_Daly mais il ne fonctionne pas.

As-tu mis tout ton code? Ou si non, peux tu me dire ce que je doit rajouter?

Merci d'avance.
17/01/2006, 14h15
bb62

Non désolé cela marche.

Mais je voudrais poser une question donc par exemple j'ai 4 TextBox : Text1(0), Text2(0), Text3(0) et Text4(0). Alors je tape differents informations dans les textBox à la suite, c'est à dire Text1(0), Text2(0), text3(0) et Text4(0) et que lorsque j'arrive à la Text4(0) il me met automatiquement la Text1(1), Text2(1), Text3(1) et La Text4(1) et Ainsi de suite?

C'est bon je crois avoir trouver, je vous met le code :

Code:

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Option Explicit
Dim mShift As Integer
 
Private Sub Text4_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
 mShift = Shift
End Sub
 
 
 
Private Sub Text4_KeyPress(Index As Integer, KeyAscii As Integer)
Dim i As Long
   If KeyAscii = vbKeyTab And mShift = 0 Then
      If Index = Text4.Count - 1 Then
         i = Text4.Count
         Load Text1(i)
         Load Text2(i)
         Load Text3(i)
         Load Text4(i)
         Text1(i).Top = Text1(i - 1).Top + Text1(0).Height + 60
         Text2(i).Top = Text2(i - 1).Top + Text2(0).Height + 60
         Text3(i).Top = Text3(i - 1).Top + Text3(0).Height + 60
         Text4(i).Top = Text4(i - 1).Top + Text4(0).Height + 60
         Text1(i).Visible = True
         Text2(i).Visible = True
         Text3(i).Visible = True
         Text4(i).Visible = True
         Text1(i).SetFocus
         Text2(i).SetFocus
         Text3(i).SetFocus
         Text4(i).SetFocus
      Else
         i = Index + 1
         Text1(i).SetFocus
         Text2(i).SetFocus
         Text3(i).SetFocus
         Text4(i).SetFocus
      End If
   ElseIf KeyAscii = vbKeyTab And mShift = 1 Then
      If Index = 0 Then
         i = Text4.Count - 1
      Else
         i = Index - 1
      End If
       Text1(i).SetFocus
         Text2(i).SetFocus
         Text3(i).SetFocus
         Text4(i).SetFocus
   End If
 
End Sub
 
Private Sub Text4_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
   mShift = 0
End Sub

Mais si quelqu'un à une autre méthode, il peut la faire part.

A++

17/01/2006, 14h28
jmfmarques

Tiens ??

tous ces Setfocus à la suite me semblent pour le moins surprenants ...

Alots, finalement, c'est le dernier Setfocus qui compte, non ? (mais tous les chemins mènent à Rome !)

Bizarre, Bizarre... :!: :!: :!:
17/01/2006, 14h33
bb62

arf, c'est pas totalement bon car ben je ne peux pas faire Tab et donc je suis obligé de cliquer sur mes textbox.

Car j'ai était obligé de mettre la propriété TabStop = false à toute les TextBox pour que lorsque je fais le Tab sur la text4(0) il me rajoute la ligne des textbox suivante : Text1(1), Text2(1), Text3(1), Text4(1).

Pouvez-vous m'aider?
Merci d'avance.

A++
17/01/2006, 14h55
Amri_Daly
tu doit gérer toi même les tabulation :

met la proprtiété de form "KeyPreview" à true
remplace les évènements keyup et keydown de tous las contrôles textbox par :
Code:

1 2 3 4 5 6 7 8 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) mShift = Shift End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) mShift = 0 End Sub
gère la tabulation avec l'évènement keypress des textbox :

Citation:

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = vbKeyTab Then
If mShift = 0 Then
Text2(Index).SetFocus
Else
If Index = 0 Then
Text4(Text1.Count - 1).SetFocus
Else
Text4(Index - 1).SetFocus
End If
End If
End If
End Sub

Private Sub Text2_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = vbKeyTab Then
If mShift = 0 Then
Text3(Index).SetFocus
Else
Text1(Index).SetFocus
End If
End If

End Sub

Private Sub Text3_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = vbKeyTab Then
If mShift = 0 Then
Text4(Index).SetFocus
Else
Text2(Index).SetFocus
End If
End If
End Sub

pour les cettes focus dans la proc text4_keypress une seule suffira :

Citation:

Private Sub Text4_KeyPress(Index As Integer, KeyAscii As Integer)
Dim i As Long
If KeyAscii = vbKeyTab And mShift = 0 Then
If Index = Text4.Count - 1 Then
i = Text4.Count
Load Text1(i)
Load Text2(i)
Load Text3(i)
Load Text4(i)
Text1(i).Top = Text1(i - 1).Top + Text1(0).Height + 60
Text2(i).Top = Text2(i - 1).Top + Text2(0).Height + 60
Text3(i).Top = Text3(i - 1).Top + Text3(0).Height + 60
Text4(i).Top = Text4(i - 1).Top + Text4(0).Height + 60
Text1(i).Visible = True
Text2(i).Visible = True
Text3(i).Visible = True
Text4(i).Visible = True
Text1(i).SetFocus
Else
i = Index + 1
Text1(i).SetFocus
End If
ElseIf KeyAscii = vbKeyTab And mShift = 1 Then
i = Index
Text3(i).SetFocus
End If

End Sub

A+

Merci à tous et plus particulièrement à Amri_Daly qui m'a été d'un grand aide.

Je vous met le code en entier pour ceux que ça intéresse :

Code:

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
 
Option Explicit
Dim mShift As Integer
 
Private Sub Text4_KeyPress(Index As Integer, KeyAscii As Integer)
Dim i As Long
   If KeyAscii = vbKeyTab And mShift = 0 Then
      If Index = Text4.Count - 1 Then
         i = Text4.Count
         Load Text1(i)
         Load Text2(i)
         Load Text3(i)
         Load Text4(i)
         Text1(i).Top = Text1(i - 1).Top + Text1(0).Height + 60
         Text2(i).Top = Text2(i - 1).Top + Text2(0).Height + 60
         Text3(i).Top = Text3(i - 1).Top + Text3(0).Height + 60
         Text4(i).Top = Text4(i - 1).Top + Text4(0).Height + 60
         Text1(i).Visible = True
         Text2(i).Visible = True
         Text3(i).Visible = True
         Text4(i).Visible = True
         Text1(i).SetFocus
      Else
         i = Index + 1
         Text1(i).SetFocus
      End If
   ElseIf KeyAscii = vbKeyTab And mShift = 1 Then
      If Index = 0 Then
         i = Text4.Count - 1
      Else
         i = Index - 1
      End If
        Text3(i).SetFocus
   End If
 
End Sub
 
 
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = vbKeyTab Then
If mShift = 0 Then
Text2(Index).SetFocus
Else
If Index = 0 Then
Text4(Text1.Count - 1).SetFocus
Else
Text4(Index - 1).SetFocus
End If
End If
End If
End Sub
 
Private Sub Text2_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = vbKeyTab Then
If mShift = 0 Then
Text3(Index).SetFocus
Else
Text1(Index).SetFocus
End If
End If
 
End Sub
 
Private Sub Text3_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = vbKeyTab Then
If mShift = 0 Then
Text4(Index).SetFocus
Else
Text2(Index).SetFocus
End If
End If
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   mShift = Shift
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
   mShift = 0
End Sub

Merci encore :bravo: et bonne chance à tous

Voir 40 message(s) de cette discussion en une page