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