Pas De Microsoft VB.NET MonthCalendar controle kunnen gebruikers een date met een maandkalender weergave te selecteren . Als u het uiterlijk van de MonthCalendar controle aanpassen, kunt u de titel lettertype , achtergrond en voorgrond kleuren van de kalender te wijzigen . U kunt ook beperken de datum en de tijd dat je weer met de MinDate en MaxDate eigenschappen van de controle. Door het instellen van de " MonthCalendar.BoldedDates " eigenschap met de array van gekozen waarden die u kunt toewijzen welke data wordt weergegeven in het vet . Instructies
1 Klik op "Start " in Windows en klik vervolgens op " Microsoft Visual Studio . "
Klik 2 " Bestand ", selecteer "Open " en dubbelklik op op het VB.NET programma waarin u de MonthCalendar controle te wijzigen .
3 Voer de volgende code na de "Public Class Main ( ) " lijn naar de kleur van de kalender te wijzigen en stel het bereik van data weer te geven op de MonthCalendar controle : Imports System Imports
System.Windows.Forms Public NotInheritable Class Form1
Erft System.Windows.Forms.Form openbare
Shared Sub Main ( ) System.Windows.Forms.Application.Run
( Nieuw Form1 ) End Sub '
Main < br > Public Sub New ( ) MyBase.New
( ) op ' de kalender maken .
Me.MonthCalendar1 = Nieuwe Systeem
. Windows.Forms.MonthCalendar
' Stel de kalender locatie . Me.MonthCalendar1.Location
= Nieuwe System.Drawing.Point
( 47 , 16 ) op ' Verander de kleur . Me.MonthCalendar1.BackColor =
System.Drawing.SystemColors.Info Me.MonthCalendar1.ForeColor
=
System.Drawing.Color.FromArgb ( _
' Add data van MonthlyBoldedDates array. Me.MonthCalendar1.MonthlyBoldedDates
= Nieuwe System.DateTime
( ) _ { New System . DateTime ( 2011 , 9 , 15 , 0 , 0 , 0 , Verenigde 0 ) , _ New System.DateTime ( 2002 , 9 , 30 , 0 , 0 , 0 , 0 ) }
' Bepaalt de maximale zichtbare datum op de kalender om 12/31/2011 .
Me.MonthCalendar1.MaxDate = Nieuw System.DateTime ( 2011 ,
12 , 31 , 0 , 0 , 0 , 0 ) op Twitter " Stel de minimale zichtbare datum op de kalender om 01/01/1999 .
Me.MonthCalendar1.MinDate = Nieuw System.DateTime ( 1999 , 1 ,
1 , 0 , 0 , 0 , 0 ) end Sub
' Laat de begin-en einddatum in het tekstvak .
Me.TextBox1.Text = " Datum Geselecteerd : Start = " + _ e.Start.ToShortDateString ( ) op + " : End = " + e.End.ToShortDateString ( ) op End
sub End Class
4
Klik op " File " en klik op " Opslaan " om de wijziging toe te passen om de controle in uw VB.NET toepassing .
< br >
|
