لعمل شاشة توقف

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default لعمل شاشة توقف

مُساهمة من طرف Admin في الخميس أغسطس 21, 2008 11:04 pm

'في البداية اضف الى البرنامج تايمر
'ثم اضف الكود التالي
' واجعل خاصية الفورم
'BorderStyle = 0
Public s As Integer
Public x1, y1 As Single
Public S1 As Boolean
Private Sub Form_KeyPress(KeyAscii As Integer)
' هذا لإيقاف تشغيل البرنامج عند الضغط على عي زر
End
End Sub

Private Sub Form_Load()
Timer1.Interval = 100
Me.WindowState = 2

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'هذا للـأكد من انك قمت بتحريك الماوس ومن ثم ايقاف تشغيل البرنامج
If S1 = fale Then
x1 = X
y1 = Y
S1 = True
End If
If X <> x1 Or Y <> y1 Then
End
End If
End Sub

Private Sub Timer1_Timer()
' هذا الكود لعمل رسمه ملونة من الدوائر على الشاشة
If s = 1 Then
For j = 1 To 1000
Circle (6000, 4000), j * 19, 250
Next j
For j = 1 To 1000
Circle (6000, 4000), j * 20, 0
Next j
s = 0
Else
For j = 1 To 1000
Circle (6000, 4000), j * 20, 25000
Next j
For j = 1 To 1000
Circle (6000, 4000), j * 19, 0
Next j
s = 1
End If
End Sub

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709
avatar
Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 35
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى