وده مثال علي الداله RGB
نحتاج الي 3 TextBox و 4 Label و 3 Command
ارسم الادوات كما بالشكل :-
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
قم بكتابه الاكواد الاتيه في زر المزيج
اقتباس:
Dim k, l, n As Integer
(k = Val(Text1.Text
(l = Val(Text2.Text
(n = Val(Text3.Text
(Form1.BackColor = RGB(k, l, n
اكتب الاكواد الاتيه في زر جديد
اقتباس:
"" = Text1.Text
"" = Text2.Text
"" = Text3.Text
وطبعا الكود اللي احنا عارفينه بتاع خروج
اقتباس:
END
ثم قم بتشغيل البرنامج ستري المزيج من الارقام اللي هتحطها لون الفورم هيتغير وباردو اوعي تكتب حرووووووووووووف اوك
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
نحتاج الي 3 TextBox و 4 Label و 3 Command
ارسم الادوات كما بالشكل :-
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
قم بكتابه الاكواد الاتيه في زر المزيج
اقتباس:
Dim k, l, n As Integer
(k = Val(Text1.Text
(l = Val(Text2.Text
(n = Val(Text3.Text
(Form1.BackColor = RGB(k, l, n
اكتب الاكواد الاتيه في زر جديد
اقتباس:
"" = Text1.Text
"" = Text2.Text
"" = Text3.Text
وطبعا الكود اللي احنا عارفينه بتاع خروج
اقتباس:
END
ثم قم بتشغيل البرنامج ستري المزيج من الارقام اللي هتحطها لون الفورم هيتغير وباردو اوعي تكتب حرووووووووووووف اوك
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]