سلام عليكم
اخواني بالاسلام لكم الان درس
اشرطة التمرير
والان نبدأ الشرح
نقوم باضافة التالي :-
1) Frame
2) 3 HScroll
3) 3 Label
4) Picture
الرجاء اضافة كل شيء بالترتيب كما في الصوره
بعد تعديل اسماء الادواة
وترتيبها نقوم بكتابة الكود
الكود الاول
الكود لـ Form
Private Sub Form_Load()
HScroll1.Min = 0
HScroll1.Max = 255
HScroll1.SmallChange = 30
HScroll1.LargeChange = 50
HScroll2.Min = 0
HScroll2.Max = 255
HScroll2.SmallChange = 30
HScroll2.LargeChange = 50
HScroll3.Min = 0
HScroll3.Max = 255
HScroll3.SmallChange = 30
HScroll3.LargeChange = 50
End Sub
الكود الثاني
لشريط التمرير الاول HScroll1
Private Sub HScroll1_Change()
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
الكود الثالث
لشريط التمرير الثاني HScroll2
Private Sub HScroll2_Change()
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
الكود الرابع
لشريط التمرير الثالث HScroll3
Private Sub HScroll2_Change()
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
بعد كتابة الاكواد
نقوم بتشغيل البرنامج وتحريك اي شريط لكي يتغير الون عندنا
كما نشاهد بالصور
وهكذا انتهينا من الشرح