by ' ضع هذا الكود في الفورم وقم بإضافة زر عليها 
Private Sub Command1_Click()
Form1.Cls
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
i = Rnd * 15
If Button = 1 Then
Me.Circle (X, Y), 200, QBColor(i)
End If
End Sub
Private Sub Command1_Click()
Form1.Cls
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
i = Rnd * 15
If Button = 1 Then
Me.Circle (X, Y), 200, QBColor(i)
End If
End Sub
» ترحيب بالأعضاء
» برنامج يعلمك لغة الدلفي بشكل مثير
» دليل هاتف الدلفي
» سلسلة فيبوناتشي
» كود جميل ورائع جربه واعرف بنفسك ماذا يعمل
» المبرمجون مستائون من الواجهة الرسومية لويندوز ٨ (Windows 8)(نسخة المطورين)
» حزيرة للعلماء
» اسباب تجعل الكمبيوتر يعمل بشكل بطيء
» دروس المبتدئين.....الدرس الأول (تعليم القص)