May
Saturday 16 October 2010 photo 1/1
|
Tycker att jag varit duktig som städat på skrivbordet :D gott om plats nu :)
Och för att göra det hela lite bättre så ska ni få läsa vad jag programmerar på nu :D
For Each s In My.Settings.autocomplete
Dim int2 As Integer = 0
For Each st In ctrl
If st = s Then
int2 = int2 + 1
End If
Next
If int2 < 2 Then
NewCol.Add(s)
NewMax = NewMax + 1
ElseIf int2 > 1 Then
Dim int1 As Integer = 0
For Each st1 In NewCol
If st1 = s Then
int1 = int1 + 1
End If
Next
If int1 = 0 Then
NewCol.Add(s)
NewMax = NewMax + 1
End If
End If
i = i + 1
ProgressBar1.Value = (i / max) * 100
Next
My.Settings.autocomplete.Clear()
For Each s3 In NewCol
My.Settings.autocomplete.Add(s3)
Next
Dim int2 As Integer = 0
For Each st In ctrl
If st = s Then
int2 = int2 + 1
End If
Next
If int2 < 2 Then
NewCol.Add(s)
NewMax = NewMax + 1
ElseIf int2 > 1 Then
Dim int1 As Integer = 0
For Each st1 In NewCol
If st1 = s Then
int1 = int1 + 1
End If
Next
If int1 = 0 Then
NewCol.Add(s)
NewMax = NewMax + 1
End If
End If
Next
My.Settings.autocomplete.Clear()
For Each s3 In NewCol
My.Settings.autocomplete.Add(s3)
Next
NewMax = NewMax + 1
End If
End If
i = i + 1
ProgressBar1.Value = (i / max) * 100
Next
My.Settings.autocomplete.Clear()
For Each s3 In NewCol
My.Settings.autocomplete.Add(s3)
Next
Annons
3 comments on this photo
Directlink:
http://dayviews.com/endlessmind/474800378/
Visa toppen
Show footer