+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اسئلة (/showthread.php?tid=34266)
اسئلة - tasnem shhadaha - 10-04-20
السلام عليكم
هل يمكن طلب كود تغير لون النص في label عند الضغط على رز الأمر سيتغير لون النص تتابعيا الى أحمر-أخضر-أصفر-أزرق- بنفسجي- ثم يعود للأسود
RE: اسئلة - aljzazy - 10-04-20
كود :
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 ClassRE: اسئلة - ابو ليلى - 10-04-20
السلام عليكم و رحمة الله و بركاته
بالاضافة لحل الاخ aljzazy
يمكنك عملها وفق تقنية Async كما يلي:
PHP كود :
Private Async Function ChangeColor(Perod As Integer, Lb As Label) As Task
Dim Coloor As New List(Of Color) From
{Color.Red, Color.Green, Color.Yellow, Color.Blue, Color.Purple, Color.Black}
For Each itm In Coloor
Lb.ForeColor = itm
Await Task.Delay(Perod)
Next
End Function
PHP كود :
Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Await ChangeColor(1700, Label1)
End Sub
RE: اسئلة - tasnem shhadaha - 10-04-20
شكراا لكم
الله يجزيكم الخير يا رب
ولكن ما تغير الا للون واحد !
RE: اسئلة - WaeLx - 11-04-20
(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
RE: اسئلة - سعود - 11-04-20
مشاركة لاخواني اضع اجتهادي
وهذا محتوى الفورم
PHP كود :
Public Class Form1
Dim count As Integer = 0
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
count = 0
Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles 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