جعل الفروم يخرج مثل الماسنجر

[align=center]بسم الله الرحمان الرحيم



اليوم سأشرح لكم كيفية جعل الفروم يخرج مثل المآإسنجر

1-نفتح برنامج الفيجوال بيسك
2-ثم عمل جديد Standar EXE

يخرج لنا هكذا



اوك الان نضع هذا الكود بالفوروم

'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

مثال



وبعـدِهـا نضـيِـف ادإه التـايـمِـرِ و نضغط عليها مرتين

ونضـيِـف هذا الكـوِد

كود:

'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

و الان اعدادت التايمر



تم بحمدالله

التقييم من فضلكم :a12::a12::a12::a12::a12::a12::a12::a12::a12:

[/align]

المصدر: :: vBspiders Professional Network ::

---

[ug hgtv,l dov[ leg hglhsk[v

يسلمو على الطرح الرائع

بارك الله فيك يالغالي

تقبل مروري

[align=center]جزاك الله خير شرح اكثر من رائع [/align]

شكرا على ردودكم المشجعة

أكثــــر من رائع
أرجو تقبل مروري ^_^

مشكور اخي omer

[align=center]شـكــ وبارك الله فيك ـــرا لك[/align]

تسلم على مرورك ياغالى وان شاء الله التوفيق للجميـع

شكرا لك يا اخي

قدييييييييمة