http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FGUI%2FMonth_CalendarVB.Net/GUI/Month Calendar - История изменений2026-04-05T05:58:36ZИстория изменений этой страницы в викиMediaWiki 1.30.0http://www.vbex.ru/index.php?title=VB.Net/GUI/Month_Calendar&diff=520&oldid=prev в 16:40, 26 мая 20102010-05-26T16:40:06Z<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>http://www.vbex.ru/index.php?title=VB.Net/GUI/Month_Calendar&diff=521&oldid=prevAdmin: 1 версия2010-05-26T12:43:27Z<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Add Bold Date==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.Data<br />
Imports System.Windows.Forms<br />
Imports System.Drawing<br />
Imports System.Diagnostics <br />
Public Class MainClass<br />
<br />
Shared Sub Main()<br />
Dim form1 As Form = New Form1<br />
Application.Run(form1) <br />
End Sub<br />
End Class<br />
Public Class Form1<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
calReservation.AddBoldedDate(New Date(2006, 4, 24))<br />
calReservation.AddBoldedDate(New Date(2006, 4, 25))<br />
calReservation.AddBoldedDate(New Date(2006, 4, 26))<br />
<br />
End Sub<br />
End Class<br />
<br />
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _<br />
Partial Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
"Form overrides dispose to clean up the component list.<br />
<System.Diagnostics.DebuggerNonUserCode()> _<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing AndAlso components IsNot Nothing Then<br />
components.Dispose()<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
"Required by the Windows Form Designer<br />
Private components As System.ruponentModel.IContainer<br />
"NOTE: The following procedure is required by the Windows Form Designer<br />
"It can be modified using the Windows Form Designer. <br />
"Do not modify it using the code editor.<br />
<System.Diagnostics.DebuggerStepThrough()> _<br />
Private Sub InitializeComponent()<br />
Me.calReservation = New System.Windows.Forms.MonthCalendar<br />
Me.SuspendLayout()<br />
"<br />
"calReservation<br />
"<br />
Me.calReservation.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _<br />
Or System.Windows.Forms.AnchorStyles.Left) _<br />
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)<br />
Me.calReservation.Location = New System.Drawing.Point(8, 8)<br />
Me.calReservation.Name = "calReservation"<br />
Me.calReservation.Size = New System.Drawing.Size(178, 155)<br />
Me.calReservation.TabIndex = 0<br />
"<br />
"Form1<br />
"<br />
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)<br />
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font<br />
Me.ClientSize = New System.Drawing.Size(272, 174)<br />
Me.Controls.Add(Me.calReservation)<br />
Me.Name = "Form1"<br />
Me.Text = "UseMonthCalendar"<br />
Me.ResumeLayout(False)<br />
End Sub<br />
Friend WithEvents calReservation As System.Windows.Forms.MonthCalendar<br />
End Class<br />
<br />
</source><br />
<br />
<br />
==Set the minimum and maximum dates==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.Data<br />
Imports System.Windows.Forms<br />
Imports System.Drawing<br />
Imports System.Diagnostics <br />
Public Class MainClass<br />
<br />
Shared Sub Main()<br />
Dim form1 As Form = New Form1<br />
Application.Run(form1) <br />
End Sub<br />
End Class<br />
Public Class Form1<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
" Set the minimum and maximum dates.<br />
calReservation.MinDate = #1/1/2006#<br />
calReservation.MaxDate = #6/30/2006#<br />
End Sub<br />
End Class<br />
<br />
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _<br />
Partial Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
"Form overrides dispose to clean up the component list.<br />
<System.Diagnostics.DebuggerNonUserCode()> _<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing AndAlso components IsNot Nothing Then<br />
components.Dispose()<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
"Required by the Windows Form Designer<br />
Private components As System.ruponentModel.IContainer<br />
"NOTE: The following procedure is required by the Windows Form Designer<br />
"It can be modified using the Windows Form Designer. <br />
"Do not modify it using the code editor.<br />
<System.Diagnostics.DebuggerStepThrough()> _<br />
Private Sub InitializeComponent()<br />
Me.calReservation = New System.Windows.Forms.MonthCalendar<br />
Me.SuspendLayout()<br />
"<br />
"calReservation<br />
"<br />
Me.calReservation.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _<br />
Or System.Windows.Forms.AnchorStyles.Left) _<br />
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)<br />
Me.calReservation.Location = New System.Drawing.Point(8, 8)<br />
Me.calReservation.Name = "calReservation"<br />
Me.calReservation.Size = New System.Drawing.Size(178, 155)<br />
Me.calReservation.TabIndex = 0<br />
"<br />
"Form1<br />
"<br />
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)<br />
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font<br />
Me.ClientSize = New System.Drawing.Size(272, 174)<br />
Me.Controls.Add(Me.calReservation)<br />
Me.Name = "Form1"<br />
Me.Text = "UseMonthCalendar"<br />
Me.ResumeLayout(False)<br />
End Sub<br />
Friend WithEvents calReservation As System.Windows.Forms.MonthCalendar<br />
End Class<br />
<br />
</source><br />
<br />
<br />
==Set today"s date to 6==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.Data<br />
Imports System.Windows.Forms<br />
Imports System.Drawing<br />
Imports System.Diagnostics <br />
Public Class MainClass<br />
<br />
Shared Sub Main()<br />
Dim form1 As Form = New Form1<br />
Application.Run(form1) <br />
End Sub<br />
End Class<br />
Public Class Form1<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
" Set today"s date to 4/22/2006.<br />
calReservation.TodayDate = New Date(2006, 4, 22)<br />
<br />
End Sub<br />
End Class<br />
<br />
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _<br />
Partial Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
"Form overrides dispose to clean up the component list.<br />
<System.Diagnostics.DebuggerNonUserCode()> _<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing AndAlso components IsNot Nothing Then<br />
components.Dispose()<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
"Required by the Windows Form Designer<br />
Private components As System.ruponentModel.IContainer<br />
"NOTE: The following procedure is required by the Windows Form Designer<br />
"It can be modified using the Windows Form Designer. <br />
"Do not modify it using the code editor.<br />
<System.Diagnostics.DebuggerStepThrough()> _<br />
Private Sub InitializeComponent()<br />
Me.calReservation = New System.Windows.Forms.MonthCalendar<br />
Me.SuspendLayout()<br />
"<br />
"calReservation<br />
"<br />
Me.calReservation.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _<br />
Or System.Windows.Forms.AnchorStyles.Left) _<br />
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)<br />
Me.calReservation.Location = New System.Drawing.Point(8, 8)<br />
Me.calReservation.Name = "calReservation"<br />
Me.calReservation.Size = New System.Drawing.Size(178, 155)<br />
Me.calReservation.TabIndex = 0<br />
"<br />
"Form1<br />
"<br />
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)<br />
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font<br />
Me.ClientSize = New System.Drawing.Size(272, 174)<br />
Me.Controls.Add(Me.calReservation)<br />
Me.Name = "Form1"<br />
Me.Text = "UseMonthCalendar"<br />
Me.ResumeLayout(False)<br />
End Sub<br />
Friend WithEvents calReservation As System.Windows.Forms.MonthCalendar<br />
End Class<br />
<br />
</source><br />
<br />
<br />
==Start with the selected Date Range==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.Data<br />
Imports System.Windows.Forms<br />
Imports System.Drawing<br />
Imports System.Diagnostics <br />
Public Class MainClass<br />
<br />
Shared Sub Main()<br />
Dim form1 As Form = New Form1<br />
Application.Run(form1) <br />
End Sub<br />
End Class<br />
Public Class Form1<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
" Start with the dates 7/28/2005 - 6/30/2005 selected.<br />
calReservation.SelectionRange = _<br />
New SelectionRange( _<br />
New Date(2006, 4, 24), _<br />
New Date(2006, 4, 27))<br />
<br />
End Sub<br />
End Class<br />
<br />
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _<br />
Partial Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
"Form overrides dispose to clean up the component list.<br />
<System.Diagnostics.DebuggerNonUserCode()> _<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing AndAlso components IsNot Nothing Then<br />
components.Dispose()<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
"Required by the Windows Form Designer<br />
Private components As System.ruponentModel.IContainer<br />
"NOTE: The following procedure is required by the Windows Form Designer<br />
"It can be modified using the Windows Form Designer. <br />
"Do not modify it using the code editor.<br />
<System.Diagnostics.DebuggerStepThrough()> _<br />
Private Sub InitializeComponent()<br />
Me.calReservation = New System.Windows.Forms.MonthCalendar<br />
Me.SuspendLayout()<br />
"<br />
"calReservation<br />
"<br />
Me.calReservation.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _<br />
Or System.Windows.Forms.AnchorStyles.Left) _<br />
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)<br />
Me.calReservation.Location = New System.Drawing.Point(8, 8)<br />
Me.calReservation.Name = "calReservation"<br />
Me.calReservation.Size = New System.Drawing.Size(178, 155)<br />
Me.calReservation.TabIndex = 0<br />
"<br />
"Form1<br />
"<br />
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)<br />
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font<br />
Me.ClientSize = New System.Drawing.Size(272, 174)<br />
Me.Controls.Add(Me.calReservation)<br />
Me.Name = "Form1"<br />
Me.Text = "UseMonthCalendar"<br />
Me.ResumeLayout(False)<br />
End Sub<br />
Friend WithEvents calReservation As System.Windows.Forms.MonthCalendar<br />
End Class<br />
<br />
</source></div>Admin