顯示vb.net中mothcalander控件的月份？

Question

我有一個列表視圖包含月份的名稱。我有一個monthcalender控制。我想知道這是否可能wtwt我在列表視圖中單擊一個月份名稱。它顯示monthcalander控制中的月份名稱？

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) 

在這部分我得到的文本框中的月份名稱。我想在月顯示月份名稱calander控制

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 

任何建議？

Answer 1

的代碼添加到列表視圖點擊

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