منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كود تدرج الالوان - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كود تدرج الالوان (/showthread.php?tid=42151)



كود تدرج الالوان - حسن الجلب - 13-08-22

السلام عليكم ورحمه الله وبركاته عايز كود تدرج الالوان  في ليبل؟ بس بطريقه مسح تدريجي للون عشان يبقي. افضل


RE: كود تدرج الالوان - asmarsou - 13-08-22

(13-08-22, 11:00 PM)حسن الجلب كتب :
PHP كود :
Imports System.Drawing.Drawing2D
Public Class Form1
    Private Sub Label3_Paint
(sender As ObjectAs PaintEventArgsHandles Label3.Paint
        Dim TextSize 
As SizeF e.Graphics.MeasureString(Label3.TextLabel3.Font)
 
       Dim Rct As New Rectangle(00Convert.ToInt32(Label3.Width), Convert.ToInt32(Label3.Height))
 
       Dim GradienBrush As New Drawing2D.LinearGradientBrush(RctColor.WhiteColor.RedDrawing2D.LinearGradientMode.Horizontal)
 
       e.Graphics.DrawString(Label3.TextLabel3.FontGradienBrush00)
 
   End Sub
End 
Class 
السلام عليكم ورحمه الله وبركاته عايز كود تدرج الالوان  في ليبل؟ بس بطريقه مسح تدريجي للون عشان يبقي. افضل
تفضل هذا الكود معدل و مجرب


RE: كود تدرج الالوان - سعود - 14-08-22

ظنيته يقصد الكود التالي:
PHP كود :
 Dim rnd As New Random
Private Function rcolor()
 
       Return Color.FromArgb(255rnd.Next(255), rnd.Next(255), rnd.Next(255))
 
   End Function 



RE: كود تدرج الالوان - حسن الجلب - 14-08-22

لا حضرتك الكود ده انا فعلا عملت واحد زيه ولكن أنا عاوز كود تدرج اللون عن طريق المسح التدريجي هجري الكود الاولاني وأشوف علي العموم شكرا لحضرتك