本文整理汇总了VB.NET中System.Windows.Forms.DateTimePicker.CalendarFont属性的典型用法代码示例。如果您正苦于以下问题：VB.NET DateTimePicker.CalendarFont属性的具体用法？VB.NET DateTimePicker.CalendarFont怎么用？VB.NET DateTimePicker.CalendarFont使用的例子？那么, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.Windows.Forms.DateTimePicker的用法示例。
在下文中一共展示了DateTimePicker.CalendarFont属性的2个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: New
Public Sub New()
' Create a new DateTimePicker.
Dim dateTimePicker1 As New DateTimePicker()
Controls.AddRange(New Control() {dateTimePicker1})
dateTimePicker1.CalendarFont = New Font("Courier New", 8.25F, FontStyle.Italic, GraphicsUnit.Point, CType(0, [Byte]))
End Sub示例2: New
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