تغير الوان الاداة 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
تغير الوان الاداة progressbar
بواسطة غير معرف
on
فبراير 09, 2017
القسم:

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