vb.net中日历,vb日历控件

怎样在vb.net里做一个日历提醒？急~~~~~~

Public Class Form1

    Dim 设置时间 As DateTime

    Private Sub D1_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles 日期时间选择.CloseUp

        和.Text = 日期时间选择.Value

        设置时间 = 日期时间选择.Value

    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        日期时间选择.Value = Now

    End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If Now.ToString = 和.Text Then

            提醒显示.Text = "时间到了 你该去做些什么事了吧"

            'Timer1.Enabled = False

        Else

            提醒显示.Text = "现在时间是：" Now

        End If

    End Sub

Private Sub 和_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 和.TextChanged

        设置时间 = 和.Text

    End Sub

End Class

相关问答

Q1: vb.net中怎么获取日期中的年月日时分秒

Dim ThisDay As String = Format(Now, "yyyy-MM-dd") '获得当前日期字符串

Dim ThisDateTime As DateTime = Convert.ToDateTime(ThisDay) '当前日期转换成DateTime

Dim ThisWeekDay As Integer = ThisDateTime.DayOfWeek '获得当前日期是星期几

Dim differadd As Integer = 1 - ThisWeekDay '相差的天数（星期1与当前星期几相差的天数）

Dim MyAdd As New TimeSpan(differadd, 0, 0, 0)

Dim MyYear As Integer = Format(Now, "yyyy") '获取当前日期的年份

Dim MyMonth As Integer = Format(Now, "MM") '获取当前日期的月份

Dim MyDay As Integer = Format(Now, "dd") '获取当前日期是几号

Dim MyToday As DateTime = New DateTime(MyYear, MyMonth, MyDay)

Dim Yourday As DateTime = MyToday.Add(MyAdd)

MsgBox("本周星期一的日期是：" Yourday)

Q2: 请问怎么用vb.net调出年月日

用日期函数day()可获得当前日期,time()可获得当前系统时间.

dim CurDay as string

dim CurTime as string

curday=day()

curtime=time()

Label1.Caption = Date

就能在Label16显示当前日期

now 这个函数可以获得当前系统时间（包括年月日，小时分钟秒）

而

year()

month()

day()

等等则可以从now返回的值中分别提取年，月，日的信息

Q3: 如何使用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年开始涉足技术领域。 查看本文国际来源

Q4: vb.net中 点textbox如何显示一个日历窗口

先将日历控件Visible属性设置为False,放置到Textbox控件上方，调整好尺寸，点按Textbox是改变日历控件的Visible属性即可