U3F1ZWV6ZTQ1NTE5MjAwOTA4NjcxX0ZyZWUyODcxNzQ0ODAxNzc1MQ==

تغير الوان الاداة progressbar



بعد انشاء 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 Sub

ليست هناك تعليقات
إرسال تعليق

إرسال تعليق

من يريد أن يكتب فعليه أن يقرأ

ما يلْفظُ من قوْلٍ إِلا لدَيهِ رَقيبٌ عتيدٌ

الاسمبريد إلكترونيرسالة