如何基于ListView中的数据打开某个TabPage?

时间:2018-07-18 01:40:03

标签: vb.net listview tabcontrol tabpage

我创建了2种形式:Form1Form2Form1包含我的TabControl,其中有5个TabPages。有5 TabPages个:“特殊事件条目”,“事故事件条目”,“一般事件条目”,“伤害事件条目”和“工作场所暴力事件条目”。

我的Form2包含一个ListView。我创建了一个名为“ Entry Type”的列标题。现在有5种输入类型:“特殊事件输入”,“事故事件输入”,“一般事件输入”,“伤害事件输入”和“工作场所暴力事件输入”。我想要完成的是:

当用户双击ListView中的任何项目时,根据该项目的“条目类型”列下所述,相应的TabPage将打开,其中包含表单控件。

我尝试过Form1.TabControl1.SelectedIndex = 1,并打开了索引为1的TabPage。如何从ListView上的Form2获取“ Entry Type”输入然后在TabPage上打开相应的Form1?我已将测试数据添加到我的ListView中以尝试找出答案。

1 个答案:

答案 0 :(得分:0)

使用双击事件并在适当的SubItem中获取值。然后,在“选择案例”中使用此值来选择正确的标签。

Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick
        'Use whatever SubItem index is the appropriate column
        Dim strTabName As String = ListView1.SelectedItems(0).SubItems(0).Text
        Select Case strTabName
            Case "Special Incident Entry"
                Form1.TabControl1.SelectedIndex = 0
            Case "Accident Incident Entry"
                Form1.TabControl1.SelectedIndex = 1
            Case "General Incident Entry"
                Form1.TabControl1.SelectedIndex = 2
            Case "Injury Incident Entry"
                Form1.TabControl1.SelectedIndex = 3
            Case "Workplace Violent Incident Entry"
                Form1.TabControl1.SelectedIndex = 4
            Case Else
                MessageBox.Show("Please try double clicking again.")
        End Select
    End Sub