- ベストアンサー
コンボボックスに日付を表示する
現在、VB.netを勉強中です。 コンボボックス内に今日から一週間分の日付を表示したいのですが、上手く行きません。 Dim dtToday As DateTime = DateTime.Today ComboBox1.Items.Add(dtToday.ToString()) と書いたところ現在の日付を取得しコンボボックス内に 2013/5/28 00:00 と表示されています。 これを時刻を表示させず（2013/5/28 のみ表示）、For文を用いて一週間分表示させたのですが、どのようにすればよいでしょうか？ 分かる方がいれば、よろしくお願いします。
- shallxx
- お礼率100% (2/2)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
Dim dtToday As DateTime = DateTime.Today For i As Integer = 0 To 6 ComboBox1.Items.Add(dtToday.AddDays(i).ToString("yyyy/M/d")) Next こんな感じかな？
関連するQ&A
- キューとコンボボックスの使い方 VB2008
VB2008を使っています。 キューとコンボボックスの使い方がわからないのですが、以下のソースで (1)キューとデータソースを使う。 Dim queue As Queue = New Queue(20) For i As Integer = 0 to 9 queue.Enqueue( i.ToString() ) Next i ComboBox1.DataSource = queue.ToArray ComboBox2.DataSource = queue.ToArray (2)べたな方法 ComboBox1.Items.Clear() For i As Integer = 0 to 9 ComboBox1.Items.Add( i.ToString() ) Next i ComboBox2.Items.Clear() For i As Integer = 0 to 9 ComboBox2.Items.Add( i.ToString() ) Next i ------------------------ (1) (1)と(2)は厳密にどのように違うのでしょうか？ (2) (1)で心配なのは、キューの上限を20にしていて、実際使っているのは10個で後は空です。 この状態で、コンボボックスのDataSourceにセットした場合、(2)と同じように10件だけになっているのでしょうか？ (3) (1)は同じキューを使いまわしています。コンボボックス１と２は独立して使えるのでしょうか？（データは同じです。）
- ベストアンサー
- Visual Basic
- VisualBasic2010のコンボボックス
VisualBasic2010のコンボボックスに関して質問です。 With ComboBox1 .Items.add("項目１") .Items.add("項目２") End With のように、自身で項目を追加するのではなく、 ユーザのフォルダ配置情報を取得してコンボボックスに表示させるには、 どのようにすればよろしいでしょうか。 イメージとしては、WindowsXPで画像等を保存する場合にでる保存ダイアログ。 あれのコンボボックスのような感じです。
- 締切済み
- Visual Basic
- ＶＢ２００８でコンボボックスのクリアについて
ＶＢ２００８でコンボボックスのクリアについて お世話になります。 コンボの設定を With ComboBox1 .Items.Clear() .Items.Add("a") .Items.Add("b") .SelectedIndex = 0 End With のようにしていた場合 ComboBox1.Items.Clear()を実行しても "a"の値がコンボに残るみたいなのですが、 指定の方法が悪いのでしょうか？ .SelectedIndex = 0を指定しないと クリアされるみたいなのですが。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- コンボボックスで２週間前までの日付を選択したい
VBA 初心者です。 ユーザーフォーム コンボボックスに 今日から２週間前までの日付を選択できるようにしたいです。 現在、 試行してもコンボボックスには何も表示されません。 ご教授願います。 Private Sub Form_Load() Dim i As Integer For i = 0 To 14 ComboBox5.AddItem Format(Date - i, "yyyy-mm-dd") Next ComboBox5.Text = ComboBox5.List(0) End Sub
- 締切済み
- オフィス系ソフト
- VB2008 日付表示
コンボボックス内に日付を「08/06/12(木)」のような形式で表示させたいのですが、うまく行きません。 Dim cnt As Integer For cnt = 0 To 20 Me.CmbDate.Items.Add(Format(DateAdd("d", cnt, Today), "yy/mm/dd(aaa)")) Next と書いてみたんですが、「08/00/12(aaa)」・・・という表示になってしまいます。日付表示の仕方をご存知の方、教えていただけないでしょうか？
- 締切済み
- Visual Basic
- コンボボックスに今日を含む、4日前までの日付を表示したい
ただいまVB6.0を勉強中です。 コンボボックスについて質問なのですが、 フォームを開いたらコンボボックスに 今日から（フォームを開いたときから）数えて4日前までの日付を、 ドロップダウン形式で表示したいのですが・・・。 どのような考え方、コーディングをすればよいでしょうか? 理想は下記のような感じです 2009-10-06▽(フォームを開いた日) 2009-10-05 (1日前） 2009-10-04 (2日前） 2009-10-03 (3日前） 2009-10-02 (4日前） 今現在、フォームを開いた際に コンボボックスに本日の日付しか表示することしかできません。 Private Sub Form_Load() ComboBox1 = Format(Now, "yyyy-mm-dd") End Sub ご教授のほど、よろしくお願いいたいます
- ベストアンサー
- Visual Basic
- コンボボックスのSelectedItemの使い方
エリアテーブルを取得し コンボボックスの見える値は「値」にして コンボボックスを取得するときには「コード」を 取れるようにしたいと思っています。 どのように書くと取得できるのでしょうか？ バインドするやり方が分からなくて 下記のようになっています。 Dim strSql As String Dim dr As SqlClient.SqlDataReader = Nothing Dim daAdp As New SqlClient.SqlDataAdapter Dim cmd As New SqlClient.SqlCommand Dim ds As DataSet = New DataSet() mConn = New SqlConnection 'ＤＢのオープン Conn.DbConnect() Dim dbCmd As SqlCommand = Nothing 'SQL発行 strSQL = "SELECT コード,値 " strSQL = strSQL & "FROM エリア" Conn.ExecSqlSelect(strSql, dr) ComboBox1.Items.Clear() Do While dr.Read ComboBox1.Items.Add(dr.GetString(1)) ComboBox1.SelectedItem = dr.GetString(0) Loop
- ベストアンサー
- Visual Basic
- VB.NET)コンボボックスの連動について
失礼いたします、コンボボックスを連動させるプログラムを書いているのですがうまく連動しません、よろしければお知恵をお貸しくださいませ コードを書くにあたりの条件は、開発はVisual Basic 2005のVisual Basic データベースから呼び出す場合ならAccess 2003を使用(今現在は使用しないで開発しています) Access内でコンボボックスを、Excelでコンボボックスをなどはしません…今回はVBでコンボボックスを連動させたい 今回ちょっと公に出来ない箇所があり記号で伏せさせていただきますが、記号は日本語が入ります Form1でload(ロードってこれであってましたっけ？)部分に以下を記載 dim strdata as string = {"●●","●●","●●"} (すみません、あと一文あったのですがちょっと思い出せないので) それで連動するcomobox2には以下を記載 dim strdata as string = {"●●","●●"} dim i as integer select case strdata(i) case 0 combobox2.item.addrange("●△ ×") combobox2.item.addrange("●△ ×") combobox2.item.addrange("●△ ×") case 1 combobox2.item.addrange("●△ ×") combobox2.item.addrange("●△ ×") combobox2.item.addrange("●△ ×") となり、combobox1で最初の●●が選ばれればcombobox2のcase0を表示させるようにしたいと思っていますが上手く表示が出ません 今週中に仕上げなければいけないので昨日今日と色々調べてみたのですが、VBAやAccess・Excel関係が殆どでVBのが見つからずAccessやExcelのを見ても上手くいかなかったのと、解説が良く分からなかったので、分かりやすく解説をお願いします
- 締切済み
- Visual Basic
- c# 日付に関して
c# 日付に関して お世話になります。 下記のソースコードで、 メッセージボックスが表示される時、日付の後に0:00:00と 時間まで表示されてしまうのですが、日付だけ表示させたい 場合はどの様にしたら宜しいでしょうか。 親切な方のご回答をお待ち致します。 宜しくお願い致します。 記 DateTime dtToday = DateTime.Today; DateTime SSnow = dtToday.AddDays(-7); DialogResult ans; ans = MessageBox.Show(SSnow + "からの集計表を照会し ますか？", "Microsoft Visual Studio", MessageBoxButtons.YesNo, MessageBoxIcon.Question);
- ベストアンサー
- C・C++・C#
- コンボボックスの初期表示について
コンボボックスの初期表示についてですが、 試験できる環境がないため、以下の認識で正しいか教えてください。 コンボボックス1行目を表示 ComboBox1.SelectedIndex = 0 コンボボックス2行目を表示 ComboBox1.SelectedIndex = 1 空白を表示 ComboBox1.SelectedIndex = null or "" 文字を表示 ComboBox1.SelectedIndex = "表示"
- ベストアンサー
- Visual Basic
お礼
実行してみたところまさに希望していた通りに表示されました。 素早い回答をいただき、ありがとうございました！