listview实现单选

    Private Sub lv_reason_ItemChecked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles lv_reason.ItemChecked
        If lv_reason.CheckedItems.Count > 1 Then
            For Each item As ListViewItem In lv_reason.CheckedItems
                item.Checked = False
            Next
            e.Item.Checked = True
        End If
        If Not String.IsNullOrEmpty(e.Item.Tag) Then
            txt_msg.Text = e.Item.Tag.ToString()
        End If
        reason = e.Item.Text
    End Sub