Private Sub back_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs)
Me.[进度条].Value = e.ProgressPercentage
Me.Label1.Text = String.Format("加载完成%{0}", e.ProgressPercentage)
End Sub
第二步:把你的长时间操作函数放到 DoWork 里执行,注意执行的时候不要动界面控件
Private Sub BackgoundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
长时间操作的函数()
End Sub