コンボボックスにて

---

現在VB6.0を使用しているんですが、
コンボボックスに

-例-
年▼   月▼   日▼←コンボボックス
2005    1     1
2006    2     2
2007    3     3
2008    4     4

とプルダウン方式にて表示したいのですが、この値はシステム日付からとってくることはできるのでしょうか？そうでないやり方でもよろしいので、
もしわかる方がおりましたら、やり方を教えていただきたいと思います。

編集 削除

---

…うーむ。何が分からないのだろう…。
見たまんま数字を AddItem するようにしか見えない…
…とりあえず AddItem して下さい。

システム日付は Now 関数で取れます。

編集 削除

---

年・月・日のコンボボックスがあって、それぞれに初期値として
システム日付の年月日を表示させたいということなら
こんな感じでしょうか。

Dim i As Integer

For i = 2005 To 2010
   Combo1.AddItem i
Next i

For i = 1 To 12
   Combo2.AddItem i
Next i

For i = 1 To 31
   Combo3.AddItem i
Next i

Combo1.text = Year(Date)
Combo2.text = Month(Date)
Combo3.text = Day(Date)

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。