http://vbex.ru/index.php?title=VB.Net_Tutorial/GUI/DateTimePicker&feed=atom&action=history
VB.Net Tutorial/GUI/DateTimePicker - История изменений
2024-03-29T00:23:23Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://vbex.ru/index.php?title=VB.Net_Tutorial/GUI/DateTimePicker&diff=3874&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:30Z
<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://vbex.ru/index.php?title=VB.Net_Tutorial/GUI/DateTimePicker&diff=3875&oldid=prev
Admin: 1 версия
2010-05-26T12:57:17Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==DataTimePicker format==<br />
<br />
<br />
<br />
<source lang="vbnet">Imports System.Windows.Forms<br />
public class DataTimePickerFormat<br />
public Shared Sub Main<br />
Application.Run(New Form1)<br />
End Sub<br />
End class<br />
Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
Public Sub New()<br />
MyBase.New()<br />
InitializeComponent()<br />
End Sub<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing Then<br />
If Not (components Is Nothing) Then<br />
components.Dispose()<br />
End If<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
Private components As System.ruponentModel.IContainer<br />
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker<br />
Friend WithEvents ComboBox1 As System.Windows.Forms.ruboBox<br />
Friend WithEvents Label1 As System.Windows.Forms.Label<br />
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker<br />
Me.ruboBox1 = New System.Windows.Forms.ruboBox<br />
Me.Label1 = New System.Windows.Forms.Label<br />
Me.SuspendLayout()<br />
"<br />
"DateTimePicker1<br />
"<br />
Me.DateTimePicker1.Location = New System.Drawing.Point(40, 24)<br />
Me.DateTimePicker1.Name = "DateTimePicker1"<br />
Me.DateTimePicker1.Size = New System.Drawing.Size(120, 20)<br />
Me.DateTimePicker1.TabIndex = 0<br />
"<br />
"ComboBox1<br />
"<br />
Me.ruboBox1.Items.AddRange(New Object() {"Long", "Short", "Custom", "Time"})<br />
Me.ruboBox1.Location = New System.Drawing.Point(40, 200)<br />
Me.ruboBox1.Name = "ComboBox1"<br />
Me.ruboBox1.Size = New System.Drawing.Size(120, 21)<br />
Me.ruboBox1.TabIndex = 1<br />
"<br />
"Label1<br />
"<br />
Me.Label1.Location = New System.Drawing.Point(40, 160)<br />
Me.Label1.Name = "Label1"<br />
Me.Label1.Size = New System.Drawing.Size(80, 24)<br />
Me.Label1.TabIndex = 2<br />
Me.Label1.Text = "Format"<br />
"<br />
"Form1<br />
"<br />
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
Me.ClientSize = New System.Drawing.Size(292, 266)<br />
Me.Controls.Add(Me.Label1)<br />
Me.Controls.Add(Me.ruboBox1)<br />
Me.Controls.Add(Me.DateTimePicker1)<br />
Me.Name = "Form1"<br />
Me.Text = "DateTimePicker"<br />
Me.ResumeLayout(False)<br />
End Sub<br />
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged<br />
If ComboBox1.SelectedIndex < 0 Then<br />
Return<br />
End If<br />
Dim caption As String = ComboBox1.SelectedItem.ToString().Chars(0)<br />
Dim format As DateTimePickerFormat<br />
Select Case caption<br />
Case "S"c<br />
format = DateTimePickerFormat.Short<br />
Case "T"c<br />
format = DateTimePickerFormat.Time<br />
Case "C"c<br />
format = DateTimePickerFormat.Custom<br />
Case Else<br />
format = DateTimePickerFormat.Long<br />
End Select<br />
DateTimePicker1.Format = format<br />
End Sub<br />
End Class</source><br />
<br />
==DateTimePicker format: LongDate, LongTime, ShortDate, ShortTime==<br />
<br />
<br />
<br />
<source lang="vbnet">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("Times New Roman", 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 = "dddd,MMMM d, yyyy "at" h:mm:ss tt"<br />
dtp.Format = DateTimePickerFormat.Custom<br />
dtp.DropDownAlign = LeftRightAlignment.Right<br />
dtp.ShowUpDown = false " 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</source><br />
<br />
==Get value from DateTimePicker==<br />
<br />
<br />
<br />
<source lang="vbnet">Imports System.Windows.Forms<br />
public class UseMonthCalendarAndDateTimePicker<br />
public Shared Sub Main<br />
Application.Run(New Form1)<br />
End Sub<br />
End class<br />
Public Class Form1<br />
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged<br />
" ----- Check and display only valid dates.<br />
If (IsDate(TextBox1.Text) = True) Then<br />
Label1.Text = Date.Parse(TextBox1.Text).ToShortDateString<br />
Else<br />
Label1.Text = ""<br />
End If<br />
End Sub<br />
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged<br />
" ----- Show the selected date.<br />
Label2.Text = DateTimePicker1.Value.ToShortDateString<br />
End Sub<br />
Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged<br />
" ---- Show the slected date.<br />
Label3.Text = MonthCalendar1.SelectionStart.ToShortDateString<br />
End Sub<br />
End Class<br />
<br />
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _<br />
Partial Class Form1<br />
Inherits System.Windows.Forms.Form<br />
"Form overrides dispose to clean up the component list.<br />
<System.Diagnostics.DebuggerNonUserCode()> _<br />
Protected 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.TextBox1 = New System.Windows.Forms.TextBox<br />
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker<br />
Me.MonthCalendar1 = New System.Windows.Forms.MonthCalendar<br />
Me.Label1 = New System.Windows.Forms.Label<br />
Me.Label2 = New System.Windows.Forms.Label<br />
Me.Label3 = New System.Windows.Forms.Label<br />
Me.Label4 = New System.Windows.Forms.Label<br />
Me.Label5 = New System.Windows.Forms.Label<br />
Me.Label6 = New System.Windows.Forms.Label<br />
Me.SuspendLayout()<br />
"<br />
"TextBox1<br />
"<br />
Me.TextBox1.Location = New System.Drawing.Point(72, 8)<br />
Me.TextBox1.Name = "TextBox1"<br />
Me.TextBox1.Size = New System.Drawing.Size(120, 20)<br />
Me.TextBox1.TabIndex = 0<br />
Me.TextBox1.Text = "2007-12-07"<br />
"<br />
"DateTimePicker1<br />
"<br />
Me.DateTimePicker1.Location = New System.Drawing.Point(72, 48)<br />
Me.DateTimePicker1.Name = "DateTimePicker1"<br />
Me.DateTimePicker1.Size = New System.Drawing.Size(200, 20)<br />
Me.DateTimePicker1.TabIndex = 1<br />
Me.DateTimePicker1.Value = New Date(2007, 12, 7, 0, 0, 0, 0)<br />
"<br />
"MonthCalendar1<br />
"<br />
Me.MonthCalendar1.Location = New System.Drawing.Point(72, 88)<br />
Me.MonthCalendar1.Name = "MonthCalendar1"<br />
Me.MonthCalendar1.TabIndex = 2<br />
"<br />
"Label1<br />
"<br />
Me.Label1.AutoSize = True<br />
Me.Label1.Location = New System.Drawing.Point(296, 16)<br />
Me.Label1.Name = "Label1"<br />
Me.Label1.Size = New System.Drawing.Size(39, 13)<br />
Me.Label1.TabIndex = 3<br />
Me.Label1.Text = "Label1"<br />
"<br />
"Label2<br />
"<br />
Me.Label2.AutoSize = True<br />
Me.Label2.Location = New System.Drawing.Point(296, 48)<br />
Me.Label2.Name = "Label2"<br />
Me.Label2.Size = New System.Drawing.Size(39, 13)<br />
Me.Label2.TabIndex = 4<br />
Me.Label2.Text = "Label2"<br />
"<br />
"Label3<br />
"<br />
Me.Label3.AutoSize = True<br />
Me.Label3.Location = New System.Drawing.Point(296, 88)<br />
Me.Label3.Name = "Label3"<br />
Me.Label3.Size = New System.Drawing.Size(39, 13)<br />
Me.Label3.TabIndex = 5<br />
Me.Label3.Text = "Label3"<br />
"<br />
"Label4<br />
"<br />
Me.Label4.AutoSize = True<br />
Me.Label4.Location = New System.Drawing.Point(8, 10)<br />
Me.Label4.Name = "Label4"<br />
Me.Label4.Size = New System.Drawing.Size(57, 13)<br />
Me.Label4.TabIndex = 6<br />
Me.Label4.Text = "Plain Text:"<br />
"<br />
"Label5<br />
"<br />
Me.Label5.AutoSize = True<br />
Me.Label5.Location = New System.Drawing.Point(8, 50)<br />
Me.Label5.Name = "Label5"<br />
Me.Label5.Size = New System.Drawing.Size(40, 13)<br />
Me.Label5.TabIndex = 7<br />
Me.Label5.Text = "Picker:"<br />
"<br />
"Label6<br />
"<br />
Me.Label6.AutoSize = True<br />
Me.Label6.Location = New System.Drawing.Point(8, 88)<br />
Me.Label6.Name = "Label6"<br />
Me.Label6.Size = New System.Drawing.Size(52, 13)<br />
Me.Label6.TabIndex = 8<br />
Me.Label6.Text = "Calendar:"<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(510, 258)<br />
Me.Controls.Add(Me.Label6)<br />
Me.Controls.Add(Me.Label5)<br />
Me.Controls.Add(Me.Label4)<br />
Me.Controls.Add(Me.Label3)<br />
Me.Controls.Add(Me.Label2)<br />
Me.Controls.Add(Me.Label1)<br />
Me.Controls.Add(Me.MonthCalendar1)<br />
Me.Controls.Add(Me.DateTimePicker1)<br />
Me.Controls.Add(Me.TextBox1)<br />
Me.Name = "Form1"<br />
Me.Text = "Using Controls to Enter or Select a Date"<br />
Me.ResumeLayout(False)<br />
Me.PerformLayout()<br />
End Sub<br />
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox<br />
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker<br />
Friend WithEvents MonthCalendar1 As System.Windows.Forms.MonthCalendar<br />
Friend WithEvents Label1 As System.Windows.Forms.Label<br />
Friend WithEvents Label2 As System.Windows.Forms.Label<br />
Friend WithEvents Label3 As System.Windows.Forms.Label<br />
Friend WithEvents Label4 As System.Windows.Forms.Label<br />
Friend WithEvents Label5 As System.Windows.Forms.Label<br />
Friend WithEvents Label6 As System.Windows.Forms.Label<br />
End Class</source></div>
Admin