منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] استعراض حالة عمل البرنامج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] استعراض حالة عمل البرنامج (/showthread.php?tid=22030)

استعراض حالة عمل البرنامج - ابو روضة - 07-10-17

السلام عليكم اخوتى



اريد عمل مثل ما بالصورة بحيث اننا وضعت خمس برامج exe فى CheckedListBox1
ولما اضغط على تصطيبهم أعرف ما يتم تنصيبه حاليا لآن هذه البرامج صامتة فلا تظهر
أثناء تصطيبهم ولما ينتهى منهم جميعا يظهر لى رسالة بالانتهاء ...
وهذا هو كود تنصيب البرامج لكن به خطأ مش عارف ليه
لآنى اريده يصطب ما احدده انا فقط ويتجاهل الباقى لكن هذا يصطبهم كلهم ويظهر الرسالة بعد 
تصطيب كل برامج وانا اريد الرسالة تظهر فقط عند االانتهاء من كل البرامج التى تم اختيارها

كود :
 For I = 0 To CheckedListBox1.CheckedItems.Count - 1
           Process.Start(CheckedListBox1.CheckedItems(I)).WaitForExit()
       Next
       MsgBox(" تم الانتهاء من تصطيب كل البرامج")


RE: استعراض حالة عمل البرنامج - a.ahmed - 07-10-17

PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim thread As New Threading.Thread(AddressOf installation) With {.IsBackground = True}
    thread.Start()
End Sub
Sub installation()
    If CheckedListBox1.CheckedItems.Count > 0 Then

        Me.Invoke(Sub() Me.Enabled = False)
        'Button1.Invoke(Sub() Button1.Enabled = False)

        For Each itm In CheckedListBox1.CheckedItems
            ToolStripStatusLabel1.Text = itm
            Process.Start(itm).WaitForExit()
        Next

        'Button1.Invoke(Sub() Button1.Enabled = True)
        Me.Invoke(Sub() Me.Enabled = True)

        ToolStripStatusLabel1.Text = "تم الانتهاء من تصطيب كل البرامج"
        MsgBox("تم الانتهاء من تصطيب كل البرامج")
    End If
End Sub 


RE: استعراض حالة عمل البرنامج - ابو روضة - 07-10-17

(07-10-17, 11:03 PM)a.ahmed كتب :
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim thread As New Threading.Thread(AddressOf installation) With {.IsBackground = True}
    thread.Start()
End Sub
Sub installation()
    If CheckedListBox1.CheckedItems.Count > 0 Then

        Me.Invoke(Sub() Me.Enabled = False)
        'Button1.Invoke(Sub() Button1.Enabled = False)

        For Each itm In CheckedListBox1.CheckedItems
            ToolStripStatusLabel1.Text = itm
            Process.Start(itm).WaitForExit()
        Next

        'Button1.Invoke(Sub() Button1.Enabled = True)
        Me.Invoke(Sub() Me.Enabled = True)

        ToolStripStatusLabel1.Text = "تم الانتهاء من تصطيب كل البرامج"
        MsgBox("تم الانتهاء من تصطيب كل البرامج")
    End If
End Sub 


ماشاء الله عليك استاذ احمد فعلا نجحت أخى...

يبدو أن الأغلبية هنا بالفعل مبدعين ماشاء الله...

ربنا يجزيك كل الخير والسعادة.......
بقولك يا استاذ احمد :-



لو أحببت أن أجعل الListViewEx1 بدلا من CheckedListBox1 ماذا افعل لو سمحت ؟؟


RE: استعراض حالة عمل البرنامج - a.ahmed - 08-10-17

PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If ListViewEx1.CheckedItems.Count > 0 Then
        ProgressBar1.Style = ProgressBarStyle.Continuous
        ProgressBar1.Maximum = 1
        ProgressBar1.Maximum = ListViewEx1.CheckedItems.Count
        Dim thread As New Threading.Thread(AddressOf installation) With {.IsBackground = True}
        thread.Start()
    End If
End Sub

Sub installation()

    Me.Invoke(Sub() Me.Enabled = False)

    Dim items As String() = Nothing
    ListViewEx1.Invoke(Sub()
                           items = ListViewEx1.CheckedItems.Cast(Of ListViewItem).Select(Function(x) x.Text).ToArray
                       End Sub)

    For Each itm In items
        ToolStripStatusLabel1.Text = itm
        Process.Start(itm).WaitForExit()
        ProgressBar1.Invoke(Sub() ProgressBar1.Increment(1))
    Next

    Me.Invoke(Sub() Me.Enabled = True)

    ToolStripStatusLabel1.Text = "تم الانتهاء من تصطيب كل البرامج"
    MsgBox("تم الانتهاء من تصطيب كل البرامج")

End Sub 


RE: استعراض حالة عمل البرنامج - ابو روضة - 08-10-17

(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] 

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





RE: استعراض حالة عمل البرنامج - a.ahmed - 08-10-17

PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If ListViewEx1.CheckedItems.Count > 0 Then
        ProgressBar1.Style = ProgressBarStyle.Continuous
        ProgressBar1.Maximum = 1
        ProgressBar1.Maximum = ListViewEx1.CheckedItems.Count
        Dim thread As New Threading.Thread(AddressOf installation) With {.IsBackground = True}
        thread.Start()
    End If
End Sub

Sub installation()

    Me.Invoke(Sub() Me.Enabled = False)
    'Button1.Invoke(Sub() Button1.Enabled = False)

    For Each itm As ListViewItem In ListViewEx1.Invoke(Function() ListViewEx1.CheckedItems.Cast(Of ListViewItem).ToArray)
        Dim s As String = itm.Text
        ToolStripStatusLabel1.Text = s
        Process.Start(s).WaitForExit()
        ProgressBar1.Invoke(Sub() ProgressBar1.Increment(1))
    Next

    'Button1.Invoke(Sub() Button1.Enabled = True)
    Me.Invoke(Sub() Me.Enabled = True)

    ToolStripStatusLabel1.Text = "تم الانتهاء من تصطيب كل البرامج"
    MsgBox("تم الانتهاء من تصطيب كل البرامج")

End Sub 


RE: استعراض حالة عمل البرنامج - ابو روضة - 08-10-17

(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] 

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




RE: استعراض حالة عمل البرنامج - ابو روضة - 08-10-17

خلاص يا استاذ احمد عملتها وحاولت معاها الحمدلله.....
ربنا يكرمك ويبارك بعمرك ويزيدك من علمه.