リストボックスについて

質問

リストボックスの表示に2日後の日付を表示し、
プルダウンは1日後から一週間後の日付まで表示させるやり方に
ついて教えて頂けますか。
リストボックスの表示に2日後、プルダウンも2日後はできたのですが。

回答No.1

temtecomai2 · ベストアンサー

今日の日付を求め、それに 1日足して明日の日付を求める。この日付をリストボックスのアイテムの起点とする。
明日の日付に 1日ずつ足しながらリストボックスにアイテムを追加する。
リストボックスの 2番目のアイテムを選択する。

Dim rootDate As Date = Today().AddDays(1)

For i As Double = 0 To 6
　Me.ListBox1.Items.Add(rootDate.AddDays(i))
Next
Me.ListBox1.SelectedIndex = 1