Microsoft VB.NET MonthCalendar kontroll tillåter användare att välja ett datum med hjälp av en månatlig kalendervy . Om du behöver anpassa utseendet på MonthCalendar kontroll , kan du ändra titeln teckensnitt , bakgrund och färgar förgrund kalendern . Du kan även begränsa datum och tider som du visar med MinDate och MaxDate egenskaper kontroll . Genom att ställa in " MonthCalendar.BoldedDates " egendom med den rad av valda värden du kan ange vilket datum ska visas i fetstil . Instruktioner
1
Klicka på "Start " i Windows och klicka sedan på " Microsoft Visual Studio . "
2
Klicka på " File ", välj " Open " och dubbelklicka sedan på på VB.NET program som du vill ändra MonthCalendar kontroll .
3
Skriv följande kod efter " public class Main ( ) " linje att ändra färg på kalendern och ange ett datumintervall för att visa på MonthCalendar kontroll :
Import System
Import system.windows.forms
Public NotInheritable Class Form1
Ärver System.Windows.Forms.Form
Public Shared Sub Main ( ) katalog
System.Windows.Forms.Application.Run ( New Form1 ) katalog
End Sub " Huvud
Public Sub New ( ) katalog
MyBase.New ( ) katalog
'Skapa kalendern .
Me.MonthCalendar1 = Ny
System . Windows.Forms.MonthCalendar
" Ställ in kalendern platsen .
Me.MonthCalendar1.Location = Ny System.Drawing.Point
( 47 , 16 ) katalog
' Ändra färg .
Me.MonthCalendar1.BackColor =
System.Drawing.SystemColors.Info
Me.MonthCalendar1.ForeColor =
System.Drawing.Color.FromArgb ( _
" Lägg datum till MonthlyBoldedDates array .
Me.MonthCalendar1.MonthlyBoldedDates = Ny
System.DateTime ( ) _ { Nytt System . DateTime ( 2011 , 9 , 15 , 0 , 0 , 0 ,
0 ) , _ New System.DateTime ( 2002 , 9 , 30 , 0 , 0 , 0 , 0 )}
' Anger maximalt synliga datum i kalendern till 12/31/2011 .
Me.MonthCalendar1.MaxDate = Ny System.DateTime 2011 ( ,
12 , 31 , 0 , 0 , 0 , 0 ) katalog
" Ställ in minsta synliga datum i kalendern till 01/01/1999 .
Me.MonthCalendar1.MinDate = Ny System.DateTime 1999 ( , 1 ,
1 , 0 , 0 , 0 , 0 ) katalog
End Sub
' Visa start-och slutdatum i textrutan .
Me.TextBox1.Text = " Datum Selected : Start = " + _
e.Start.ToShortDateString ( ) + " : Slut = " + Review
e.End.ToShortDateString ( ) katalog
End sub
End Class
4
Klicka på " File " och klicka sedan på " Spara " för att verkställa ändringen till kontrollen i VB.NET program .
