سؤال بسيط من مبتدى

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if form1.Color = clred then
	  form1.Color := clblue
   else
	  form1.Color := clred;
end;

المرفق يقوم بنفس العملية

Form_color_by_timer.rar

مشكور أخي فقد كنت أبرمج ب vb6 تم انتقلت الى vb.net + الدلفي لأن الدلفي لغة قوية وتستحق الجهد

لاشكر على واجب

المهم أن تكون قد وجدت ما تبحث

لو أردت الكود بالفيجوال بيزك

Private Sub Timer1_Timer()
If Form1.BackColor = &HFF& Then
Form1.BackColor = &HFF0000
Else
Form1.BackColor = &HFF&
End If
End Sub

أيضاً قمت بإرفاق الملف

أرجو الأستفادة

VB_Form_color_by_timer.rar

rober كتب:

Private Sub Timer1_Timer()
If Form1.BackColor = &HFF& Then
Form1.BackColor = &HFF0000
Else
Form1.BackColor = &HFF&
End If
End Sub

يمكن استبدال &HFF& و &HFF0000 بـvbRed و vbBlue لتكون اكثر وضوحاً للقارئ والمبرمج بعد ذلك

مشكور على التوضيح

بالنسبة للفجوال 6 والدوت نت فليست لدي صعوبات فقط انا جديد في الدلفي وجزاكم الله خيرا