فكرة فروم متطور عمل فروم مع خاصية السحب والإسقاط ماذا اقصد , اقصد عمل فروم مع خاصية السحب والإسقاط داخل الفروم الاخر بمعنى يمكن وضع الفروم داخل الفروم الاخر و اخراجة من الفروم الاخر دون فقدان البيانات فكرت فى بعض الاكواد التى يمكن ان تساعد
لاظهار الفروم فى الفروم الاخر عند استدعاء الفروم لاول مره يمكن استخدام هذا الكود
او
مع العلم عند اظهار او ادخال الفروم يتم توسيع الفروم الاخر بحجم مناسب لحجم الفروم الذى سيتم ادخاله
باستخدام هذا الكود
لان كيف يمكن سحب واسقاط الفروم دون فقدان البيانات فكرت فى كود Get Mouse Location يتم تحريك الفروم مع مؤشر الفأره و عند الافلات يتم اسقاط الفروم
لاكن كيف يمكن اخراج و ادخال الفروم من إطار الفروم الاخر دون فقدان البيانات!
لاظهار الفروم فى الفروم الاخر عند استدعاء الفروم لاول مره يمكن استخدام هذا الكود
كود :
Dim f As New Form3 With {.TopLevel = False, .Width = 100, .Height = 100, .Location = New Point(50, 30)}
Me.Controls.Add(f)
f.Show()
كود :
<DllImport("user32.dll", EntryPoint:="SetParent")>
Private Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
End Function
Dim f As New Form3 With {.TopLevel = False, .Width = 100, .Height = 100, .Location = New Point(50, 30)}
SetParent(f.Handle, Me.Handle)
f.Show()
باستخدام هذا الكود
كود :
Me.Size = New Size(Me.Size + f.Size)
كود :
Cursor.Position.X
Cursor.Position.Y
Private Sub Form3_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
If e.X = Cursor.Position.X And e.Y = Cursor.Position.Y Then
Me.Location = New Point(Cursor.Position.X, Cursor.Position.Y)
End If
End Sub
لاكن كيف يمكن اخراج و ادخال الفروم من إطار الفروم الاخر دون فقدان البيانات!