منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مساعده في برنامج الالوان
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام
انا اريد البرنامج يقوم بدمج الالوان عبر 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).

وأرجو حمل المرفق السابق وجربه.
بارك الله فيك اخي عبدالله هذا هو المطلوب

وجزاك الله خير