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