تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعده في برنامج الالوان
#1
السلام
انا اريد البرنامج يقوم بدمج الالوان عبر VScroll1 وVScroll2 وVScroll3 يقوم بكتاب الرقم حق الالوان المدمجه في تكست بوكس

البرنامج في المرفقات

وشكرا


الملفات المرفقة
.zip   الالوان.zip (الحجم : 1.59 ك ب / التحميلات : 42)
الرد }}}
تم الشكر بواسطة:
#2
جرب ذلك أخي الكريم وأدعو الله أن يكون ما تريده.

هذه هي الأكواد والملف بالمرفقات

كود :
Dim a As Integer
Dim X As Integer
Dim y As Integer


Private Sub Command1_Click()
a = Val(VScroll1.Value)
X = Val(VScroll2.Value)
y = Val(VScroll3.Value)
Text1.Text = a + X + y
End Sub

Private Sub Form_Load()

End Sub

Private Sub VScroll1_Change()
Form1.BackColor = RGB(Val(VScroll1.Value), Val(VScroll2.Value), Val(VScroll3.Value))
End Sub

Private Sub VScroll2_Change()
Form1.BackColor = RGB(Val(VScroll1.Value), Val(VScroll2.Value), Val(VScroll3.Value))
End Sub

Private Sub VScroll3_Change()
Form1.BackColor = RGB(Val(VScroll1.Value), Val(VScroll2.Value), Val(VScroll3.Value))
End Sub

بالتوفيق


الملفات المرفقة
.zip   الالوان.zip (الحجم : 1.72 ك ب / التحميلات : 51)
الرد }}}
تم الشكر بواسطة:
#3
مشكور وجزاك الله خير

اخي عبدالله عند استخدام الكود تستطيع استخدامه مره واحده فقط بعد الضغط على امر الكومندا لكن لو اجيت استخدمه مره ثانيه يجعل لون الفورم ابيض فقط لايتغير

جزالك الله خير ممكن تحلها

ربنا يوفقك في حياتك ويطول في عمر والديك
الرد }}}
تم الشكر بواسطة:
#4
تقصد أنك تريد أن تجعل الون الجديد للفورم ثابت حتي بعد غلق الفورم وإعادة تشغيله مرة أخري.

وهل تقصد بقولك (يقوم بكتاب الرقم حق الالوان المدمجه في تكست بوكس

) أن يتم كتابة الرقم في التكيست علي هذه الصورة (255,255,255).

أرجو أن لم يكن قصدك كما فهمت أن توضح أكثر.

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#5
اخي عبدالله هو يقصد ان الكود الاول صحيح بستخدامه مره واحد فقط لكن بعد الضغط على زر الجمع اريد ان اغير الالوان مره اخر يقوم بتحويل الفورم الى الالوان الابيض فقط وماستطيع تغيير الى لون اخر ولا استطيع ان اجمعه مره اخرى


لاني انا قمت بتجربته الان
الرد }}}
تم الشكر بواسطة:
#6
هلا باخي وصديقي ولد رائع

يسلموا اخي على التوضيح هذا ماكنت اقصده اخي عبدالله
الرد }}}
تم الشكر بواسطة:
#7
اخي الكريم لقد نسيت أن أقول لك شيء مهم,

قم بتغيير خاصيةmax للأداة VScroll إلي (255).

وأرجو حمل المرفق السابق وجربه.
الرد }}}
تم الشكر بواسطة:
#8
بارك الله فيك اخي عبدالله هذا هو المطلوب

وجزاك الله خير
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مساعدة فى برنامج الاجازات aboezzat84 1 683 26-03-23, 03:56 PM
آخر رد: sanyor77
  برنامج الفاتورة الاصدار الثاني من برمجتي في المنتدى القديم ahmedabdelaliem 16 12,126 31-10-22, 11:50 PM
آخر رد: Ibrahimxp
  برنامج تعبئة الرصيد للثلاث متعاملين في الجزائر AHMED213 3 2,980 04-10-22, 10:11 PM
آخر رد: Taha Okla
  تحويل برنامج تم تصميمه بلغة الفيجوال بيسك الى مايكروسوفت اكسيس shabrawy 3 865 07-09-22, 10:05 PM
آخر رد: Taha Okla
  برنامج مترجم قوقل مفتوح المصدر samee119485r 23 11,219 20-12-21, 12:44 AM
آخر رد: marmarmar
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 10 5,797 21-11-21, 05:43 PM
آخر رد: mona82
Thumbs Up مشكلة في برنامج مبرمج بلغة الفيجول بيسك palart 2 1,897 04-05-21, 05:59 PM
آخر رد: palart
  برنامج جديد benali17 2 1,661 27-01-21, 11:27 PM
آخر رد: benali17
Wink [مشروع] اريد برنامج فيجوال بيسك 2010 عن حساب سعر السلعة بعد الخصم Aiosh15 0 1,617 10-12-20, 04:43 PM
آخر رد: Aiosh15
  عاجل هل يوجد اي برنامج ينفع مشروع تخرج جاهز مثال ابو عمر الشهري 1 1,635 24-11-20, 03:17 AM
آخر رد: Amir_Alzubidy

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


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