Combox

Question

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

cs_ShayW · Answer

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

Combox

1 réponse

Votre réponse

Discussions similaires