13-08-22, 11:00 PM
13-08-22, 11:54 PM
(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
14-08-22, 12:04 AM
ظنيته يقصد الكود التالي:
PHP كود :
Dim rnd As New Random
Private Function rcolor()
Return Color.FromArgb(255, rnd.Next(255), rnd.Next(255), rnd.Next(255))
End Function
14-08-22, 12:26 AM
لا حضرتك الكود ده انا فعلا عملت واحد زيه ولكن أنا عاوز كود تدرج اللون عن طريق المسح التدريجي هجري الكود الاولاني وأشوف علي العموم شكرا لحضرتك