開発環境
Visual Web Developer 2008 Express Edition(言語はVB.NET)
「年」「月」「日」のプルダウンと「曜日」を表示するラベルが配置された画面を作ろうとしています。
年と月のプルダウンに関しては、2000~2020年・1~12月までをhtmlで追加してやれば良いのですが、
たとえば、
2000年の1月を選択したらポストバックして2000年1月に存在する日を「日」のプルダウンに表示させ、さらに、日付のプルダウンで28日と選択したらそれに対応する曜日をラベルに表示させる、
といった場合にはどのようなコードを書けば可能でしょうか?
宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
『年』『月』のプルダウンのイベントとしてはSelectedIndexChangedを使えばいいでしょう
『日』はPreRenderイベントでいいと思いますよ
たとえば 年がDDLYear 月がDDLMonth 日がDDLDay 曜日がLBLDaysといったIDならば
Protected Sub DDLYear_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DDLYear.SelectedIndexChanged
' 2月なら閏日があるかもしれないのでDDLDayを更新
If DDLMonth.SelectedValue = 2 Then
DDLDay.Items.Clear()
End If
End Sub
Protected Sub DDLMonth_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DDLMonth.SelectedIndexChanged
' 月の変更時は DDLDayを更新
DDLDay.Items.Clear()
End Sub
Protected Sub DDLDay_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles DDLDay.PreRender
Dim dt As Date
If DDLDay.Items.Count = 0 Then
' 日の更新時の処理
' 選択年月の1日の日付を生成
dt = New Date(CInt(DDLYear.SelectedValue), CInt(DDLMonth.SelectedValue), 1)
' 翌月の前日つまり指定の月末を取得
dt = dt.AddMonths(1).AddDays(-1)
For n As Integer = 1 To dt.Day
DDLDay.Items.Add(n.ToString)
Next
End If
' 選択年月日の日付を生成
dt = New Date(CInt(DDLYear.SelectedValue), CInt(DDLMonth.SelectedValue), CInt(DDLDay.SelectedValue))
' 曜日の表示を更新
LBLDays.Text = dt.ToString("ddd")
End Sub
# コードの中の字下げ(インデント)には全角スペースを使用しています
# エラーになるようなら置換してください
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/01/10 09:15
- その他(Microsoft Office) エクセルの休日について教えてください。 1 2023/01/06 15:45
- Excel(エクセル) Excel2019、2021の日付、曜日の表示について 2 2022/11/29 15:01
- Excel(エクセル) エクセルの数式で教えてください。 1 2022/10/25 09:26
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2022/04/01 12:11
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/06/10 11:06
- Excel(エクセル) Excelで質問です。 詳細(写真) ①黄色の部分を全てプルダウンを設定する。 ②リストはG列 ③リ 1 2023/06/16 21:54
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- Excel(エクセル) IF 関数で「〇〇 という文字を含む場合」の分岐処理で表示された数字はSUMで数字集計できますか? 3 2022/08/02 16:29
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
6月の第2 第4火曜日は何日...
-
月の第一週とは
-
よくある 『 第○(1・2・3・4・...
-
週2回のペースって だいたい何...
-
エクセルで毎月第2週日の水曜日...
-
[Excel] ある日の曜日が当月の"...
-
Consolidateメソッドの引数のSo...
-
曜日と曜の使い分けがわかりま...
-
毎○曜日って、使いますか?
-
一年の第何週目であるかを判断...
-
プルダウンで日付と曜日を取得する
-
平日朝の国道246線混雑状況につ...
-
毎週同じ曜日にラブホに行くと...
-
英語で「何年何月何日何曜日に」
-
簡素で美しく記述するには・・・・
-
指定した日付から曜日を求める。
-
高校の情報の授業でプログラム...
-
Javaについて。
-
1番好きな曜日と、1番嫌いな曜...
-
日本語問題 昨日は何曜日ですか...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
月の第一週とは
-
よくある 『 第○(1・2・3・4・...
-
エクセルで毎月第2週日の水曜日...
-
6月の第2 第4火曜日は何日...
-
毎○曜日って、使いますか?
-
週2回のペースって だいたい何...
-
燃えるゴミの日は何曜日ですか?
-
[Excel] ある日の曜日が当月の"...
-
【機械式腕時計のメカニズムの...
-
VBA。複数のChangeイベントをま...
-
Excelで第一〇曜日を求める方法...
-
日本語問題 昨日は何曜日ですか...
-
毎週同じ曜日にラブホに行くと...
-
曜日のなぞ
-
c言語の質問です。 ある月のカ...
-
ユーザー定義の(aaa)
-
今週とは何曜日から何曜日まで...
-
カレンダープログラム、曜日の...
-
曜日と曜の使い分けがわかりま...
-
西暦・月からカレンダーを表示
おすすめ情報