Combox

Signaler
Messages postés
52
Date d'inscription
lundi 2 mars 2009
Statut
Membre
Dernière intervention
14 mai 2020
-
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
-
Salut a tous
J'ai un probleme a resoudre avec une application que je devellope sur VB 6.0. Il ya deux combo box Cmb1 et Cmb2 le contenue du Combo box 2 dependant du contenu du Cmb1
Par example si le cmb1 a pour valeur un mois a 31 jour par example Janvier,Mars,Mais,Juillet,Aout,Octobre ou Decembre le Cmb2 aura comme contenu 1 jusqu'a 31 et si ce un mois a 30 jour example Avril,Juin,Septembre ou Novembre cmb2 aura comme contenu 1 jusqu'a 30 , enfin si ce fevrier le contenu sera finalement 29

La memme question est repose mais seulment avec deux autre controls deux Option boutton et un combo box
Si le boutton Option 1 est a true le combo box contient les chiffre 1 et 2
Si le boutton Option2 est true le combo contient les chiffre 3,4,5,6
Donc le contenue du combo box depend des option qui a ete choisi.

Merci

1 réponse

Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
50
Bonsoir
  Private Sub designcombo1()
Me.Combo1.Clear
Me.Combo1.AddItem "Janvier"
Me.Combo1.AddItem "Fevrier"
Me.Combo1.AddItem "Mars"
Me.Combo1.AddItem "Avril"
Me.Combo1.AddItem "Mai"
Me.Combo1.AddItem "Juin"
Me.Combo1.AddItem "Juillet"
Me.Combo1.AddItem "Aout"
Me.Combo1.AddItem "Septembre"
Me.Combo1.AddItem "Octobre"
Me.Combo1.AddItem "Novembre"
Me.Combo1.AddItem "Decembre"
Me.Combo2.Enabled = False
End Sub


Private Sub Combo1_Click()
Dim thisyear As Integer
thisyear = Year(Now)

 
 Select Case Combo1.ListIndex + 1
  Case 1, 3, 5, 7, 8, 10, 12: Combo2.Tag = 31
  Case 2
       If IsDate("29/2/" & Trim(str(thisyear))) Then
          Combo2.Tag = 29
       Else
          Combo2.Tag = 28
       End If
          
  Case 4, 6, 9, 11: Combo2.Tag = 30
 End Select
 designcombo2
End Sub

Private Sub designcombo2()
Dim iter As Byte
Me.Combo2.Clear
For iter = 1 To Me.Combo2.Tag
  Me.Combo2.AddItem iter
Next iter
Me.Combo2.Enabled = True
End Sub

Private Sub Form_Load()
designcombo1
End Sub

Private Sub Option1_Click()
Dim iter As Byte
If Me.Option1 = True Then
  Me.Combo3.Clear
  For iter = 1 To 2
   Me.Combo3.AddItem iter
  Next iter
End If
End Sub

Private Sub Option2_Click()
Dim iter As Byte
If Me.Option2 = True Then
  Me.Combo3.Clear
  For iter = 3 To 6
   Me.Combo4.AddItem iter
  Next iter
End If
End Sub