[mr.am.he]

(10-01-14, 02:45 PM)ناجي إبراهيم كتب : السلام عليكم...

يمكنك فعل ذلك باستعمال PictureBox واحد كالتالي كتجربة:

ضع على الـ Form مكون PictureBox الذي سيمثل الـ ProgressBar. اضبط ارتفاعه و عرضه كما تريد. نفرض أن اسمه Picture1.

ضع داخل الـ PictureBox مكون Shape (نفرض أن اسمه Shape1) و اضبط له الخصائص التالية:

الخاصية BackStyle على Opaque.
الخاصية BorderStyle على Transparent.
الخاصية BackColor على اللون الذي تريده.

* لا يهم مكانه و لا حجمه.

ضع على الـ Form مكون Timer (نفرض أن اسمه Timer1) و اضبط الخاصية Interval على 100 و الخاصية Enabled على False.

ضع على الـ Form مكون CommandButton. نفرض أن اسمه Command1.

* انقر نقراً مزدوجاً على الـ Form و اكتب السطر التالي في الحدث Form_Load:

كود :

Shape1.Move Picture1.ScaleLeft, Picture1.ScaleTop, 0, Picture1.ScaleHeight

* انقر نقراً مزدوجاً على Command1 و اكتب السطر التالي في الحدث Command1_Click:

كود :

Timer1.Enabled = True

* انقر نقراً مزدوجاً على Timer1 و اكتب الكود التالي في الحدث Timer1_Timer:

كود :

If Shape1.Width < Picture1.ScaleWidth Then
        Shape1.Width = Shape1.Width + (Picture1.ScaleWidth / 100)
    Else
        Timer1.Enabled = False
        MsgBox "انتهى"
    End If

شغل البرنامج و انقر على الزر. سيبدأ الشريط في التقدم من اليسار إلى اليمين.

* إذا أردته أن يتحرك من اليمين إلى اليسار فاجعل الأكواد كالتالي:

كود :

Private Sub Form_Load()
    Shape1.Move Picture1.ScaleWidth, Picture1.ScaleTop, 0, Picture1.ScaleHeight
End Sub

Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    If Shape1.Width < Picture1.ScaleWidth Then
        Shape1.Width = Shape1.Width + (Picture1.ScaleWidth / 100)
        Shape1.Left = Picture1.ScaleWidth - Shape1.Width
    Else
        Timer1.Enabled = False
        MsgBox "انتهى"
    End If
End Sub

نرجو الاستفادة و السلام.

مشكووووووووووووووووووووووووووووووووووووووووووووووووووووووووور
الله يعطيك العافيه

شكرا

بس عندي سؤال واحد بسيط تقدر تخليه يقعد يسوي حاجه وهو قاعد يطول؟؟
وكمان تقدر تخليه اول ما تخلص ذي الحاجة يكتمل الخط؟؟؟
و msgbox اعرف اغيره يعني مو لازم المهم اقدر اسوي ذي الاشياء؟