[ابو روضة]

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

PHP كود :

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


هناك خطأ يا استاذ احمد