منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - وضع صورة كخلفية للبروقرس بار لكن!!

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
لماذا الخلفية تختفي عند النقر على زر زيادة قيمة ثم لماذا لا يظهر اللون الاخضر وكيف نقوم بتغييره؟

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

أخى الفاضل سعود
بخصوص تلوين البروجراس بار فهى 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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سعود

DR.YASER