vb.net设计年份控件的简单介绍
（高分悬赏）用vb.net 做个类似DateTimePicker控件的东西，有调整日期的下拉菜单，但是时间要会动的
继承一下DateTimePicker,内置个timer 不断刷新显示
成都创新互联是一家专注于网站设计制作、成都网站制作与策划设计,昭化网站建设哪家好?成都创新互联做网站,专注于网站建设10多年,网设计领域的专业建站公司;建站业务涵盖:昭化等地区。昭化做网站价格咨询:13518219792
得到焦点停止timer,失去焦点继续timer
把代码贴到项目就会多出一个控件了
拖出来就能使用
显示格式可以自己设置
---------------------------------------------------------------------------------
''' summary
''' 自动更新的 DateTimePacker
''' /summary
Public Class MyDateTimePacker
Inherits DateTimePicker
Public Sub New()
Me.components = New Container
Me.m_tmrUpdate = New Timer(Me.components)
Me.m_tmrUpdate.Interval = 1000
AddHandler Me.m_tmrUpdate.Tick, New EventHandler(AddressOf Me.m_tmrUpdate_Tick)
MyBase.Format = DateTimePickerFormat.Custom
MyBase.CustomFormat = "yyyy 年 MM 月 dd 日 hh:mm:ss"
End Sub
''' summary
''' 释放资源
''' /summary
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If (disposing AndAlso (Not Me.components Is Nothing)) Then
Me.components.Dispose
End If
MyBase.Dispose(disposing)
End Sub
Private Sub m_tmrUpdate_Tick(ByVal sender As Object, ByVal e As EventArgs)
MyBase.Value = DateTime.Now
End Sub
Protected Overrides Sub OnEnter(ByVal e As EventArgs)
If Me.AutoUpdateByFocu Then
Me.m_tmrUpdate.Stop
End If
MyBase.OnEnter(e)
End Sub
Protected Overrides Sub OnLeave(ByVal e As EventArgs)
If Me.AutoUpdateByFocu Then
Me.m_tmrUpdate.Start
End If
MyBase.OnLeave(e)
End Sub
' Properties
''' summary
''' 更新定时器状态
''' /summary
Public Property AutoUpdate As Boolean
Get
Return Me.m_tmrUpdate.Enabled
End Get
Set(ByVal value As Boolean)
Me.m_tmrUpdate.Enabled = value
End Set
End Property
''' summary
''' 根据焦点状态开始、停止更新定时器
''' /summary
DefaultValue(False) _
Public Property AutoUpdateByFocu As Boolean
Get
Set(ByVal value As Boolean)
End Property
''' summary
''' 组件容器
''' /summary
Private components As IContainer = Nothing
''' summary
''' 更新定时器
''' /summary
Private m_tmrUpdate As Timer
End Class
---------------------------------------------------------------------------------
(用C#写的,然后反编译成VB.NET,有图有真相-.-真蛋疼,学C#吧...)
如何使用VB.NET DateTimePicker控件
这个控件允许你选择日期和时间；同时，由于这个控件允许你限制输入内容，你可以忽略合法的日期格式。DateTimePicker控件类似于MonthView控件，后者允许你选择一个日期或日期范围，但不支持时间选择。在本文中，我将创建一个使用DateTimePicker控件的实例。实例在常用控件（Common Controls）下的工具箱(Toolbox)中找到DateTimePicker控件，并把它添加到Windows Forms中。设置以下属性：l Name：dtpDateSelectionl CustomFormat：mm/dd/yyyyl Format：短l MaxDate：12/31/2008l MinDate：01/01/2007l ShowUpDown：假 在Form Load事件中添加以下代码： dtpDateSelection.Value = Now 创建以下事件： Private Sub dtpDateSelection_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtpDateSelection.CloseUp MessageBox.Show(dtpDateSelection.Value) End Sub 结果在第一个例子中，ShowUpDown属性设为假，表示在用户点击控件时，控件的日历部分可见。然后用户从控件的日历部分选择日期。在DateTimePicker控件中选择一个日期后，你的屏幕看起来与图A类似。 现在，将ShowUpDown属性值改为真，再次运行代码。这次你不会看到控件的日历部分，你可以点击控件的上/下箭头来选择一个日期。其结果类似于图B。 注意，这个控件不允许你选择小于MinDate属性值或大于MaxDate属性值的日期。 更多信息你还可以使用许多其它属性和重要的方法，让DateTimePicker控件满足你的需求。MSDN提供关于如何使用DateTimePicker控件的其它细节。 Irina Medvinskaya自1996年开始涉足技术领域。 查看本文国际来源
vb.net 控件制作
先生成dataset,然后用datarow装载dataset的需要编辑的记录，再把datarow的值赋给textbox的text显示给用户编辑，用户修改后，把textbox的text赋值回给datarow，最后update dataset更新数据.
如何用VB.NET的知识制作带*的文本框控件
添加一个TextBox控件（比如叫TextBox1）。
类似于Lable控件的功能，你可以修改TextBox控件的Text属性来达到目的：
不是在设计器里修改，而是在代码中用“TextBox1.Text="你想要显示的字符串";”这样的语句，这样就可以在程序运行时改变显示的内容。
设置或者取消星号，你可以通过代码修改TextBox1的PasswordChar属性，跟上面的是类似的：
在其他的控件的事件中比如Button的Click事件中修改——“TextBox1.PasswordChar="";//不显示***”
“TextBox1.PasswordChar="*（或者任何你想要的字符）";//显示为***”
至于什么时候改就完全随你的意思了。
VB.NET的控件问题 SOS~~~~~~~~~
FolderBrowserDialog可以实现
Windows 窗体编程
FolderBrowserDialog 组件概述（Windows 窗体）
请参见 发送反馈意见
Windows 窗体 FolderBrowserDialog 组件是用于浏览和选择文件夹的模式对话框。也可以从 FolderBrowserDialog 组件内创建新文件夹。
注意：
若要选择文件而不是文件夹，请使用 OpenFileDialog 组件。
使用 ShowDialog 方法，可在运行时显示 FolderBrowserDialog 组件。设置 RootFolder 属性可确定将出现在对话框的树状视图中的顶级文件夹和任何子文件夹。在对话框显示后，就可以使用 SelectedPath 属性获取所选文件夹的路径。
将 FolderBrowserDialog 组件添加到窗体后，它就会出现在“Windows 窗体设计器”底部的栏中。
请参见
概念
如何：使用 Windows 窗体 FolderBrowserDialog 组件选择文件夹
FolderBrowserDialog 组件（Windows 窗体）
参考
FolderBrowserDialog
上面是MSDN的帮助文档，说的很清楚了
标题名称：vb.net设计年份控件的简单介绍
本文地址：http://pwwzsj.com/article/hesocd.html
