[asmarsou]

(13-08-22, 11:00 PM)حسن الجلب كتب :

PHP كود :

Imports System.Drawing.Drawing2D
Public Class Form1
    Private Sub Label3_Paint(sender As Object, e As PaintEventArgs) Handles Label3.Paint
        Dim TextSize As SizeF = e.Graphics.MeasureString(Label3.Text, Label3.Font)
        Dim Rct As New Rectangle(0, 0, Convert.ToInt32(Label3.Width), Convert.ToInt32(Label3.Height))
        Dim GradienBrush As New Drawing2D.LinearGradientBrush(Rct, Color.White, Color.Red, Drawing2D.LinearGradientMode.Horizontal)
        e.Graphics.DrawString(Label3.Text, Label3.Font, GradienBrush, 0, 0)
    End Sub
End Class 


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

تفضل هذا الكود معدل و مجرب