باز شدن و چسبیدن فرم 2 کنار فرم1

[R2du-soft]

سلام اساتید گرامی
واسه این سوال نت رو زیر و رو کردم ولی چیزی گیرم نیومد!
مثلا ما تو برنامه 2 ت فرم داریم
فرم 1 رو باز میکنیم و روی یه دکمه کلیک میکنیم تا فرم 2 باز بشه
میخوام زمانی که فرم 2 باز شد ، کنار 1 باز بشه نه روش و اینکه به فرم 1 چسبیده باشه
یه چیزی مثل عکس زیر

93684

[محسن واژدی]

سلام علیکم

Private Sub Command1_Click()
Form2.Show
Form2.Move Left + Width, Top
End Sub

موفق باشید

[MohammadGh2011]

سلام علیکم

Private Sub Command1_Click()
Form2.Show
Form2.Move Left + Width, Top
End Sub

موفق باشید
سلام عليکم خدمت آقاي واژدي بزرگوار و جناب R2du-soft

از چه دستوري بايد استفاده کنيم که وقتي فرم يک رو به حرکت در آورديم و جابه جا کرديم فرم 2 هم کنار فرم 1 جابه جا شود؟!


باتشکر

[R2du-soft]

من به فرم خاصیت انیمیشن دادم،حالا وقتی از این کد استفاده میکنم اول فرم باز میشه بعد میره کنار فرم 1

[محسن واژدی]

سلام علیکم
میتونیم از Timer هم استفاده کنیم، برای نمونه کد زیر رو بررسی کنید:
Private Sub Form_Load()
Form2.Show
Timer1.Interval = 1
Timer1 = True
End Sub

Private Sub Timer1_Timer()
Static lOX&, lOY&
If Left <> lOX& Or lOY& <> Top Then
Form2.Move Left + Width, Top
lOX& = Left
lOY& = Top
End If
End Sub



در راه بعدی هم میتوانیم Form1 را هوک کنیم تا در صورت جابجایی و باز بودن Form2 اونو هم جابجاکنه



من به فرم خاصیت انیمیشن دادم،حالا وقتی از این کد استفاده میکنم اول فرم باز میشه بعد میره کنار فرم 1
میتوانید کد:
Form2.Move Form1.Left + Form1.Width, Form1.Top

را هم به ابتدای رویداد Form2_Load منتقل کنید تا در زمان بارشدن و قبل از اینکه بصورت انیمیشن باز شود، در کنار Form1 قرار بگیره


موفق باشید