بسم الله
هذا الإجراء كتبته بنفسي
وهو لتلوين النص الذي تقف فوقه
عن طريق التبديل تريجيا بين ثلاثة الوان
الأحمر الخضر والأزرق
عن طريق تمرير ال OBJECT فقط
@@@@@@@@@@@@@
Private Sub ColorsSwitcher(ByVal Ob_Name As Object)
'Procedure For Make Spinning Of Colors Between Red ,Green and Blue
'For ForeColor
'Writed By NADER.99@1-11-2004
'Note: By Use PC Timer Not Need Timer Control
'Just Send The Object
Dim Ver1, red, grn, blu As Short
Dim Color1 As New System.Drawing.Color
Dim Current As Double
red = 255
grn = 0
blu = 0
Ver1 = 1
Current = Microsoft.VisualBasic.DateAndTime.Timer
Do While DateAndTime.Timer - Current < 100
If Ver1 = 1 And red > 0 Then
red = red - 1
grn = grn + 1
Else
Ver1 = 2
End If
'''''
If Ver1 = 2 And grn > 0 Then
grn = grn - 1
blu = blu + 1
Else
Ver1 = 3
End If
'''''
If Ver1 = 3 And blu > 0 Then
blu = blu - 1
red = red + 1
Else
Ver1 = 1
End If
'''''''''''''
If red < 0 Then red = 0
If grn < 0 Then grn = 0
If blu < 0 Then blu = 0
If red > 255 Then red = 255
If grn > 255 Then grn = 255
If blu > 255 Then blu = 255
''''''''''
'Lbl2.Text = (red & " - " & grn & " - " & blu)
Ob_Name.ForeColor = Color1.FromArgb(255, red, grn, blu)
Application.DoEvents()
'Lbl1.BackColor = RGB(15, 40, 202)
'Lbl1.BackColor = Color1.FromArgb(255, red, grn, blu)
If S_S = False Then Exit Do
Loop
End Sub
@@@@@@@@@@@@@
تلوين النص بشكل متكرر Vb.net
العرض العادي
