چه جوری میشه که صفحه اصلی برنامه مدل دار بسته بشه

[mehdikhosravi]

با سلام خدمت شما استادان بزرگ
سوالی دیگر
دارم یه برناممه باویژال بیسیک میسازم میخوام بدونم چه جوری میشه که بشه صفحه اصلی نرم افزار مدل دار
بسته بشه برای مثال از پایین به بالا بسته بشه یا از گوشه پایین سمت راست به سمت گوشه بالا سمت چپ بره و بسته بشه
اگه اینو دانلود کنید بهتر متوجه میشید...دانلود کنید و بعد از شروع برنامه رو ببنید تا بفهمید چی میگم
http://www.01.skydl0.in/Other/PatoghDL.exe

[just4froum]

اولا لینک دانلود فیلتره

دوم : من این کد رو از یکی از برنامه هایی که خودم نوشتم در آوردم یکم نیاز داره اعدادشو تغییر بدی.

Dim CloseMe As Boolean

Private Sub Form_Load()
CloseMe = False
TimerChangeSize2.Interval = 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
If CloseMe = False Then
Cancel = 1
TimerChangeSize2.Enabled = True
Else
Cancel = 0
End If
End Sub

Private Sub TimerChangeSize2_Timer()
Dim x As Integer, y As Integer
Static sx As Boolean, sy As Boolean
Static mmm As Long

'TimerChangeSize.Enabled = False

x = 7 * 15
y = 5 * 15
mmm = mmm + 1
If sx = False Then Me.Width = Me.Width - x: Me.Left = Me.Left + (x / 2)
If sy = False Then Me.Height = Me.Height - y: Me.Top = Me.Top + (y / 2)

If Me.Width <= ((60) * 15) Then Me.Width = 59 * 15: sx = True
If Me.Height <= ((40) * 15) Then Me.Height = 38 * 15: sy = True

If sy = True And sx = True Then TimerChangeSize2.Enabled = False: CloseMe = True: sy = False: sx = False: mmm = 0: Unload Me
If mmm = 100 Then CloseMe = True: Unload Me

End Sub

[mehdikhosravi]

میشه برنامه ای که با این کد ساختی رو ضمینه دانلود قرار بدی...هر کاری کردم نشد////...:گریه:

[سید حمید حق پرست]

سلام علیکم
با اجازه ی اقای just4froum (http://barnamenevis.org/member.php?211054-just4froum)
اینم سورس برنامه کامل . از اون برنامه که گذاشتی قشنگتره
هم فرم لواد داره هم end
مال خیلی قبله . سورسو نداشتم دوباره نوشتم (راحته کاره 5 دقیقس)

موفق باشید


یا علی (ع)

[سید حمید حق پرست]

اینم یه حالت زیبای دیگه

موفق باشید


یا علی

[mehdikhosravi]

این همه کد رو تو 5 دقیقه نوشتی؟؟؟؟بابا دست خووووش
چند تا سوال.....
چرا امضای من زیر نوشته ها قرار نمیگره؟؟؟
به ازادی هر ستاره توی این انجمن چه قدر باید کار کنی؟؟؟؟

[سید حمید حق پرست]

این همه کد رو تو 5 دقیقه نوشتی؟؟؟؟بابا دست خووووش
نظر لطف شماست . کاری نکردم
البته قسمت GENERAL از داخل فایل متنی کپی کردم :لبخند:


چرا امضای من زیر نوشته ها قرار نمیگره؟؟؟
برای نمایش باید هنگام پست دادن تیک نمایش امضا رو فعال کنید


به ازادی هر ستاره توی این انجمن چه قدر باید کار کنی؟؟؟؟
به اضای هر 50 پست یک ستاره میگیرید

موفق باشید


یا علی (ع)

[MohammadGh2011]

سلام عليکم
با اجازه ي آقاي حق پرست

چرا امضای من زیر نوشته ها قرار نمیگره؟؟؟
فکر کنم منظورشون اين نباشه که شما فرموديد.
امضاي شما رو کسايي ميبينند که عضو اين سايت نيستند و يا هستند و وارد سايت نشدند.



موفق باشيد

[mehdikhosravi]

خیبی ممنون به خطر راهنماییی تون .....واقعا کمکم کردید
نظر لطف شماست . کاری نکردم
البته قسمت GENERAL از داخل فایل متنی کپی کردم :لبخند:


برای نمایش باید هنگام پست دادن تیک نمایش امضا رو فعال کنید


به اضای هر 50 پست یک ستاره میگیرید

موفق باشید


یا علی (ع)

[mehdikhosravi]

همچنین از شما هم تشکر میکنم.....
سلام عليکم
با اجازه ي آقاي حق پرست

فکر کنم منظورشون اين نباشه که شما فرموديد.
امضاي شما رو کسايي ميبينند که عضو اين سايت نيستند و يا هستند و وارد سايت نشدند.



موفق باشيد