PDA

View Full Version : محل اجرای فرم برنامه



rezapassword
شنبه 20 مهر 1387, 10:38 صبح
سلام
دوستان میخوام یه کلک رشتی به برنامه بزنم
روی فرم اول یک یک پنل دارم به اسم پنل یک و یک دکمه
میخوام وقتی روی دکمه کلیک شد فرم دو اجراب شه یعنی
form2.show
و بعد توی لود فرم دو چی بنویسم که وقتی این فرم اجرا شد دقیقا بیفته روی اون پنل و اگر فرم یک تکون خورد اون فرم 2 که افتاده رو پنل هم مثل اون تکون بخوره تا معلوم نباشه اینا دو تا هستن
من اومدم از
Me.StartPosition = Form1.Panel1.Location.X
Me.StartPosition = Form1.Panel1.Location.Y
رفتم اما جواب نداد
شما راهی بلدید ؟
ممنون

mostafaaa
شنبه 20 مهر 1387, 10:56 صبح
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Point As Point = Me.PointToScreen(Me.Panel1.Location)
Form2.Show()
Form2.SetDesktopLocation(Point.X, Point.Y)
End Sub
Private Sub Form1_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Move
Dim Point As Point = Me.PointToScreen(Me.Panel1.Location)
Form2.SetDesktopLocation(Point.X, Point.Y)
End Sub

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

rezapassword
شنبه 20 مهر 1387, 11:47 صبح
گفتم که کلک رشتی
برای دو سمته کردن برنامه
خیلی ممنون از کدت

rezapassword
شنبه 20 مهر 1387, 17:12 عصر
مصتفا جان یه مشکلی میمونه
وقتی روی فرم 1 کلیک کنی فرم 2 میره زیر فرم 1
چه کار کنم این طور نشه
بدون فعال کردن الویز ان تاپ
ممنون

mostafaaa
شنبه 20 مهر 1387, 17:31 عصر
این کد رو توی رویداد Load فرم 2 بزار

Me.TopMost = True

rezapassword
یک شنبه 21 مهر 1387, 07:52 صبح
ممنون مصتفا جان