azbddk
سه شنبه 24 تیر 1393, 15:00 عصر
سلام
من یه همچین کدی رو وارد Background worker می کنم ولی وقتی برنامه رو اجرا می کنم روی دکمه که میزنم هیچ اتفاقی نمیوفته.چیکار باید کنم؟
کد Background worker
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork Try
OFD.ShowDialog()
Dim Path As String = OFD.FileName
Dim readText() As String = File.ReadAllLines(Path)
Dim s As String
For Each s In readText
ListView1.Items.Add(s)
Next
Dim i As Integer
For i = 0 To ListView1.Items.Count - 1
TextBox2.Text += ListView1.Items(i).Text & ","
Next
TextBox2.Text = TextBox2.Text.Remove(TextBox2.Text.Length - 1)
Catch ex As Exception
End Try
End Sub
کد دکمه
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click BackgroundWorker1.RunWorkerAsync()
End Sub
من یه همچین کدی رو وارد Background worker می کنم ولی وقتی برنامه رو اجرا می کنم روی دکمه که میزنم هیچ اتفاقی نمیوفته.چیکار باید کنم؟
کد Background worker
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork Try
OFD.ShowDialog()
Dim Path As String = OFD.FileName
Dim readText() As String = File.ReadAllLines(Path)
Dim s As String
For Each s In readText
ListView1.Items.Add(s)
Next
Dim i As Integer
For i = 0 To ListView1.Items.Count - 1
TextBox2.Text += ListView1.Items(i).Text & ","
Next
TextBox2.Text = TextBox2.Text.Remove(TextBox2.Text.Length - 1)
Catch ex As Exception
End Try
End Sub
کد دکمه
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click BackgroundWorker1.RunWorkerAsync()
End Sub