[ابو روضة]

(08-10-17, 09:10 AM)a.ahmed كتب :

PHP كود :

[align=center]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click[/align]
[align=center]    If ListViewEx1.CheckedItems.Count > 0 Then[/align]
[align=center]        ProgressBar1.Style = ProgressBarStyle.Continuous[/align]
[align=center]        ProgressBar1.Maximum = 1[/align]
[align=center]        ProgressBar1.Maximum = ListViewEx1.CheckedItems.Count[/align]
[align=center]        Dim thread As New Threading.Thread(AddressOf installation) With {.IsBackground = True}[/align]
[align=center]        thread.Start()[/align]
[align=center]    End If[/align]
[align=center]End Sub[/align]
[align=center][/align]
[align=center]Sub installation()[/align]
[align=center][/align]
[align=center]    Me.Invoke(Sub() Me.Enabled = False)[/align]
[align=center]    'Button1.Invoke(Sub() Button1.Enabled = False)[/align]
[align=center][/align]
[align=center]    For Each itm As ListViewItem In ListViewEx1.Invoke(Function() ListViewEx1.CheckedItems.Cast(Of ListViewItem).ToArray)[/align]
[align=center]        Dim s As String = itm.Text[/align]
[align=center]        ToolStripStatusLabel1.Text = s[/align]
[align=center]        Process.Start(s).WaitForExit()[/align]
[align=center]        ProgressBar1.Invoke(Sub() ProgressBar1.Increment(1))[/align]
[align=center]    Next[/align]
[align=center][/align]
[align=center]    'Button1.Invoke(Sub() Button1.Enabled = True)[/align]
[align=center]    Me.Invoke(Sub() Me.Enabled = True)[/align]
[align=center][/align]
[align=center]    ToolStripStatusLabel1.Text = "تم الانتهاء من تصطيب كل البرامج"[/align]
[align=center]    MsgBox("تم الانتهاء من تصطيب كل البرامج")[/align]
[align=center][/align]
[align=center]End Sub[/align]
[align=center][/align] 


تعبتك معايا عارف والله لكن لا أعلم من أين هذا الخطأ ؟؟