تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب فكرة عن التمثيل البياني rabeh.ram 2 38 أمس, 01:33 AM
آخر رد: rabeh.ram
  مساعدة في طريقه فكرة عمل جدول sql server Rabeea Qbaha 4 109 08-11-16, 04:55 PM
آخر رد: Rabeea Qbaha
  [سؤال] طلب لمثال عن انشاء حماية للبرنامج في vb.net 2012 مع فكرة بحاجة للتطبيق M@GED 12 313 05-11-16, 10:49 AM
آخر رد: أبو عمر
  [سؤال] فكرة نقل وضغط ملفات عبدالرحمن المكاوي 16 390 09-09-16, 09:19 PM
آخر رد: أبو عمر
  فكرة برنامج mudz 1 128 04-09-16, 12:36 PM
آخر رد: Kian Tech
  ماهي فكرة جعل برنامجك يقبل التحديث وليس تحميل البرنامج من جديد honest 5 292 12-06-16, 11:44 PM
آخر رد: honest
  الى المحترفين نريد فكرة لحفظ مسار الصورة من اي جهاز abid 24 895 06-04-16, 06:18 PM
آخر رد: abid
  [VB.NET] استفسار للخبراء فكرة عمل برنامج للاسئله الاكترونيه مصطفى العراقي 5 193 07-03-16, 02:54 PM
آخر رد: silverlight
  [سؤال] مساعدة فى فروم تسجيل الدخول ramygamalvb 6 340 06-03-16, 09:26 PM
آخر رد: HASAN6.0
  اظهار فروم جانب فورم أسامة 2 292 28-11-15, 02:01 PM
آخر رد: أسامة

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


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