Discussion :

[libuma]

Bonjour ,
Selon le nombre de champs contenu dans la table de la BD choisie , je désire créer dynamiquement des controls pour tout les champs.. seulement j'ai un petit soucis :s
Voici une partie de mon code :

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
38
39
40
41
42
43
44
45
46
 
For i = 0 To Form1.resu.Fields.Count - 1
 
Set o = Form1.resu.Fields(i)
Set c = Form2.Controls.Add("VB.label", "lbl" & Format(i))
c.FontBold = True
c.Top = (i * 300) + 50
c.Left = 100
c.Height = 250
c.Caption = o.Name & "(" & typeofField(o) & ")"
If typeofField(o) = "B" Then
 Set t = Me.Controls.Add("VB.checkBox", o.Name)
Else: Set t = Me.Controls.Add("VB.TextBox", o.Name)
End If
 
t.Visible = True
t.Top = (i * 300) + 20
t.Left = 2000
t.Height = 250
If (o.Attributes And adFidIsNullable) Then
  t.BackColor = RGB(224, 224, 224)
End If
 
If o.Attributes = 16 Then
 t.TabStop = False
 t.Locked = True
 t.BackColor = RGB(32, 224, 224)
End If
 
If typeofField(o) = "T" Then
 t.MaxLength = o.DefinedSize
 t.Width = DefinedSize * 1300
Else
 t.Width = 1000
 
 End If
On Error GoTo 0
If typeofField(o) = "N" Or typeofField(o) = "C" Then
t.Alignment = 1
Else
t.Alignment = 0
End If
 
Next i
 
End Sub

et

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
 
Function typeofField(f As ADODB.Field) As String
Select Case f.Type
Case adBigInt
  typeofField = "N"
Case adBoolean
 typeofField = "B"
Case adCurrency
  typeofField = "C"
Case adDate, adBDate, adDBTime, adDBTimeStamp
 typeofField = "D"
Case adGUID
 typeofField = "G"
Case adLongVarChar
 typeofField = "M"
Case Else
 typeofField = "T"
 End Select
 
 
End Function

Comme résultat , j'obtiens , pour chaque champs , un txtfield vide de 1cm sans labels

Pourriez-vous m'éclairer svp

[zazaraignée]

Salut

Il y a une rubrique à ce sujet dans la FAQ.

[libuma]

merci

[zazaraignée]

No hay de que.

Si ça ne résout pas tout ton problème, tu dis.

[libuma]

dans le faq , ils n'expliquent que pour la création d'un control..
moi j'ai ceci :

Code :

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

1
2
3
4
5
 
If typeofField(o) = "B" Then
 Set t = Me.Controls.Add("VB.checkBox", "dynamic"& i)
Else: Set t = Me.Controls.Add("VB.TextBox", "dyna" & i)
End If

si j'ai bien compris , le nom du control que j'ai créé deviens dyna1 par exemple si i vaut 1..
Lorsque je veux modifier les valeurs de cet élément , comment dois-je y faire référence?
dans une boucle , faire "dyna"&i.text par exemple , n'est certainement pas bon..
Et aussi vu que je ne sais pas si ce sera un checkbox ou textbox , je ne peux le déclarer en "dim"

J'ai réussi à manipuler tout ça mais d'une autre façon , j'essaye de cette façon mais je n'y parviens pas..

[OhMonBato]

Personnellement je prefere creer un controle d'index 0 et le rendre invisible et ensuite ajouter des controles a ce groupe par code de la maniere suivante, ca me semble plus simple pour y faire reference par la suite, puisque tous tes controles ont le meme nom, seul l'index les differencie.
Avec un controle Checkbox, nomme CheckTest en mode creation :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Command1_Click()
Dim i As Byte
i = ChkTest.Count
Load ChkTest(i)
ChkTest(i).Visible = True
ChkTest(i).Left = i * 100
ChkTest(i).Top = i * 200
End Sub

[libuma]

moui j'ai eu examen ce matin , j'ai procédé de cette manière , tant pis j'oublie l'autre

Merci