کد باز شدن فرم

[saman9999]

سلام دوستان من يه کد دارم واسه close شدن فرم که قشنگ ميشه و جلوه زيبا ايی ميده



Private Sub Form_Unload(Cancel As Integer)
num = 1


For i = 0 To Me.Height
Me.Height = Me.Height - num


DoEvents
Next i


For i = 0 To Me.Width
Me.Width = Me.Width - num


DoEvents
Next i


For i = 0 To Me.Left
Me.Left = Me.Left - num
num = num + 1


DoEvents
Next i
End Sub



ميخواستم ببينم کدی هم هس واسه اينجوری باز شدن؟ اگه هست بزاريد

[MBG73]

یک سر به این بزن ببین خوبه ؟

نمایش فرم به شکلی بسیار جالب (http://barnamenevis.org/forum/showpost.php?p=707512&postcount=1)

[saman9999]

ممنون بابته جواب اما اون کدی که گزاشم نميشه مثله همون بسته شه

[saman9999]

اين پروژرو ضميمه کردم برايه بسته شدن يه چيزی تو ميهيه همين ميخوام واسه باز شدن

[MBG73]

پروزه رو براتون تغییر دادم . حالا هم به اون شکل باز میشه و هم به اون شکل بسته میشه .

امیدوارم به دردت بخوره .

[nima_8m]

سلام دوستان من يه کد دارم واسه close شدن فرم که قشنگ ميشه و جلوه زيبا ايی ميده



Private Sub Form_Unload(Cancel As Integer)
num = 1


For i = 0 To Me.Height
Me.Height = Me.Height - num


DoEvents
Next i


For i = 0 To Me.Width
Me.Width = Me.Width - num


DoEvents
Next i


For i = 0 To Me.Left
Me.Left = Me.Left - num
num = num + 1


DoEvents
Next i
End Sub



ميخواستم ببينم کدی هم هس واسه اينجوری باز شدن؟ اگه هست بزاريد
اینم امتحان کن