[سعود]

PHP كود :

Dim img As Image = Image.FromFile("pro.PNG")
    Dim rec As New Rectangle
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        rec.Width = p.Width
        rec.Height = p.Height
    End Sub
    Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        p.CreateGraphics().DrawRectangle(Pens.Red, rec)
        p.CreateGraphics().DrawImage(img, rec.X, rec.Y, rec.Width, rec.Height)
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        p.Value += 1
    End Sub 


اضف Progressbar  وهو بالكود باسم p
لماذا الخلفية تختفي عند النقر على زر  زيادة قيمة ثم لماذا لا يظهر اللون الاخضر وكيف نقوم بتغييره؟

الظاهر الان صورة باستخدام الكود ولا يظهر اللون الاخضر.

[DR.YASER]

أخى الفاضل سعود
بخصوص تلوين البروجراس بار فهى Defult Tool .. جئ فى الدوت نت بلون واحد فقط .. لكن بالبحث منذ فترة وجدت أكثر من طريقة لتلوينها و بنجاح 


و منها مثال رائع (from sourcecodester)  .. مرفق المثال .
كذلك هناك دالة رائعة تقوم بنفس العمل و هى :

كود :

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
   Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As Integer, ByVal lParam As Integer) As IntPtr

   End Function


And use this function:

SendMessage(ProgressBar1.Handle, 1040, 2, 0)

Color codes:

1: green
2: red
3: yellow

أما بخصوص عدم ظهور الصور بالمثال أعلاه سأحمل المثال  و أبلغك .. تقبل تحياتى