| loulou | 11-07-2010 04:29 PM |
جعل الفروم يخرج مثل الماسنجر
[align=center] بسم الله الرحمان الرحيم
اليوم سأشرح لكم كيفية جعل الفروم يخرج مثل المآإسنجر
1-نفتح برنامج الفيجوال بيسك
2-ثم عمل جديد Standar EXE
يخرج لنا هكذا http://www6.0zz0.com/2010/11/07/12/533051488.jpg
اوك الان نضع هذا الكود بالفوروم كود:
'Set the left position to left most side of the screen
Me.Left = Screen.Width - Me.Width - 50
'Set the top posiotion to beneath the screen
Me.Top = Screen.Height + Me.Height - 400
مثال http://www6.0zz0.com/2010/11/07/12/213505589.jpg
وبعـدِهـا نضـيِـف ادإه التـايـمِـرِ و نضغط عليها مرتين
ونضـيِـف هذا الكـوِد كود:
'If the screen is not reached above then continue on
If Me.Top <= Screen.Height - Me.Height - 250 Then Timer1.Enabled = False
'For faster and smoother animation
'Ive done like this
For i = 1 To 5
Me.Top = Me.Top - 20
DoEvents
Next
و الان اعدادت التايمر http://www7.0zz0.com/2010/11/07/12/300603034.jpg
تم بحمدالله
التقييم من فضلكم :a12::a12::a12::a12::a12::a12::a12::a12::a12:
[/align] | 