+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مثال] تغير الوان الاداة progressbar ..... (/showthread.php?tid=3419)
تغير الوان الاداة progressbar ..... - raoe-041 - 08-07-14
بعد انشاء form جديد نصع اداة progressbar و Button و Timer
و لتغير الالوان تغير قيمة
(sendmessage(progressbar1.handle,1040,3,0
حيث الرقم 1 اللون الاخضر الطبيعي
الرقم 2 اللون الاحمر
الرقم 3 اللون الاصفر
[/code]
كود :
Public Class form1
Private Declare Function sendmessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wparam As Integer, ByVal lparam As Integer) As Integerكود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sendmessage(ProgressBar1.Handle, 1040, 3, 0)
Timer1.Start()
End Sub
[code]
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
End SubRE: تغير الوان الاداة progressbar ..... - سلامه محمد11 - 21-12-16
مشكور اخى بارك الله فيك