تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
فكرة فروم متطور
#1
فكرة فروم متطور عمل فروم مع خاصية السحب والإسقاط ماذا اقصد , اقصد عمل فروم  مع خاصية السحب والإسقاط داخل الفروم الاخر بمعنى يمكن وضع الفروم داخل الفروم الاخر و اخراجة من الفروم الاخر دون فقدان البيانات فكرت فى بعض الاكواد التى يمكن ان تساعد
لاظهار الفروم فى الفروم الاخر عند استدعاء الفروم لاول مره يمكن استخدام هذا الكود
كود :
    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)
لان كيف يمكن سحب واسقاط الفروم  دون فقدان البيانات فكرت فى كود Get Mouse Location يتم تحريك الفروم مع مؤشر الفأره و عند الافلات يتم اسقاط الفروم 
كود :
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

لاكن كيف يمكن اخراج و ادخال الفروم من إطار الفروم الاخر دون فقدان البيانات!
الرد }}}
تم الشكر بواسطة: الوادي , Amir_Alzubidy
#2
يا أسامة،

هذه محاولة سريعة لضيق الوقت، ولكن فيها عيوب.

لتجربة هذه المحاولة، أنشأ مشروع وضع فيه Form1 وForm2 وModule1 فقط

Form1
PHP كود :
Public Class Form1

    
Private Sub Form1_Load(sender As System.ObjectAs System.EventArgsHandles MyBase.Load
        Form2
.Show()
    
End Sub

    
Private Sub Form1_LocationChanged(sender As ObjectAs System.EventArgsHandles Me.LocationChanged
        FormLocationChanged
(MeForm2)
    
End Sub

End 
Class 

Form2
PHP كود :
Public Class Form2

    
Private Sub Form1_LocationChanged(sender As ObjectAs System.EventArgsHandles Me.LocationChanged
        FormLocationChanged
(MeForm1)
    
End Sub

End 
Class 

Moudle1
PHP كود :
Module Module1

    
<Runtime.InteropServices.DllImport("user32.dll")> _
    
Public Function SetParent(ByVal hWndChild As IntPtrByVal hWndNewParent As IntPtr) As IntPtr
    End 
Function

    <
Runtime.InteropServices.DllImport("user32.dll"ExactSpelling:=TrueSetLastError:=True)> _
    
Public Function GetCursorPos(ByRef point As Point) As Boolean
    End 
Function

    Public 
Sub FormLocationChanged(ByVal formA As FormByVal formB As Form)

        
Dim mousePos As New Point
        GetCursorPos
(mousePos)

        
Dim rectFormB As Rectangle formB.RectangleToScreen(formB.ClientRectangle)

        If 
mousePos.rectFormB.And mousePos.< (rectFormB.rectFormB.Width_
        
And mousePos.rectFormB.And mousePos.< (rectFormB.rectFormB.Height_
        Then
            SetParent
(formA.HandleformB.Handle)

        Else
            
SetParent(formA.HandleNothing)

        
End If

    
End Sub

End Module 
الرد }}}
تم الشكر بواسطة: أسامة , Amir_Alzubidy , Amir_Alzubidy
#3
جزاك الله خير اخى يوجد فقط مشكلة صغير من الصعب اخراج الفروم و خاصة من الجانب الأيمن و عند الاخراج يجب افلات الفاره على اطار الفروم ثم سحبةمن جديد للتمكن من سحبة
الرد }}}
تم الشكر بواسطة: الوادي , الوادي , Amir_Alzubidy
#4
يا أسامة،

هذه المشكلة محتاجة وقت، لكن وقتي ضيق.
لو اتحلت مشكلة الفأرة تمام.
الرد }}}
تم الشكر بواسطة: أسامة , Amir_Alzubidy
#5
(05-07-16, 04:46 PM)الوادي كتب : يا أسامة،

هذه المشكلة محتاجة وقت، لكن وقتي ضيق.
لو اتحلت مشكلة الفأرة تمام.

حسنآ اخى شكرآ على مساعدتك رغم ضيق وقتك
الرد }}}
تم الشكر بواسطة: الوادي , Amir_Alzubidy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  فكرة تسجيل الحضور اليومي عبد العزيز البسكري 29 653 26-02-24, 02:15 PM
آخر رد: saud1004
  فكرة تعديل او حذف عنصر / صنف في فاتورة atefkhalf2004 8 1,078 09-11-22, 12:01 AM
آخر رد: atefkhalf2004
  استفسار عن فكرة عمل برنامج نظام صندوق مالي مصغر بشكل مبسط nowiglah 9 1,589 12-08-22, 05:57 AM
آخر رد: Taha Okla
  من لديه فكرة عن البيع في حالات nouribenyahia 12 3,786 30-04-22, 03:04 AM
آخر رد: كريم الفقى
Exclamation [VB.NET] محتاج فكرة لعمل كود او دالة Random anasghost 17 2,955 29-11-21, 09:32 AM
آخر رد: معاند الحظ
  [VB.NET] فكرة حتى أجعل أعمدة الجدول طويلة في ReportViewer sniperjawadino 0 668 07-11-21, 12:44 AM
آخر رد: sniperjawadino
Exclamation [VB.NET] فكرة برمجية لنقل أسطر قاعدة البيانات بشكل مستمر sniperjawadino 2 1,493 13-05-21, 08:32 PM
آخر رد: sniperjawadino
  [سؤال] ممكن فكرة حفظ عدد غير معلوم من الصور بقاعدة بيانات سيكوال ahmedramzyaish 1 1,239 12-03-21, 09:34 PM
آخر رد: محمد فوزى محمد
  [سؤال] فكرة كود محمد بن عطية 1 1,026 28-02-21, 07:51 AM
آخر رد: سعيد كنيمو
  فكرة الموافقة على الموازنة مصطفى السعدي 7 1,785 19-02-21, 05:15 PM
آخر رد: أبو عبدالله الحلواني

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم