اضافه کردنItem در ListView از طریق Class در Multi Thread

[RaminRHK]

سلام به مهندسن عزیز
توی برنامم Multi Thread استفاده کردم و دارم request میدم و این request رو توی یه کلاس گذاشتم حالا وقتی توی ترید کلاس رو صدا میزنم و کارشو انجام میده باید یه چیزی توی Listview بیاد
مشکلم با کدهای زیر حل نشد :

  Form1.ListView1.BeginInvoke(Sub()





                                                Dim LItem As New ListViewItem()

                                                LItem.Text = (username)

                                                LItem.SubItems.Add(password)

                                                LItem.SubItems.Add("asd")

                                                LItem.SubItems.Add("google")

                                                LItem.SubItems.Add("-")

                                                Form1.ListView1.Items.Add(LItem)

                                            End Sub)

و

  Public Class AddHit

    Public Shared Function add(username As String, password As String, capture As String, site As String) As String





        Form1.ListView1.BeginInvoke(Sub()





                                        Dim LItem As New ListViewItem("")

                                        LItem.Text = (username)

                                        LItem.SubItems.Add(password)

                                        LItem.SubItems.Add("-")

                                        Form1.ListView1.Items.Add(LItem)

                                        Form1.ListView1.Refresh()

                                    End Sub)









        Return 0

    End Function





End Class

[gilsoft]

سلام دوست عزیز

از کد زیر باید الهام بگیری (من کلیات رو گفتم):

Public Class AddHit



    Delegate Sub add(username As String, password As String, capture As String, site As String)



    Sub Button1_Click(sender As Object, e As System.EventArgs)



        Form1.ListView1.BeginInvoke(New add(AddressOf addItem))



    End Sub



    Public Shared Sub addItem(username As String, password As String, capture As String, site As String)



        Dim LItem As New ListViewItem("")

        LItem.Text = (username)

        LItem.SubItems.Add(password)

        LItem.SubItems.Add("-")

        Form1.ListView1.Items.Add(LItem)

        Form1.ListView1.Refresh()



    End Sub



End Class

موفق باشید