本文整理汇总了VB.NET中System.Windows.Forms.DateTimePicker.ValueChanged事件的典型用法代码示例。如果您正苦于以下问题:VB.NET DateTimePicker.ValueChanged事件的具体用法?VB.NET DateTimePicker.ValueChanged怎么用?VB.NET DateTimePicker.ValueChanged使用的例子?那么, 这里精选的事件代码示例或许可以为您提供帮助。您也可以进一步了解该事件所在类System.Windows.Forms.DateTimePicker
的用法示例。
在下文中一共展示了DateTimePicker.ValueChanged事件的2个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1:
Private Sub DateTimePicker1_ValueChanged(sender as Object, e as EventArgs) _
Handles DateTimePicker1.ValueChanged
MessageBox.Show("You are in the DateTimePicker.ValueChanged event.")
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