VB.Net by API/System.Windows.Forms/DateTimePicker

Материал из VB Эксперт
Перейти к: навигация, поиск

DateTimePicker.CalendarFont

  
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


DateTimePicker.CalendarMonthBackground

  

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


DateTimePicker.CalendarTrailingForeColor

  

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


DateTimePicker.DropDownAlign

  
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


DateTimePicker.ValueChanged

  
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
Источник — «http://vbex.ru/index.php?title=VB.Net_by_API/System.Windows.Forms/DateTimePicker&oldid=2760»