如何用日期替换标签

debugcn 发表于 Dev

史蒂文森

我正在使用Visual Basic2010。这些图像可以最好地解释我的问题。

我想知道如何根据DateTimePicker的设置将标签显示为日期。例如：

解决了我的问题后，代码就是这样。

Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged
        Me.Label14.Text = CStr(Me.MonthCalendar1.SelectionRange.Start)
        Me.Label13.Text = CStr(Me.MonthCalendar1.SelectionRange.Start.AddDays(6))
        Me.Label12.Text = CStr(Me.MonthCalendar1.SelectionRange.Start.AddDays(1))
        Me.Label11.Text = CStr(Me.MonthCalendar1.SelectionRange.Start.AddDays(2))
        Me.Label10.Text = CStr(Me.MonthCalendar1.SelectionRange.Start.AddDays(3))
        Me.Label9.Text = CStr(Me.MonthCalendar1.SelectionRange.Start.AddDays(4))
        Me.Label15.Text = CStr(Me.MonthCalendar1.SelectionRange.Start.AddDays(5))
    End Sub

史蒂文森

找到了我自己问题的答案。

要检索日期并将其显示在标签中：

在“文件”菜单中，单击“新建项目”。
出现“新建项目”对话框。
单击Windows窗体应用程序，然后单击确定。
将Label控件添加到窗体，保留默认名称Label1。
从“标签”控件的“文本”属性中删除文本。
将MonthCalendar控件添加到窗体，保留默认名称MonthCalendar1。
双击MonthCalendar控件，以在代码编辑器中输入默认事件处理程序。
在MonthCalendar1_DateChanged事件处理程序中，添加以下代码以将项目添加到列表中：

Me.Label1.Text = CStr(Me.MonthCalendar1.SelectionRange.Start)
返回到Designer视图，并将DateTimePicker控件添加到窗体，保留默认名称DateTimePicker1。
双击DateTimePicker控件，以在代码编辑器中输入默认事件处理程序。
在DateTimePicker_ValueChanged事件处理程序中，添加以下代码以将项目添加到列表中：

Me.Label1.Text = CStr(Me.DateTimePicker1.Value)
按下F5以运行程序。
出现该窗体时，单击MonthCalendar控件中的日期，并验证该日期是否显示在标签中。
单击DateTimePicker控件的下拉箭头，然后选择一个日期。
日期和时间显示在标签中。