تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اسئلة
#1
السلام عليكم
هل يمكن طلب كود تغير لون النص في label عند الضغط على رز الأمر سيتغير لون النص تتابعيا الى أحمر-أخضر-أصفر-أزرق- بنفسجي- ثم يعود للأسود
الرد }}}
تم الشكر بواسطة: asemshahen5
#2
كود :
Public Class Form1
   Dim ClickCount As Integer = 0
   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

       If Not ClickCount = 5 Then

           ClickCount += 1

       Else

           ClickCount = 1

       End If

       Select Case ClickCount

           Case Is = 1

               Label1.ForeColor = Color.Orange

           Case Is = 2

               Label1.ForeColor = Color.Red

           Case Is = 3

               Label1.ForeColor = Color.Blue

           Case Is = 4

               Label1.ForeColor = Color.Yellow
       End Select
   End Sub
End Class


الملفات المرفقة
.rar   WindowsApplication2.rar (الحجم : 64.27 ك ب / التحميلات : 7)
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابو ليلى , ابراهيم ايبو
#3
السلام عليكم و رحمة الله و بركاته
بالاضافة لحل الاخ aljzazy
يمكنك عملها وفق تقنية Async كما يلي:
PHP كود :
   Private Async Function ChangeColor(Perod As IntegerLb As Label) As Task
        Dim Coloor 
As New List(Of ColorFrom
            
{Color.RedColor.GreenColor.YellowColor.BlueColor.PurpleColor.Black}

 
       For Each itm In Coloor
            Lb
.ForeColor itm
            Await Task
.Delay(Perod)
 
       Next

    End 
Function 
الاستدعاء
PHP كود :
   Private Async Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        Await ChangeColor
(1700Label1)
 
   End Sub 
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة: aljzazy , asemshahen5 , asemshahen5 , ابراهيم ايبو
#4
شكراا لكم
الله يجزيكم الخير يا رب
ولكن ما تغير الا للون واحد !
الرد }}}
#5
(10-04-20, 06:34 PM)tasnem shhadaha كتب : السلام عليكم
هل يمكن طلب كود تغير لون النص في label عند الضغط على رز الأمر سيتغير لون النص تتابعيا الى أحمر-أخضر-أصفر-أزرق- بنفسجي- ثم يعود للأسود


بما أني بعتبر نفسي مبتدئ فاسمحلي أشارك بكود بسيط 

كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       If Label1.ForeColor = Color.Black Then
           Label1.ForeColor = Color.Red
       ElseIf Label1.ForeColor = Color.Red Then
           Label1.ForeColor = Color.Green
       ElseIf Label1.ForeColor = Color.Green Then
           Label1.ForeColor = Color.Yellow
       ElseIf Label1.ForeColor = Color.Yellow Then
           Label1.ForeColor = Color.Blue
       ElseIf Label1.ForeColor = Color.Blue
           Label1.ForeColor = Color.Violet
       ElseIf Label1.ForeColor = Color.Violet Then
           Label1.ForeColor = Color.Black

       End If

طبعا في كود تحميل الفورم تتأكد ان لونه اسود
Label1.ForeColor = Color.Black


الملفات المرفقة
.rar   WindowsApplication.rar (الحجم : 67.59 ك ب / التحميلات : 1)
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابو ليلى , ابراهيم ايبو
#6
مشاركة لاخواني اضع اجتهادي
وهذا محتوى الفورم
PHP كود :
Public Class Form1
    Dim count 
As Integer 0
    Private Sub Button1_Click
(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        count 
0


        Timer1
.Start()
 
   End Sub

    Private Sub Timer1_Tick
(sender As System.ObjectAs System.EventArgsHandles Timer1.Tick
        If count 
3 Then
            l3
.ForeColor Color.Black
            Timer1
.Stop()
 
           Exit Sub
        End 
If

 
       'l3.ForeColor = Color.Red
        Select Case count
            Case 0
                l3.ForeColor = Color.Red
            Case 1
                l3.ForeColor = Color.Yellow
            Case 2
                l3.ForeColor = Color.Blue
        End Select
        count += 1
    End Sub
End Class 


الملفات المرفقة
.zip   Label_Color_Changer.zip (الحجم : 22.53 ك ب / التحميلات : 0)
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابو ليلى , ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم