OptimusPrime
Aug 1st, 2002, 04:22 AM
Woo Hoo . . . . my first post ! :D
hope someone can help us out :rolleyes:
right . . . i've got this app i've been working on for a few weeks now and have come to design a form that dynamically builds calendars for a date range (which works at the moment) but the problem im having is accessing the calendars after i've created them to select certain dates.
the code for generating them :
For i = 0 To i
Dim MyCalender As Calendar = New Calendar()
' Set Calendar properties.
MyCalender.VisibleDate = DateAdd(DateInterval.Month, i, dStartDate)
MyCalender.OtherMonthDayStyle.ForeColor = System.Drawing.Color.Gray
MyCalender.TitleStyle.BackColor = System.Drawing.Color.CadetBlue
MyCalender.TitleStyle.ForeColor = System.Drawing.Color.Black
MyCalender.DayStyle.BackColor = System.Drawing.Color.Gray
MyCalender.SelectionMode = CalendarSelectionMode.Day
MyCalender.Font.Name = "Verdana"
MyCalender.Font.Size = System.Web.UI.WebControls.FontUnit.XSmall
MyCalender.ShowNextPrevMonth = False
MyCalender.ShowGridLines = False
Form1.Controls.Add(MyCalender)
Next
hope someone can help us out :rolleyes:
right . . . i've got this app i've been working on for a few weeks now and have come to design a form that dynamically builds calendars for a date range (which works at the moment) but the problem im having is accessing the calendars after i've created them to select certain dates.
the code for generating them :
For i = 0 To i
Dim MyCalender As Calendar = New Calendar()
' Set Calendar properties.
MyCalender.VisibleDate = DateAdd(DateInterval.Month, i, dStartDate)
MyCalender.OtherMonthDayStyle.ForeColor = System.Drawing.Color.Gray
MyCalender.TitleStyle.BackColor = System.Drawing.Color.CadetBlue
MyCalender.TitleStyle.ForeColor = System.Drawing.Color.Black
MyCalender.DayStyle.BackColor = System.Drawing.Color.Gray
MyCalender.SelectionMode = CalendarSelectionMode.Day
MyCalender.Font.Name = "Verdana"
MyCalender.Font.Size = System.Web.UI.WebControls.FontUnit.XSmall
MyCalender.ShowNextPrevMonth = False
MyCalender.ShowGridLines = False
Form1.Controls.Add(MyCalender)
Next