Calendarコントロールについて (ID:117098)

名前

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

本文 すみません。こんな感じです↓ Private Sub Formkare_Load() Calendar1.Value = Date Label1.Caption = Calender1.Day Label2.Caption = Format(Calendar1.Value, "aaa") VScroll1.Value = Calendar1.Year VScroll1.Min = Calendar1.Year - 10 VScroll1.Max = Calendar1.Year + 10 HScroll1.Value = Calendar1.Month End Sub Private Sub HScroll1_Change() Calendar1.Left = HScroll1.Value Label2.Caption = Format(Calendar1.Value, "aaa") End Sub Private Sub VScroll1_Change() Calendar1.Top = VScroll1.Value Label2.Caption = Format(Calendar1.Value, "aaa") End Sub Private Sub Calendar1_Click() Label1.Caption = Calendar1.Day Label2.Caption = Format(Calendar1.Day, "aaa") HScroll1.Min = Calendar1.Month VScroll1.Max = Calendar1 End Sub