چطور فرمهاي نمايشي رو بر روي فرم اصلي در جاي خاص نمايش دهم؟

[swallow.pa]

با سلام
دوستان من يك فرم اصلي دارم كه مثلا اطلاعات ورود و خروج كتابها ثبت مي شود
كاربر هنگام ثبت معمولا نياز به ليست عضو و ليست كتابها دارد كه دو تا فرم مي شه (ليست عضو و ليست كتابها).
خب موقعيت كد كتابها و عضو در فرم ورود و خروج كتاب در دو جاي مختلف فرم مي باشد
حالا من مي خوام موقعي كه مثلا هر يك از اين فرمها (ليست عضو و ليست كتابها) نمايش داده مي شود دقيقا زير تكست باكس كد عضو و كد كتابها باشد
چطور مي تونم اين موقعيت رو تنظيم كنم
ممنون

[محمد آشتیانی]

سلام
این متد رو نوشتم براتون - اول از همه باید پراپرتی StartPosition فرمی که میخواید نمایش بدید رو روی Manual قرار بدید)

Private Sub LoadForm(ByVal sender As Control, ByVal targetForm As Form)
Dim x, y As Integer
Dim p As Point = sender.PointToScreen(Point.Empty)


x = p.X - (targetForm.Width - sender.Width)
y = p.Y + sender.Height


targetForm.Location = New Point(x, y)
targetForm.ShowDialog()
End Sub


نحوه فراخوانیش هم به این صورته (مثلا میخوام با کلیک Button2 ، فرم رو زیر همین باتن نمایش بدم)

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
LoadForm(sender, Form2)
End Sub




موفق باشید.