[trakktour]

السلام عليكم احبابي في الله 


واجهت مشكلة في listview
انا وضعت listview داخل tabcontrol
و كل مرة اضيف tab و new_listview
كل ما اريده هو استعمال mouse_click في new_listview

هذا الكود الذي استعمله

كود :

   Dim TB As New TabPage
   Dim itm As ListViewItem
   Dim NewListView As New ListView
   Dim arr As String() = New String(3) {}

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If TextBox1.TextLength < 1 Then
           Return
           Exit Sub
       End If


       NewListView.GridLines = True
       NewListView.FullRowSelect = True
       NewListView.View = View.Details
       NewListView.Columns.Add("Name", 150)
       NewListView.Columns.Add("id", 60)
       NewListView.Columns.Add("code", 60)
       NewListView.Dock = DockStyle.Fill
       TB.Text = TextBox1.Text
       TB.Tag = TextBox1.Text
       TB.ImageIndex = 0
       TB.Controls.Add(NewListView)
       TabControl1.TabPages.Add(TB)
       TabControl1.SelectedTab = TB

       TextBox1.Text = Nothing
       TextBox1.Focus()

       arr(0) = "Tunisia"
       arr(1) = "578"
       arr(2) = "969"
       itm = New ListViewItem(arr)
       NewListView.Items.Add(itm)


   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       arr(0) = "trakktour"
       arr(1) = "1000"
       arr(2) = "tra78"
       itm = New ListViewItem(arr)
       ListView1.Items.Add(itm)

       arr(0) = "trakktour1"
       arr(1) = "478"
       arr(2) = "tra00"
       itm = New ListViewItem(arr)
       ListView1.Items.Add(itm)

   End Sub

   Private Sub ListView1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListView1.MouseClick
       Dim firas As String = ListView1.SelectedItems(0).SubItems(1).Text
       MsgBox(firas)
   End Sub