-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: mrp
Message 3 in Discussion
Private Sub
cmdPreviousYear_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles cmdPreviousYear.Click
ChangeMonthYear((Calendar1.TodaysDate.Year) - 1, Calendar1.TodaysDate.Month,
Calendar1.TodaysDate.Day)
End Sub
Private Sub
cmdNextYear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
cmdNextYear.Click
ChangeMonthYear((Calendar1.TodaysDate.Year) + 1, (Calendar1.TodaysDate.Month),
Calendar1.TodaysDate.Day)
End Sub
Private Sub
cmdNext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
cmdNext.Click ''month
If
(Calendar1.TodaysDate.Month) = 12 Then ''dec
then
ChangeMonthYear((Calendar1.TodaysDate.Year) + 1, (Calendar1.TodaysDate.Month) -
11, Calendar1.TodaysDate.Day)
Else
ChangeMonthYear((Calendar1.TodaysDate.Year), (Calendar1.TodaysDate.Month) + 1,
Calendar1.TodaysDate.Day)
End
If
End Sub
Private Sub
cmdPrevious_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
cmdPrevious.Click 'year
If
(Calendar1.TodaysDate.Month) = 1 Then ''jan
then
ChangeMonthYear((Calendar1.TodaysDate.Year) - 1, (Calendar1.TodaysDate.Month) +
11, Calendar1.TodaysDate.Day)
Else
ChangeMonthYear((Calendar1.TodaysDate.Year), (Calendar1.TodaysDate.Month) - 1,
Calendar1.TodaysDate.Day)
End
If
End
Sub
Private Sub ChangeMonthYear(ByVal myYear As Int16,
ByVal myMonth As Int16, ByVal myDate As
Int16)
Calendar1.VisibleDate = New
DateTime(myYear, myMonth, myDate)
'Calendar1.SelectedDate = New DateTime(myYear, myMonth,
myDate)
Calendar1.TodaysDate = New
DateTime(myYear, myMonth, myDate)
cmbMonth.SelectedIndex = myMonth -
1
txtYear.Text =
myYear
End Sub
hope it helps
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/bdotnet/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you received
this message by mistake, please click the "Remove" link below. On the pre-addressed
e-mail message that opens, simply click "Send". Your e-mail address will be deleted
from this group's mailing list.
mailto:[EMAIL PROTECTED]
