VB.Net by API/System.Windows.Forms/DateTimePicker
Содержание
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>
