المشاركات : 1
المواضيع 0
الإنتساب : Mar 2015
السمعة :
0
الشكر: 0
تم شكره 15 مرات في 1 مشاركات
تدريج اللون داخل الفورم بشكل متحرك
الأدوات:timer عدد 1+PictuerBoxعدد 1
Imports System.Drawing.Drawing2D
Public Class Form1
Private M_M As Single = 0
Private M_D As Single = 0.1
Private Sub PictureBox1_Paint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles _
PictureBox1.Paint
Dim LB As New LinearGradientBrush(New Point(0, 0), New Point _
(Me.ClientSize.Width, 0), Color.Green, Color.Yellow)
Dim CB As New ColorBlend
CB.Colors = New Color() {Color.Green, Color.YellowGreen, Color.Yellow}
CB.Positions = New Single() {0, M_M, 1}
LB.InterpolationColors = CB
e.Graphics.FillRectangle(LB, Me.ClientRectangle)
LB.Dispose()
M_M += M_D
If (M_M > 1) OrElse (M_M < 0) Then M_D = -M_D
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
PictureBox1.Invalidate()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub
End Class
المشاركات : 481
المواضيع 35
الإنتساب : Oct 2013
السمعة :
6
الشكر: 9709
تم شكره 1454 مرات في 137 مشاركات
جزاكـ الله خير وباركـ الله فيكـ
وجعله الله في موازين حسناتكـ
واصل ربي يرضى عنكـ
المشاركات : 237
المواضيع 9
الإنتساب : May 2015
السمعة :
43
الشكر: 3583
تم شكره 2753 مرات في 170 مشاركات
سلام
اولا مشكور جدا على المبادره
ثانيا كنت اتمنى ان يكون لك اسم واضح حتى نناديك به
ثالثا انا متاكد من نيتك الطيبه
رابعا هذه الطريقه لا تفيد في فهرس المنتدى والبحث
رابعا الافضل ان تضع كل كود في موضوع مستقل وبعنوان يدل على عمله ليظهر في فهرس المنتدى والبحث
اخيرا اتمنى ان مثل كثير لديهم هذه الحماس
موفقين
المشاركات : 3
المواضيع 2
الإنتساب : Nov 2015
السمعة :
0
الشكر: 0
تم شكره 8 مرات في 2 مشاركات
thannnnnnnnnnx نتمني المزيد ونتعلم منكم بارك الله فيك
المشاركات : 300
المواضيع 48
الإنتساب : May 2016
السمعة :
4
الشكر: 217
تم شكره 90 مرات في 68 مشاركات
مشكورورورورورورعلى الموضوع الرائئئعع
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) ..