http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_by_API%2FSystem.Windows.Forms%2FDateTimePicker 2026-04-06T02:38:15Z История изменений этой страницы в вики MediaWiki 1.30.0 http://www.vbex.ru/index.php?title=VB.Net_by_API/System.Windows.Forms/DateTimePicker&diff=2760&oldid=prev 2010-05-26T16:40:16Z

<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_by_API/System.Windows.Forms/DateTimePicker&diff=2761&oldid=prev 2010-05-26T12:52:25Z

<p>1 версия</p> <p><b>Новая страница</b></p><div>==DateTimePicker.CalendarFont==<br /> <br /> <br /> <br /> &lt;source lang=&quot;vbnet&quot;&gt; <br /> Option Strict On<br /> imports System<br /> imports System.Drawing<br /> imports System.Windows.Forms<br /> public class DTPicker : inherits Form<br /> dim dtp as DateTimePicker<br /> public sub New()<br /> Size = new Size(400,300)<br /> AddHandler me.Load, AddressOf me_Load<br /> dtp = new DateTimePicker()<br /> dtp.Parent = me<br /> dtp.Location = new Point(20,20)<br /> dtp.Size = new Size(ClientSize.Width - 40, dtp.PreferredHeight)<br /> dtp.Anchor = AnchorStyles.Top or AnchorStyles.Left or AnchorStyles.Right<br /> dim fnt as new Font(&quot;Times New Roman&quot;, 16)<br /> dtp.CalendarFont = new Font(fnt, FontStyle.Bold or FontStyle.Italic)<br /> dtp.CalendarForeColor = Color.Red<br /> dtp.CalendarMonthBackground = Color.Yellow<br /> dtp.CalendarTitleBackColor = Color.Lime<br /> dtp.CalendarTitleForeColor = Color.Blue<br /> dtp.CalendarTrailingForeColor = Color.FromArgb(255,192,192)<br /> dtp.CustomFormat = &quot;dddd,MMMM d, yyyy &quot;at&quot; h:mm:ss tt&quot;<br /> dtp.Format = DateTimePickerFormat.Custom<br /> dtp.DropDownAlign = LeftRightAlignment.Right<br /> dtp.ShowUpDown = false &quot; default<br /> AddHandler dtp.ValueChanged, AddressOf dtp_ValueChanged<br /> end sub<br /> public shared sub Main() <br /> Application.Run(new DTPicker())<br /> end sub<br /> private sub UpdateLabels()<br /> Console.WriteLine(dtp.Value.ToString())<br /> Console.WriteLine(dtp.Value.ToLongDateString())<br /> Console.WriteLine(dtp.Value.ToLongTimeString())<br /> Console.WriteLine(dtp.Value.ToShortDateString())<br /> Console.WriteLine(dtp.Value.ToShortTimeString())<br /> end sub<br /> private sub me_Load(ByVal sender as object,ByVal e as EventArgs)<br /> UpdateLabels()<br /> end sub<br /> private sub dtp_ValueChanged(ByVal sender as object,ByVal e as EventArgs)<br /> UpdateLabels()<br /> end sub<br /> private sub txtCustomString_TextChanged(ByVal sender as object,ByVal e as EventArgs)<br /> UpdateLabels()<br /> end sub<br /> end class<br /> <br /> <br /> &lt;/source&gt;<br /> <br /> <br /> ==DateTimePicker.CalendarMonthBackground==<br /> <br /> <br /> <br /> &lt;source lang=&quot;vbnet&quot;&gt; <br /> <br /> Option Strict On<br /> imports System<br /> imports System.Drawing<br /> imports System.Windows.Forms<br /> public class DTPicker : inherits Form<br /> dim dtp as DateTimePicker<br /> public sub New()<br /> Size = new Size(400,300)<br /> AddHandler me.Load, AddressOf me_Load<br /> dtp = new DateTimePicker()<br /> dtp.Parent = me<br /> dtp.Location = new Point(20,20)<br /> dtp.Size = new Size(ClientSize.Width - 40, dtp.PreferredHeight)<br /> dtp.Anchor = AnchorStyles.Top or AnchorStyles.Left or AnchorStyles.Right<br /> dim fnt as new Font(&quot;Times New Roman&quot;, 16)<br /> dtp.CalendarFont = new Font(fnt, FontStyle.Bold or FontStyle.Italic)<br /> dtp.CalendarForeColor = Color.Red<br /> dtp.CalendarMonthBackground = Color.Yellow<br /> dtp.CalendarTitleBackColor = Color.Lime<br /> dtp.CalendarTitleForeColor = Color.Blue<br /> dtp.CalendarTrailingForeColor = Color.FromArgb(255,192,192)<br /> dtp.CustomFormat = &quot;dddd,MMMM d, yyyy &quot;at&quot; h:mm:ss tt&quot;<br /> dtp.Format = DateTimePickerFormat.Custom<br /> dtp.DropDownAlign = LeftRightAlignment.Right<br /> dtp.ShowUpDown = false &quot; default<br /> AddHandler dtp.ValueChanged, AddressOf dtp_ValueChanged<br /> end sub<br /> public shared sub Main() <br /> Application.Run(new DTPicker())<br /> end sub<br /> private sub UpdateLabels()<br /> Console.WriteLine(dtp.Value.ToString())<br /> Console.WriteLine(dtp.Value.ToLongDateString())<br /> Console.WriteLine(dtp.Value.ToLongTimeString())<br /> Console.WriteLine(dtp.Value.ToShortDateString())<br /> Console.WriteLine(dtp.Value.ToShortTimeString())<br /> end sub<br /> private sub me_Load(ByVal sender as object,ByVal e as EventArgs)<br /> UpdateLabels()<br /> end sub<br /> private sub dtp_ValueChanged(ByVal sender as object,ByVal e as EventArgs)<br /> UpdateLabels()<br /> end sub<br /> private sub txtCustomString_TextChanged(ByVal sender as object,ByVal e as EventArgs)<br /> UpdateLabels()<br /> end sub<br /> end class<br /> <br /> <br /> &lt;/source&gt;<br /> <br /> <br /> ==DateTimePicker.CalendarTrailingForeColor==<br /> <br /> <br /> <br /> &lt;source lang=&quot;vbnet&quot;&gt; <br /> <br /> Option Strict On<br /> imports System<br /> imports System.Drawing<br /> imports System.Windows.Forms<br /> public class DTPicker : inherits Form<br /> dim dtp as DateTimePicker<br /> public sub New()<br /> Size = new Size(400,300)<br /> AddHandler me.Load, AddressOf me_Load<br /> dtp = new DateTimePicker()<br /> dtp.Parent = me<br /> dtp.Location = new Point(20,20)<br /> dtp.Size = new Size(ClientSize.Width - 40, dtp.PreferredHeight)<br /> dtp.Anchor = AnchorStyles.Top or AnchorStyles.Left or AnchorStyles.Right<br /> dim fnt as new Font(&quot;Times New Roman&quot;, 16)<br /> dtp.CalendarFont = new Font(fnt, FontStyle.Bold or FontStyle.Italic)<br /> dtp.CalendarForeColor = Color.Red<br /> dtp.CalendarMonthBackground = Color.Yellow<br /> dtp.CalendarTitleBackColor = Color.Lime<br /> dtp.CalendarTitleForeColor = Color.Blue<br /> dtp.CalendarTrailingForeColor = Color.FromArgb(255,192,192)<br /> dtp.CustomFormat = &quot;dddd,MMMM d, yyyy &quot;at&quot; h:mm:ss tt&quot;<br /> dtp.Format = DateTimePickerFormat.Custom<br /> dtp.DropDownAlign = LeftRightAlignment.Right<br /> dtp.ShowUpDown = false &quot; default<br /> AddHandler dtp.ValueChanged, AddressOf dtp_ValueChanged<br /> end sub<br /> public shared sub Main() <br /> Application.Run(new DTPicker())<br /> end sub<br /> private sub UpdateLabels()<br /> Console.WriteLine(dtp.Value.ToString())<br /> Console.WriteLine(dtp.Value.ToLongDateString())<br /> Console.WriteLine(dtp.Value.ToLongTimeString())<br /> Console.WriteLine(dtp.Value.ToShortDateString())<br /> Console.WriteLine(dtp.Value.ToShortTimeString())<br /> end sub<br /> private sub me_Load(ByVal sender as object,ByVal e as EventArgs)<br /> UpdateLabels()<br /> end sub<br /> private sub dtp_ValueChanged(ByVal sender as object,ByVal e as EventArgs)<br /> UpdateLabels()<br /> end sub<br /> private sub txtCustomString_TextChanged(ByVal sender as object,ByVal e as EventArgs)<br /> UpdateLabels()<br /> end sub<br /> end class<br /> <br /> <br /> &lt;/source&gt;<br /> <br /> <br /> ==DateTimePicker.DropDownAlign==<br /> <br /> <br /> <br /> &lt;source lang=&quot;vbnet&quot;&gt; <br /> Option Strict On<br /> imports System<br /> imports System.Drawing<br /> imports System.Windows.Forms<br /> public class DTPicker : inherits Form<br /> dim dtp as DateTimePicker<br /> public sub New()<br /> Size = new Size(400,300)<br /> AddHandler me.Load, AddressOf me_Load<br /> dtp = new DateTimePicker()<br /> dtp.Parent = me<br /> dtp.Location = new Point(20,20)<br /> dtp.Size = new Size(ClientSize.Width - 40, dtp.PreferredHeight)<br /> dtp.Anchor = AnchorStyles.Top or AnchorStyles.Left or AnchorStyles.Right<br /> dim fnt as new Font(&quot;Times New Roman&quot;, 16)<br /> dtp.CalendarFont = new Font(fnt, FontStyle.Bold or FontStyle.Italic)<br /> dtp.CalendarForeColor = Color.Red<br /> dtp.CalendarMonthBackground = Color.Yellow<br /> dtp.CalendarTitleBackColor = Color.Lime<br /> dtp.CalendarTitleForeColor = Color.Blue<br /> dtp.CalendarTrailingForeColor = Color.FromArgb(255,192,192)<br /> dtp.CustomFormat = &quot;dddd,MMMM d, yyyy &quot;at&quot; h:mm:ss tt&quot;<br /> dtp.Format = DateTimePickerFormat.Custom<br /> dtp.DropDownAlign = LeftRightAlignment.Right<br /> dtp.ShowUpDown = false &quot; default<br /> AddHandler dtp.ValueChanged, AddressOf dtp_ValueChanged<br /> end sub<br /> public shared sub Main() <br /> Application.Run(new DTPicker())<br /> end sub<br /> private sub UpdateLabels()<br /> Console.WriteLine(dtp.Value.ToString())<br /> Console.WriteLine(dtp.Value.ToLongDateString())<br /> Console.WriteLine(dtp.Value.ToLongTimeString())<br /> Console.WriteLine(dtp.Value.ToShortDateString())<br /> Console.WriteLine(dtp.Value.ToShortTimeString())<br /> end sub<br /> private sub me_Load(ByVal sender as object,ByVal e as EventArgs)<br /> UpdateLabels()<br /> end sub<br /> private sub dtp_ValueChanged(ByVal sender as object,ByVal e as EventArgs)<br /> UpdateLabels()<br /> end sub<br /> private sub txtCustomString_TextChanged(ByVal sender as object,ByVal e as EventArgs)<br /> UpdateLabels()<br /> end sub<br /> end class<br /> <br /> <br /> &lt;/source&gt;<br /> <br /> <br /> ==DateTimePicker.ValueChanged==<br /> <br /> <br /> <br /> &lt;source lang=&quot;vbnet&quot;&gt; <br /> Option Strict On<br /> imports System<br /> imports System.Drawing<br /> imports System.Windows.Forms<br /> public class DTPicker : inherits Form<br /> dim dtp as DateTimePicker<br /> public sub New()<br /> Size = new Size(400,300)<br /> AddHandler me.Load, AddressOf me_Load<br /> dtp = new DateTimePicker()<br /> dtp.Parent = me<br /> dtp.Location = new Point(20,20)<br /> dtp.Size = new Size(ClientSize.Width - 40, dtp.PreferredHeight)<br /> dtp.Anchor = AnchorStyles.Top or AnchorStyles.Left or AnchorStyles.Right<br /> dim fnt as new Font(&quot;Times New Roman&quot;, 16)<br /> dtp.CalendarFont = new Font(fnt, FontStyle.Bold or FontStyle.Italic)<br /> dtp.CalendarForeColor = Color.Red<br /> dtp.CalendarMonthBackground = Color.Yellow<br /> dtp.CalendarTitleBackColor = Color.Lime<br /> dtp.CalendarTitleForeColor = Color.Blue<br /> dtp.CalendarTrailingForeColor = Color.FromArgb(255,192,192)<br /> dtp.CustomFormat = &quot;dddd,MMMM d, yyyy &quot;at&quot; h:mm:ss tt&quot;<br /> dtp.Format = DateTimePickerFormat.Custom<br /> dtp.DropDownAlign = LeftRightAlignment.Right<br /> dtp.ShowUpDown = false &quot; default<br /> AddHandler dtp.ValueChanged, AddressOf dtp_ValueChanged<br /> end sub<br /> public shared sub Main() <br /> Application.Run(new DTPicker())<br /> end sub<br /> private sub UpdateLabels()<br /> Console.WriteLine(dtp.Value.ToString())<br /> Console.WriteLine(dtp.Value.ToLongDateString())<br /> Console.WriteLine(dtp.Value.ToLongTimeString())<br /> Console.WriteLine(dtp.Value.ToShortDateString())<br /> Console.WriteLine(dtp.Value.ToShortTimeString())<br /> end sub<br /> private sub me_Load(ByVal sender as object,ByVal e as EventArgs)<br /> UpdateLabels()<br /> end sub<br /> private sub dtp_ValueChanged(ByVal sender as object,ByVal e as EventArgs)<br /> UpdateLabels()<br /> end sub<br /> private sub txtCustomString_TextChanged(ByVal sender as object,ByVal e as EventArgs)<br /> UpdateLabels()<br /> end sub<br /> end class<br /> <br /> <br /> &lt;/source&gt;</div>

Admin