[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

[3booody]

تضيف مقبض الحدث بداخل زر البوتون

كود :

AddHandler NewListView.MouseClick, AddressOf ListView_MouseClick

وتتعامل مع الsender الي ياخذ قيمة الكائن الحقيقة

كود :

Private Sub ListView_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs)
       Dim firas As String = TryCast(sender, ListView).SelectedItems(0).SubItems(1).Text
       MsgBox(firas)
   End Sub

[smalw]

كود :

Dim itm As ListViewItem
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


   Dim NewListView As New ListView
   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
   AddHandler NewListView.MouseClick, AddressOf ListView1_MouseClick

   Dim TB As New TabPage
   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
   Dim firas As String = sender.SelectedItems(0).SubItems(1).Text
   MsgBox(firas)
End Sub

[trakktour]

(02-12-19, 10:58 AM)3booody كتب : تضيف مقبض الحدث بداخل زر البوتون

كود :

AddHandler NewListView.MouseClick, AddressOf ListView_MouseClick

وتتعامل مع الsender الي ياخذ قيمة الكائن الحقيقة

كود :

Private Sub ListView_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs)
       Dim firas As String = TryCast(sender, ListView).SelectedItems(0).SubItems(1).Text
       MsgBox(firas)
   End Sub

(02-12-19, 11:06 AM)smalw كتب :

كود :

Dim itm As ListViewItem
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


   Dim NewListView As New ListView
   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
   AddHandler NewListView.MouseClick, AddressOf ListView1_MouseClick

   Dim TB As New TabPage
   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
   Dim firas As String = sender.SelectedItems(0).SubItems(1).Text
   MsgBox(firas)
End Sub

شكرااااا لكم احبابي ربي يحفظكم و لا يحرمنا منكم