تخصيص الوان شريط التقدم ProgressBar باستخدام SendMessage API

من طرف جورج صبحى الخميس نوفمبر 01, 2018 7:40 pm

مثال يستخدم واجهة SendMessage مع الاسلوب PBM_SETBKCOLOR و الاسلوب PBM_SETBARCOLOR ، لتغيير لون الخلفية ولون التقدم في عنصر تحكم [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

تخصيص الوان شريط التقدم ProgressBar باستخدام SendMessage API 521367438

تخصيص الوان شريط التقدم ProgressBar باستخدام SendMessage API 521367438

الشفرة من جزئين

الجزء الاول الكود التالى فى موديل :

الكود:: Option Explicit الثوابت ل SendMessage Private Const PBM_SETBKCOLOR As Long = (&H2000& + 1) Private Const PBM_SETBARCOLOR As Long = (&H400 + 9) إعلان عن SendMessage Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long قم بتغيير لون قيمة الشريط ، إذا لم يتم تحديده اللون الافتراضي يستخدم لون الاخضر الفاتح Public Sub Color_Progreso(ByVal HWND_Prog As Long Optional ByVal color As Long = vbGreen) Call SendMessage(HWND_Prog, PBM_SETBARCOLOR, 0&, ByVal color) End Sub تغيير لون خلفية التقدم ، إذا لم يتم تحديده _ اللون الافتراضي يستخدم اللون الأحمر Public Sub Color_Fondo(ByVal HWND_Prog As Long, _ Optional ByVal color As Long = vbRed) Call SendMessage(HWND_Prog, PBM_SETBKCOLOR, 0&, ByVal color) End Sub

الجزء الثانى فى حدث التحميل للنافذة ... يجب عليك تمرير Hwnd لشريط التقدم وقيمة اللون التي تريدها في المعلمة الثانية...: Color_Progress و Color_Fund

الكود:: Color_Fondo ProgressBar1.hwnd, vbRed Color_Progreso ProgressBar1.hwnd, &HFF00&

بس كدة خلاص Very Happy

من طرف السنى الجمعة نوفمبر 02, 2018 12:27 pm

أحسنت يا جورج شكرا جزيلا

من طرف 1zaza السبت نوفمبر 24, 2018 6:15 pm

شكرا جزيلا يا [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

1	#الحديثة
2	#الدورات
3	#موقع_لي_نور_الإلكتروني
4	#java
5	#datagridview
6	#استثمار
7	#الامارات
8	#الشارقة
9	#سكن
10	#عقار

تخصيص الوان شريط التقدم ProgressBar باستخدام SendMessage API

تخصيص الوان شريط التقدم ProgressBar باستخدام SendMessage API

رد: تخصيص الوان شريط التقدم ProgressBar باستخدام SendMessage API

رد: تخصيص الوان شريط التقدم ProgressBar باستخدام SendMessage API

مواضيع ذات صلة