Imports System.ComponentModel
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
BackgroundWorker1.RunWorkerAsync()
End Sub
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
CheckForIllegalCrossThreadCalls = False
Dim ic As String
Dim aa As String = "abcdefghijklmnopqrstuvwxyz"
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = aa.Length
For i As Integer = 0 To aa.Length - 1
For ii As Integer = 0 To aa.Length - 1
For iii As Integer = 0 To aa.Length - 1
For iiii As Integer = 0 To aa.Length - 1
ic = (aa(i) + aa(ii) + aa(iii) + aa(iiii))
Label1.Text = ic
ListBox1.Items.Add(ic)
If (aa(i) + aa(ii) + aa(iii) + aa(iiii)).ToString = TextBox1.Text Then Exit Sub
Next
Next
Next
BackgroundWorker1.ReportProgress(i + 1)
Next
End Sub
Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub
End Class
أخي ياريت توضيح لوظيفة الكود التالي لو سمحت
BackgroundWorker1.ReportProgress(i + 1)
