تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] تغير الوان الاداة progressbar .....
#1
Photo 
بعد انشاء 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


الملفات المرفقة
.rar   progressbar.rar (الحجم : 101.85 ك ب / التحميلات : 298)
..................  و فوق كل ذي علم عليم  ................
الرد }}}}
تم الشكر بواسطة: abulayth , WAEL ABED


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] ProgressBar رائع عليك تجربته mohamedalmorshdy 0 620 17-05-15, 01:10 PM
آخر رد: mohamedalmorshdy
Information [VB.NET] فئة لتغيير مقاس الأدوات و الأدوات الفرعية و الخط عند تغير مقاس النافذة Mohamad Anan 0 618 24-05-14, 10:34 PM
آخر رد: Mohamad Anan
  [جديد] شرح إحترافي لعمل باسورد افتراضي لبرنامجك + تغير الباسورد من اختيارك abo_ramas 6 2,444 08-02-14, 09:30 AM
آخر رد: Omar Mekkawy
  الاداة ListView بميزة تغيير لون الــSelection 3booody 19 3,812 19-12-13, 01:17 AM
آخر رد: kafi2030

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم