السلام
انا اريد البرنامج يقوم بدمج الالوان عبر VScroll1 وVScroll2 وVScroll3 يقوم بكتاب الرقم حق الالوان المدمجه في تكست بوكس
البرنامج في المرفقات
وشكرا
جرب ذلك أخي الكريم وأدعو الله أن يكون ما تريده.
هذه هي الأكواد والملف بالمرفقات
كود :
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
بالتوفيق
مشكور وجزاك الله خير
اخي عبدالله عند استخدام الكود تستطيع استخدامه مره واحده فقط بعد الضغط على امر الكومندا لكن لو اجيت استخدمه مره ثانيه يجعل لون الفورم ابيض فقط لايتغير
جزالك الله خير ممكن تحلها
ربنا يوفقك في حياتك ويطول في عمر والديك
تقصد أنك تريد أن تجعل الون الجديد للفورم ثابت حتي بعد غلق الفورم وإعادة تشغيله مرة أخري.
وهل تقصد بقولك (يقوم بكتاب الرقم حق الالوان المدمجه في تكست بوكس
) أن يتم كتابة الرقم في التكيست علي هذه الصورة (255,255,255).
أرجو أن لم يكن قصدك كما فهمت أن توضح أكثر.
بالتوفيق
اخي عبدالله هو يقصد ان الكود الاول صحيح بستخدامه مره واحد فقط لكن بعد الضغط على زر الجمع اريد ان اغير الالوان مره اخر يقوم بتحويل الفورم الى الالوان الابيض فقط وماستطيع تغيير الى لون اخر ولا استطيع ان اجمعه مره اخرى
لاني انا قمت بتجربته الان
هلا باخي وصديقي ولد رائع
يسلموا اخي على التوضيح هذا ماكنت اقصده اخي عبدالله
اخي الكريم لقد نسيت أن أقول لك شيء مهم,
قم بتغيير خاصيةmax للأداة VScroll إلي (255).
وأرجو حمل المرفق السابق وجربه.
بارك الله فيك اخي عبدالله هذا هو المطلوب
وجزاك الله خير