VB.Net by API/System.Windows.Forms/DateTimePicker — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Текущая версия на 15:52, 26 мая 2010
Содержание
DateTimePicker.CalendarFont
<source lang="vbnet"> Option Strict On imports System imports System.Drawing imports System.Windows.Forms public class DTPicker : inherits Form
dim dtp as DateTimePicker public sub New() Size = new Size(400,300) AddHandler me.Load, AddressOf me_Load dtp = new DateTimePicker() dtp.Parent = me dtp.Location = new Point(20,20) dtp.Size = new Size(ClientSize.Width - 40, dtp.PreferredHeight) dtp.Anchor = AnchorStyles.Top or AnchorStyles.Left or AnchorStyles.Right dim fnt as new Font("Times New Roman", 16) dtp.CalendarFont = new Font(fnt, FontStyle.Bold or FontStyle.Italic) dtp.CalendarForeColor = Color.Red dtp.CalendarMonthBackground = Color.Yellow dtp.CalendarTitleBackColor = Color.Lime dtp.CalendarTitleForeColor = Color.Blue dtp.CalendarTrailingForeColor = Color.FromArgb(255,192,192) dtp.CustomFormat = "dddd,MMMM d, yyyy "at" h:mm:ss tt" dtp.Format = DateTimePickerFormat.Custom dtp.DropDownAlign = LeftRightAlignment.Right dtp.ShowUpDown = false " default AddHandler dtp.ValueChanged, AddressOf dtp_ValueChanged end sub public shared sub Main() Application.Run(new DTPicker()) end sub private sub UpdateLabels() Console.WriteLine(dtp.Value.ToString()) Console.WriteLine(dtp.Value.ToLongDateString()) Console.WriteLine(dtp.Value.ToLongTimeString()) Console.WriteLine(dtp.Value.ToShortDateString()) Console.WriteLine(dtp.Value.ToShortTimeString()) end sub private sub me_Load(ByVal sender as object,ByVal e as EventArgs) UpdateLabels() end sub private sub dtp_ValueChanged(ByVal sender as object,ByVal e as EventArgs) UpdateLabels() end sub private sub txtCustomString_TextChanged(ByVal sender as object,ByVal e as EventArgs) UpdateLabels() end sub
end class
</source>
DateTimePicker.CalendarMonthBackground
<source lang="vbnet">
Option Strict On imports System imports System.Drawing imports System.Windows.Forms public class DTPicker : inherits Form
dim dtp as DateTimePicker public sub New() Size = new Size(400,300) AddHandler me.Load, AddressOf me_Load dtp = new DateTimePicker() dtp.Parent = me dtp.Location = new Point(20,20) dtp.Size = new Size(ClientSize.Width - 40, dtp.PreferredHeight) dtp.Anchor = AnchorStyles.Top or AnchorStyles.Left or AnchorStyles.Right dim fnt as new Font("Times New Roman", 16) dtp.CalendarFont = new Font(fnt, FontStyle.Bold or FontStyle.Italic) dtp.CalendarForeColor = Color.Red dtp.CalendarMonthBackground = Color.Yellow dtp.CalendarTitleBackColor = Color.Lime dtp.CalendarTitleForeColor = Color.Blue dtp.CalendarTrailingForeColor = Color.FromArgb(255,192,192) dtp.CustomFormat = "dddd,MMMM d, yyyy "at" h:mm:ss tt" dtp.Format = DateTimePickerFormat.Custom dtp.DropDownAlign = LeftRightAlignment.Right dtp.ShowUpDown = false " default AddHandler dtp.ValueChanged, AddressOf dtp_ValueChanged end sub public shared sub Main() Application.Run(new DTPicker()) end sub private sub UpdateLabels() Console.WriteLine(dtp.Value.ToString()) Console.WriteLine(dtp.Value.ToLongDateString()) Console.WriteLine(dtp.Value.ToLongTimeString()) Console.WriteLine(dtp.Value.ToShortDateString()) Console.WriteLine(dtp.Value.ToShortTimeString()) end sub private sub me_Load(ByVal sender as object,ByVal e as EventArgs) UpdateLabels() end sub private sub dtp_ValueChanged(ByVal sender as object,ByVal e as EventArgs) UpdateLabels() end sub private sub txtCustomString_TextChanged(ByVal sender as object,ByVal e as EventArgs) UpdateLabels() end sub
end class
</source>
DateTimePicker.CalendarTrailingForeColor
<source lang="vbnet">
Option Strict On imports System imports System.Drawing imports System.Windows.Forms public class DTPicker : inherits Form
dim dtp as DateTimePicker public sub New() Size = new Size(400,300) AddHandler me.Load, AddressOf me_Load dtp = new DateTimePicker() dtp.Parent = me dtp.Location = new Point(20,20) dtp.Size = new Size(ClientSize.Width - 40, dtp.PreferredHeight) dtp.Anchor = AnchorStyles.Top or AnchorStyles.Left or AnchorStyles.Right dim fnt as new Font("Times New Roman", 16) dtp.CalendarFont = new Font(fnt, FontStyle.Bold or FontStyle.Italic) dtp.CalendarForeColor = Color.Red dtp.CalendarMonthBackground = Color.Yellow dtp.CalendarTitleBackColor = Color.Lime dtp.CalendarTitleForeColor = Color.Blue dtp.CalendarTrailingForeColor = Color.FromArgb(255,192,192) dtp.CustomFormat = "dddd,MMMM d, yyyy "at" h:mm:ss tt" dtp.Format = DateTimePickerFormat.Custom dtp.DropDownAlign = LeftRightAlignment.Right dtp.ShowUpDown = false " default AddHandler dtp.ValueChanged, AddressOf dtp_ValueChanged end sub public shared sub Main() Application.Run(new DTPicker()) end sub private sub UpdateLabels() Console.WriteLine(dtp.Value.ToString()) Console.WriteLine(dtp.Value.ToLongDateString()) Console.WriteLine(dtp.Value.ToLongTimeString()) Console.WriteLine(dtp.Value.ToShortDateString()) Console.WriteLine(dtp.Value.ToShortTimeString()) end sub private sub me_Load(ByVal sender as object,ByVal e as EventArgs) UpdateLabels() end sub private sub dtp_ValueChanged(ByVal sender as object,ByVal e as EventArgs) UpdateLabels() end sub private sub txtCustomString_TextChanged(ByVal sender as object,ByVal e as EventArgs) UpdateLabels() end sub
end class
</source>
DateTimePicker.DropDownAlign
<source lang="vbnet"> Option Strict On imports System imports System.Drawing imports System.Windows.Forms public class DTPicker : inherits Form
dim dtp as DateTimePicker public sub New() Size = new Size(400,300) AddHandler me.Load, AddressOf me_Load dtp = new DateTimePicker() dtp.Parent = me dtp.Location = new Point(20,20) dtp.Size = new Size(ClientSize.Width - 40, dtp.PreferredHeight) dtp.Anchor = AnchorStyles.Top or AnchorStyles.Left or AnchorStyles.Right dim fnt as new Font("Times New Roman", 16) dtp.CalendarFont = new Font(fnt, FontStyle.Bold or FontStyle.Italic) dtp.CalendarForeColor = Color.Red dtp.CalendarMonthBackground = Color.Yellow dtp.CalendarTitleBackColor = Color.Lime dtp.CalendarTitleForeColor = Color.Blue dtp.CalendarTrailingForeColor = Color.FromArgb(255,192,192) dtp.CustomFormat = "dddd,MMMM d, yyyy "at" h:mm:ss tt" dtp.Format = DateTimePickerFormat.Custom dtp.DropDownAlign = LeftRightAlignment.Right dtp.ShowUpDown = false " default AddHandler dtp.ValueChanged, AddressOf dtp_ValueChanged end sub public shared sub Main() Application.Run(new DTPicker()) end sub private sub UpdateLabels() Console.WriteLine(dtp.Value.ToString()) Console.WriteLine(dtp.Value.ToLongDateString()) Console.WriteLine(dtp.Value.ToLongTimeString()) Console.WriteLine(dtp.Value.ToShortDateString()) Console.WriteLine(dtp.Value.ToShortTimeString()) end sub private sub me_Load(ByVal sender as object,ByVal e as EventArgs) UpdateLabels() end sub private sub dtp_ValueChanged(ByVal sender as object,ByVal e as EventArgs) UpdateLabels() end sub private sub txtCustomString_TextChanged(ByVal sender as object,ByVal e as EventArgs) UpdateLabels() end sub
end class
</source>
DateTimePicker.ValueChanged
<source lang="vbnet"> Option Strict On imports System imports System.Drawing imports System.Windows.Forms public class DTPicker : inherits Form
dim dtp as DateTimePicker public sub New() Size = new Size(400,300) AddHandler me.Load, AddressOf me_Load dtp = new DateTimePicker() dtp.Parent = me dtp.Location = new Point(20,20) dtp.Size = new Size(ClientSize.Width - 40, dtp.PreferredHeight) dtp.Anchor = AnchorStyles.Top or AnchorStyles.Left or AnchorStyles.Right dim fnt as new Font("Times New Roman", 16) dtp.CalendarFont = new Font(fnt, FontStyle.Bold or FontStyle.Italic) dtp.CalendarForeColor = Color.Red dtp.CalendarMonthBackground = Color.Yellow dtp.CalendarTitleBackColor = Color.Lime dtp.CalendarTitleForeColor = Color.Blue dtp.CalendarTrailingForeColor = Color.FromArgb(255,192,192) dtp.CustomFormat = "dddd,MMMM d, yyyy "at" h:mm:ss tt" dtp.Format = DateTimePickerFormat.Custom dtp.DropDownAlign = LeftRightAlignment.Right dtp.ShowUpDown = false " default AddHandler dtp.ValueChanged, AddressOf dtp_ValueChanged end sub public shared sub Main() Application.Run(new DTPicker()) end sub private sub UpdateLabels() Console.WriteLine(dtp.Value.ToString()) Console.WriteLine(dtp.Value.ToLongDateString()) Console.WriteLine(dtp.Value.ToLongTimeString()) Console.WriteLine(dtp.Value.ToShortDateString()) Console.WriteLine(dtp.Value.ToShortTimeString()) end sub private sub me_Load(ByVal sender as object,ByVal e as EventArgs) UpdateLabels() end sub private sub dtp_ValueChanged(ByVal sender as object,ByVal e as EventArgs) UpdateLabels() end sub private sub txtCustomString_TextChanged(ByVal sender as object,ByVal e as EventArgs) UpdateLabels() end sub
end class
</source>