Aide sur Dates et sélection multiple.

Question

Bonjour tout le monde,



je voudrais &#233;crire un petit programme qui affiche tous les jours d'un
mois et qui permet &#224; l'utilisateur de s&#233;lectionner des jours qui ne se
suivent pas forc&#233;ment.

Connaissez vous le contr&#244;le qui permet de faire &#231;&#224;. Le contr&#244;le
calendrier de microsoft ne permet que la s&#233;lection sur des jours qui se
suivent.

Je voudrais par exemple s&#233;lectionner le 3, le 6 et le 24 septembre et &#233;videment r&#233;cup&#233;rer ces s&#233;lections pour les traiter.



Merci de votre aide.

jpleroisse · Answer

Bonjour,
Tu peux r&#233;cup&#233;rer les dates dans des textBox et ensuite les placer dans des vaiables.
Pour cel&#224;, place un Combobox, trois TextBox et le contr&#244;le Calendrier sur ta Form et mets ce code

Dans un Module:
Public str1 As String
Public str2 As String
Public str3 As String

Dans la Form:
Private Sub Form_Load()
Combo1.AddItem " 1&#232;re date"
Combo1.AddItem " 2&#232;me date"
Combo1.AddItem " 3&#232;me date"
Combo1.ListIndex = 0
End Sub

Private Sub Calendar1_Click()
If Combo1.ListIndex = 0 Then
Text1.Text = Calendar1.Value
Combo1.ListIndex = 1
ElseIf Combo1.ListIndex = 1 Then
Text2.Text = Calendar1.Value
Combo1.ListIndex = 2
ElseIf Combo1.ListIndex = 2 Then
Text3.Text = Calendar1.Value
End If
str1 = Text1.Text
str2 = Text2.Text
str3 = Text3.Text
End Sub

jpleroisse

Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e

jpleroisse · Answer

Re,
Si tu veux, tu peux rendre la Combobox invisible (propri&#233;t&#233; Visible &#224; false), cel&#224; fonctionne quand m&#234;me.
jpleroisse

Aide sur Dates et sélection multiple.

2 réponses

Discussions similaires