Discussion :

[jerdel]

Bonjour à tous,

Voilà j'ai réalisé un programme dans lequel l'utilisateur doit choisir dans des combobox le jour du mois, le mois, l'année, l'heure, les minutes, les secondes et le jour de la semaine.
Par exemple Lundi 15/03/10 08:30:53

J'ai donc réaliser cela et ça fonctionne mais le prof m'a demandé de faire un truc plus simple.
Est-ce que quelqu'un pourrait me dire qu'elle est la manière la plus simple de faire ça?

Voici de la manière que moi j'ai fait:

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
47
48
49
50
51
52
53
54
55
56
57
Private Sub Form_Load()
 
Combo1.Text = "Heure"
Combo2.Text = "Minute"
Combo3.Text = "Seconde"
 
Combo4.Text = "Jour"
Combo5.Text = "Mois"
Combo6.Text = "Année"
 
Combo7.Text = "Nom du jour"
 
Form1.Enabled = False
 
For i = 1 To 7
Combo7.AddItem (i)
 
Next
 
 
For i = 0 To 9
Combo1.AddItem ("0" & i)
Combo2.AddItem ("0" & i)
Combo3.AddItem ("0" & i)
Combo4.AddItem ("0" & i)
Combo5.AddItem ("0" & i)
Combo6.AddItem ("0" & i)
Next
 
 
For i = 10 To 23
Combo1.AddItem (i)
Combo2.AddItem (i)
Combo3.AddItem (i)
Combo4.AddItem (i)
Combo6.AddItem (i)
Next
 
 
For i = 24 To 59
Combo2.AddItem (i)
Combo3.AddItem (i)
Combo6.AddItem (i)
Next
 
For i = 24 To 31
Combo4.AddItem (i)
Next
 
For i = 10 To 12
Combo5.AddItem (i)
Next
 
For i = 60 To 99
Combo6.AddItem (i)
Next
End Sub

Merci

[lourdi]

Je crois qu'il existe un contrôle qui s'appelle Dtpicker, il est comme le combobox avec pleins de trucs sur les dates.

[justgreat]

Que veut il par quelque chose de plus simple ? optimiser ton Code en gardant les combo ? ou utiliser des composants qui te facilitent la tache ?

[iclic]

Bonjour,

Déjà faire des combos indexées de 1 à 7

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
47
48
49
50
51
52
53
54
55
56
57
 
Private Sub Form_Load()
  Dim Temps(7) As String
  Dim i As Integer
  Dim iv As Integer
 
  Temps(1) = "Heure"
  Temps(2) = "Minute"
  Temps(3) = "Seconde"
  Temps(4) = "Jour"
  Temps(5) = "Mois"
  Temps(6) = "Année"
  Temps(7) = "Nom du jour"
 
 For i = 1 To 7
   Combo1(i).Text = Temps(i)
 Next
 
 
Form1.Enabled = False
 
For i = 1 To 7
 Combo1(7).AddItem (i)
Next
 
 
For i = 0 To 9
  For iv = 1 To 6
    Combo1(iv).AddItem ("0" & i)
  Next
Next
 
 
For i = 10 To 23
  For iv = 1 To 6
    Combo1(iv).AddItem (i)
  Next
Next
 
 
For i = 24 To 59
   Combo1(2).AddItem (i)
   Combo1(3).AddItem (i)
   Combo1(6).AddItem (i)
Next
 
For i = 24 To 31
  Combo1(4).AddItem (i)
Next
 
For i = 10 To 12
  Combo1(5).AddItem (i)
Next
 
For i = 60 To 99
 Combo1(6).AddItem (i)
Next

A+

[jerdel]

Il a dit d'utiliser des variables. Il faut garder les mêmes objets mais faire un code plus simple.