verjaardagskalender

[chuckie19]

hallo,

ik ben bezig met het maken van een verjaardagskalender.
ik ben pas begonnen met het programmeren.mijn vraag is nu
ik heb een textbox. een datetimepicker en 12 listboxen(voor iedere maand een)
hoe kan ik ervoor zorgen dat als ik in textbox een naam intypt met een datum in de datetimepicker dat deze in de goede listbox wordt verwerkt.

alvast bedankt,
chuckie

ik werk met VB 2005

 

[etri]

Hé Chuckie,

Ik zou een knop maken (btnAdd) waarbij je de naam in de bij de datum behorende listbox plaatst, via de code:

  Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
    Dim value As DateTime
    value = DateTimePicker1.Value

    Select Case value.Month
      Case 1
        ListBox1.Items.Add(TextBox1.Text)
      Case 2
        ListBox2.Items.Add(TextBox1.Text)
      Case 3
        ListBox3.Items.Add(TextBox1.Text)
      Case 4
        ListBox4.Items.Add(TextBox1.Text)
      Case 5
        ListBox5.Items.Add(TextBox1.Text)
      Case 6
        ListBox6.Items.Add(TextBox1.Text)
      Case 7
        ListBox7.Items.Add(TextBox1.Text)
      Case 8
        ListBox8.Items.Add(TextBox1.Text)
      Case 9
        ListBox9.Items.Add(TextBox1.Text)
      Case 10
        ListBox10.Items.Add(TextBox1.Text)
      Case 11
        ListBox11.Items.Add(TextBox1.Text)
      Case 12
        ListBox12.Items.Add(TextBox1.Text)

    End Select

  End Sub

 

[chuckie19]

hé etri
bedankt voor je reactie.
Ik heb alleen van de datetimepicker 2 comboboxen gemaakt een met maand en een met datum. dit heb ik gedaan, omdat bij de datetimepicker tijd en jaar erbij komt en dit niet nodig is bij een verjaardagskalender.
kan ik jouw code hierop aanpassen?

bedankt

 

[That Guy]

Ik heb alleen van de datetimepicker 2 comboboxen gemaakt een met maand en een met datum

Door gewoon in plaats van de value van de datum, de combo's text te pakken.
Zo:

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
    Dim value As DateTime
    value = comboMonth.text [COLOR="seagreen"]'ofzo[/COLOR]
[COLOR="SeaGreen"]'dat is dus veranderd. Noot ook dat hieronder, bij de 'select case value' de ".month" weg is.[/COLOR]
    Select Case value
      Case 1
        ListBox1.Items.Add(TextBox1.Text)
      Case 2
        ListBox2.Items.Add(TextBox1.Text)
      Case 3
        ListBox3.Items.Add(TextBox1.Text)
      Case 4
        ListBox4.Items.Add(TextBox1.Text)
      Case 5
        ListBox5.Items.Add(TextBox1.Text)
      Case 6
        ListBox6.Items.Add(TextBox1.Text)
      Case 7
        ListBox7.Items.Add(TextBox1.Text)
      Case 8
        ListBox8.Items.Add(TextBox1.Text)
      Case 9
        ListBox9.Items.Add(TextBox1.Text)
      Case 10
        ListBox10.Items.Add(TextBox1.Text)
      Case 11
        ListBox11.Items.Add(TextBox1.Text)
      Case 12
        ListBox12.Items.Add(TextBox1.Text)

    End Select

  End Sub

 

[chuckie19]

ok bedankt. ik heb hem af.
bedankt voor hulp en snelle reactie

 

[etri]

Zet je de vraag even op opgelost? :thumb: