VB.Net Tutorial/GUI/MonthCalendar
Содержание
Add Bolded Date for MonthCalendar
<source lang="vbnet">Imports System.Windows.Forms public class MonthCalendarAddBoldedDate
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Console.WriteLine(calReservation.TodayDateSet) calReservation.AddBoldedDate(Now) End Sub Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click Me.Close() End Sub Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click Me.Close() End Sub
End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.calReservation = New System.Windows.Forms.MonthCalendar Me.btnOk = New System.Windows.Forms.Button Me.btnCancel = New System.Windows.Forms.Button Me.SuspendLayout() " "calReservation " Me.calReservation.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.calReservation.Location = New System.Drawing.Point(8, 8) Me.calReservation.Name = "calReservation" Me.calReservation.Size = New System.Drawing.Size(178, 155) Me.calReservation.TabIndex = 0 " "btnOk " Me.btnOk.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnOk.Location = New System.Drawing.Point(208, 8) Me.btnOk.Name = "btnOk" Me.btnOk.Size = New System.Drawing.Size(56, 24) Me.btnOk.TabIndex = 1 Me.btnOk.Text = "OK" " "btnCancel " Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.btnCancel.Location = New System.Drawing.Point(208, 40) Me.btnCancel.Name = "btnCancel" Me.btnCancel.Size = New System.Drawing.Size(56, 24) Me.btnCancel.TabIndex = 2 Me.btnCancel.Text = "Cancel" " "Form1 " Me.AcceptButton = Me.btnOk Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.CancelButton = Me.btnCancel Me.ClientSize = New System.Drawing.Size(272, 174) Me.Controls.Add(Me.btnCancel) Me.Controls.Add(Me.btnOk) Me.Controls.Add(Me.calReservation) Me.Name = "Form1" Me.Text = "UseMonthCalendar" Me.ResumeLayout(False) End Sub Friend WithEvents calReservation As System.Windows.Forms.MonthCalendar Friend WithEvents btnOk As System.Windows.Forms.Button Friend WithEvents btnCancel As System.Windows.Forms.Button
End Class</source>
Get value from MonthCalendar
<source lang="vbnet">Imports System.Windows.Forms public class UseMonthCalendarAndDateTimePicker
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged " ----- Check and display only valid dates. If (IsDate(TextBox1.Text) = True) Then Label1.Text = Date.Parse(TextBox1.Text).ToShortDateString Else Label1.Text = "" End If End Sub Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged " ----- Show the selected date. Label2.Text = DateTimePicker1.Value.ToShortDateString End Sub Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged " ---- Show the slected date. Label3.Text = MonthCalendar1.SelectionStart.ToShortDateString End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.TextBox1 = New System.Windows.Forms.TextBox Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker Me.MonthCalendar1 = New System.Windows.Forms.MonthCalendar Me.Label1 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.Label3 = New System.Windows.Forms.Label Me.Label4 = New System.Windows.Forms.Label Me.Label5 = New System.Windows.Forms.Label Me.Label6 = New System.Windows.Forms.Label Me.SuspendLayout() " "TextBox1 " Me.TextBox1.Location = New System.Drawing.Point(72, 8) Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(120, 20) Me.TextBox1.TabIndex = 0 Me.TextBox1.Text = "2007-12-07" " "DateTimePicker1 " Me.DateTimePicker1.Location = New System.Drawing.Point(72, 48) Me.DateTimePicker1.Name = "DateTimePicker1" Me.DateTimePicker1.Size = New System.Drawing.Size(200, 20) Me.DateTimePicker1.TabIndex = 1 Me.DateTimePicker1.Value = New Date(2007, 12, 7, 0, 0, 0, 0) " "MonthCalendar1 " Me.MonthCalendar1.Location = New System.Drawing.Point(72, 88) Me.MonthCalendar1.Name = "MonthCalendar1" Me.MonthCalendar1.TabIndex = 2 " "Label1 " Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(296, 16) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(39, 13) Me.Label1.TabIndex = 3 Me.Label1.Text = "Label1" " "Label2 " Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(296, 48) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(39, 13) Me.Label2.TabIndex = 4 Me.Label2.Text = "Label2" " "Label3 " Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(296, 88) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(39, 13) Me.Label3.TabIndex = 5 Me.Label3.Text = "Label3" " "Label4 " Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(8, 10) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(57, 13) Me.Label4.TabIndex = 6 Me.Label4.Text = "Plain Text:" " "Label5 " Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(8, 50) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(40, 13) Me.Label5.TabIndex = 7 Me.Label5.Text = "Picker:" " "Label6 " Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(8, 88) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(52, 13) Me.Label6.TabIndex = 8 Me.Label6.Text = "Calendar:" " "Form1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(510, 258) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.MonthCalendar1) Me.Controls.Add(Me.DateTimePicker1) Me.Controls.Add(Me.TextBox1) Me.Name = "Form1" Me.Text = "Using Controls to Enter or Select a Date" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker Friend WithEvents MonthCalendar1 As System.Windows.Forms.MonthCalendar Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label
End Class</source>
MonthCalendar Min/Max Date
<source lang="vbnet">Imports System.Windows.Forms public class MonthCalendarMinMaxDate
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Console.WriteLine(calReservation.TodayDateSet) " Set the minimum and maximum dates. calReservation.MinDate = #1/1/2006# calReservation.MaxDate = #6/30/2006# End Sub Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click Me.Close() End Sub Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click Me.Close() End Sub
End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.calReservation = New System.Windows.Forms.MonthCalendar Me.btnOk = New System.Windows.Forms.Button Me.btnCancel = New System.Windows.Forms.Button Me.SuspendLayout() " "calReservation " Me.calReservation.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.calReservation.Location = New System.Drawing.Point(8, 8) Me.calReservation.Name = "calReservation" Me.calReservation.Size = New System.Drawing.Size(178, 155) Me.calReservation.TabIndex = 0 " "btnOk " Me.btnOk.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnOk.Location = New System.Drawing.Point(208, 8) Me.btnOk.Name = "btnOk" Me.btnOk.Size = New System.Drawing.Size(56, 24) Me.btnOk.TabIndex = 1 Me.btnOk.Text = "OK" " "btnCancel " Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.btnCancel.Location = New System.Drawing.Point(208, 40) Me.btnCancel.Name = "btnCancel" Me.btnCancel.Size = New System.Drawing.Size(56, 24) Me.btnCancel.TabIndex = 2 Me.btnCancel.Text = "Cancel" " "Form1 " Me.AcceptButton = Me.btnOk Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.CancelButton = Me.btnCancel Me.ClientSize = New System.Drawing.Size(272, 174) Me.Controls.Add(Me.btnCancel) Me.Controls.Add(Me.btnOk) Me.Controls.Add(Me.calReservation) Me.Name = "Form1" Me.Text = "UseMonthCalendar" Me.ResumeLayout(False) End Sub Friend WithEvents calReservation As System.Windows.Forms.MonthCalendar Friend WithEvents btnOk As System.Windows.Forms.Button Friend WithEvents btnCancel As System.Windows.Forms.Button
End Class</source>
MonthCalendar SelectionRange
<source lang="vbnet">Imports System.Windows.Forms public class MonthCalendarSelectionRange
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Console.WriteLine(calReservation.TodayDateSet) " Start with the dates 7/28/2005 - 6/30/2005 selected. calReservation.SelectionRange = _ New SelectionRange( _ New Date(2006, 4, 24), _ New Date(2006, 4, 27))
End Sub Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click Me.Close() End Sub Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click Me.Close() End Sub
End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.calReservation = New System.Windows.Forms.MonthCalendar Me.btnOk = New System.Windows.Forms.Button Me.btnCancel = New System.Windows.Forms.Button Me.SuspendLayout() " "calReservation " Me.calReservation.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.calReservation.Location = New System.Drawing.Point(8, 8) Me.calReservation.Name = "calReservation" Me.calReservation.Size = New System.Drawing.Size(178, 155) Me.calReservation.TabIndex = 0 " "btnOk " Me.btnOk.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnOk.Location = New System.Drawing.Point(208, 8) Me.btnOk.Name = "btnOk" Me.btnOk.Size = New System.Drawing.Size(56, 24) Me.btnOk.TabIndex = 1 Me.btnOk.Text = "OK" " "btnCancel " Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.btnCancel.Location = New System.Drawing.Point(208, 40) Me.btnCancel.Name = "btnCancel" Me.btnCancel.Size = New System.Drawing.Size(56, 24) Me.btnCancel.TabIndex = 2 Me.btnCancel.Text = "Cancel" " "Form1 " Me.AcceptButton = Me.btnOk Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.CancelButton = Me.btnCancel Me.ClientSize = New System.Drawing.Size(272, 174) Me.Controls.Add(Me.btnCancel) Me.Controls.Add(Me.btnOk) Me.Controls.Add(Me.calReservation) Me.Name = "Form1" Me.Text = "UseMonthCalendar" Me.ResumeLayout(False) End Sub Friend WithEvents calReservation As System.Windows.Forms.MonthCalendar Friend WithEvents btnOk As System.Windows.Forms.Button Friend WithEvents btnCancel As System.Windows.Forms.Button
End Class</source>
Set today"s date
<source lang="vbnet">Imports System.Windows.Forms public class MonthCalendarSetTodayDate
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Console.WriteLine(calReservation.TodayDateSet) " Set today"s date to 4/22/2006. calReservation.TodayDate = New Date(2006, 4, 22)
End Sub Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click Me.Close() End Sub Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click Me.Close() End Sub
End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.calReservation = New System.Windows.Forms.MonthCalendar Me.btnOk = New System.Windows.Forms.Button Me.btnCancel = New System.Windows.Forms.Button Me.SuspendLayout() " "calReservation " Me.calReservation.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.calReservation.Location = New System.Drawing.Point(8, 8) Me.calReservation.Name = "calReservation" Me.calReservation.Size = New System.Drawing.Size(178, 155) Me.calReservation.TabIndex = 0 " "btnOk " Me.btnOk.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnOk.Location = New System.Drawing.Point(208, 8) Me.btnOk.Name = "btnOk" Me.btnOk.Size = New System.Drawing.Size(56, 24) Me.btnOk.TabIndex = 1 Me.btnOk.Text = "OK" " "btnCancel " Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.btnCancel.Location = New System.Drawing.Point(208, 40) Me.btnCancel.Name = "btnCancel" Me.btnCancel.Size = New System.Drawing.Size(56, 24) Me.btnCancel.TabIndex = 2 Me.btnCancel.Text = "Cancel" " "Form1 " Me.AcceptButton = Me.btnOk Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.CancelButton = Me.btnCancel Me.ClientSize = New System.Drawing.Size(272, 174) Me.Controls.Add(Me.btnCancel) Me.Controls.Add(Me.btnOk) Me.Controls.Add(Me.calReservation) Me.Name = "Form1" Me.Text = "UseMonthCalendar" Me.ResumeLayout(False) End Sub Friend WithEvents calReservation As System.Windows.Forms.MonthCalendar Friend WithEvents btnOk As System.Windows.Forms.Button Friend WithEvents btnCancel As System.Windows.Forms.Button
End Class</source>