28-04-19, 11:57 PM
أخي لو سمحت أنت أوضحت لي من خلال هذا السطر القيمة المراد التوقف عندها
'If (aa(i) + aa(ii) + aa(iii)).ToString = "aaz" Then Exit Sub
كيف لي أن أحدد القيمة التي أريد أن أبدأ بها
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
ListBox1.Items.Add(aa(i) + aa(ii) + aa(iii))