08-07-14, 07:26 AM
بعد انشاء form جديد نصع اداة progressbar و Button و Timer
و لتغير الالوان تغير قيمة
(sendmessage(progressbar1.handle,1040,3,0
حيث الرقم 1 اللون الاخضر الطبيعي
الرقم 2 اللون الاحمر
الرقم 3 اللون الاصفر
[/code]
و لتغير الالوان تغير قيمة
(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 Sub