Ajouter des valeurs dans un combobox

Version imprimable

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:

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

03/05/2010, 23h36
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.
04/05/2010, 03h47
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 ?

Bonjour,

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

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
 
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+

04/05/2010, 14h52
jerdel

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