在 vb.net 中显示 mothcalander 控制的月份？

Posted 2023-03-30

【中文标题】在 vb.net 中显示 mothcalander 控制的月份？

【英文标题】：show the month in mothcalander control in vb.net?

【发布时间】：2015-07-10 11:45:21

【问题描述】：

我有一个包含月份名称的列表视图。我有一个月历控制。我想知道这是否可能，然后我单击列表视图中的月份名称。它在月份日历控件中显示月份名称？

Dim arr(3) As String
    Dim itm As ListViewItem
    arr(0) = "2015"
    arr(1) = "Jan"
    itm = New ListViewItem(arr)
    ListView1.Items.Add(itm)
    arr(0) = "2015"
    arr(1) = "feb"
    itm = New ListViewItem(arr)
    ListView1.Items.Add(itm)
    arr(0) = "2015"
    arr(1) = "Mar"
    itm = New ListViewItem(arr)
    ListView1.Items.Add(itm)
    arr(0) = "2015"
    arr(1) = "Apr"
    itm = New ListViewItem(arr)
    ListView1.Items.Add(itm)

在这部分中，我在文本框中获取月份名称。我想在月历控件中显示月份名称

  Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click
    Dim tt As String
    Dim tt1 As String
    tt = ListView1.SelectedItems.Item(0).SubItems(1).Text
    tt1 = ListView1.SelectedItems.Item(0).SubItems(0).Text
    TextBox1.Text = tt.ToString & vbCr & tt1
  End Sub

有什么建议吗？

【参考方案1】：

将代码添加到列表视图点击

Dim sr As New SelectionRange()
sr.Start = DateTime.Parse(Me.TextBox1.Text)
Me.MonthCalendar1.SelectionRange = sr