+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=42287)
وضع صورة كخلفية للبروقرس بار لكن!! - سعود - 27-08-22
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
لماذا الخلفية تختفي عند النقر على زر زيادة قيمة ثم لماذا لا يظهر اللون الاخضر وكيف نقوم بتغييره؟
الظاهر الان صورة باستخدام الكود ولا يظهر اللون الاخضر.
RE: وضع صورة كخلفية للبروقرس بار لكن!! - DR.YASER - 27-08-22
أخى الفاضل سعود
بخصوص تلوين البروجراس بار فهى 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أما بخصوص عدم ظهور الصور بالمثال أعلاه سأحمل المثال و أبلغك .. تقبل تحياتى