تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] استعراض حالة عمل البرنامج
#1
السلام عليكم اخوتى



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

كود :
 For I = 0 To CheckedListBox1.CheckedItems.Count - 1
           Process.Start(CheckedListBox1.CheckedItems(I)).WaitForExit()
       Next
       MsgBox(" تم الانتهاء من تصطيب كل البرامج")
الرد }}}
تم الشكر بواسطة:
#2
PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
    Dim thread 
As New Threading.Thread(AddressOf installationWith {.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 
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , ابو روضة
#3
(07-10-17, 11:03 PM)a.ahmed كتب :
PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
    Dim thread 
As New Threading.Thread(AddressOf installationWith {.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 ماذا افعل لو سمحت ؟؟
الرد }}}
تم الشكر بواسطة:
#4
PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 installationWith {.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(xx.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 
الرد }}}
تم الشكر بواسطة:
#5
(08-10-17, 02:04 AM)a.ahmed كتب :
PHP كود :
[align=center][b]Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 installationWith {.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(xx.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

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



الرد }}}
تم الشكر بواسطة:
#6
PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 installationWith {.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 
الرد }}}
تم الشكر بواسطة:
#7
(08-10-17, 09:10 AM)a.ahmed كتب :
PHP كود :
[align=center]Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 installationWith {.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

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


الرد }}}
تم الشكر بواسطة:
#8
خلاص يا استاذ احمد عملتها وحاولت معاها الحمدلله.....
ربنا يكرمك ويبارك بعمرك ويزيدك من علمه.
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 149 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  حل مشكلة بعد تثبيت البرنامج في جهاز العميل Adel27213 3 467 02-12-23, 11:00 PM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  [VB.NET] كيف اجعل البرنامج يحدد اخر يوم من كل شهر Adel27213 2 361 03-11-23, 06:50 AM
آخر رد: Adel27213
  [سؤال] عمل البرنامج على أى resoluation dr.programming 0 244 02-11-23, 12:08 AM
آخر رد: dr.programming
  تنصيب البرنامج على اجهزة العملاء um_noor20 2 327 30-10-23, 04:17 PM
آخر رد: Taha Okla
  [VB.NET] حفظ الفورم (Form) (البرنامج) بعد التغيير visualist2015 6 6,359 29-09-23, 03:09 AM
آخر رد: Taha Okla

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم