منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] السحب والإفلات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] السحب والإفلات (/showthread.php?tid=16858)

السحب والإفلات - anasmoner - 19-08-16

السلام عليكم 
انا عندي طلب وإن شاء الله يكون سهل
هو عبارة مثلا عن 2 بوتون عندما اسحب البوتون الاول على البوتون الثاني يختفيان 
ارجو المساعدة  Confused لأني بصراحة لا أفهم شئ في السحب والأفلات 
والشكر لكم مقدما

RE: السحب والإفلات - الوادي - 19-08-16

هذا كود (السحب والإفلات) اللي طلبه (عندما اسحب البوتون الاول على البوتون الثاني يختفيان)
PHP كود :
Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Button1.AllowDrop = True
        Me.Button2.AllowDrop = True
    End Sub

    ' المسحوب '
    Private Sub Button1_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles Button1.DragEnter
        e.Effect = DragDropEffects.Move
    End Sub
    Private Sub Button1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        sender.DoDragDrop(sender, DragDropEffects.Move)
    End Sub

    ' المفلوت عليه '
    Private Sub Button2_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles Button2.DragEnter
        e.Effect = DragDropEffects.Move
    End Sub
    Private Sub Button2_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles Button2.DragDrop
        If e.Data.GetData(GetType(Button)) Is Me.Button1 Then
            sender.Hide()
            e.Data.GetData(GetType(Button)).Hide()
        End If
    End Sub


End Class 

إذا محتاجة شرح يا ليت غيري يشرحها.

RE: السحب والإفلات - anasmoner - 20-08-16

مشكور والله يجزاك خير
ولكن هل تستطيع ان تعطيني الكود الخاص بتغيير شكل المؤشر

RE: السحب والإفلات - أبو عمر - 20-08-16

VB
Me.Cursor = Cursors.Hand
#C
this.Cursor = Cursors.Hand;


RE: السحب والإفلات - anasmoner - 20-08-16

(20-08-16, 03:45 AM)أبو عمر كتب :
VB
Me.Cursor = Cursors.Hand
#C
this.Cursor = Cursors.Hand;

مشكور بس فين أكتب هذا الكود Exclamation Heart

RE: السحب والإفلات - الوادي - 20-08-16

تلاقيه في الكود DragDropEffects.Move ويمكن تغيير Move إلى Copy ويوجد غيرها


RE: السحب والإفلات - anasmoner - 20-08-16

طيب ممكن الكود عندما يختفي الجميع يحدث حدث معين

RE: السحب والإفلات - الوادي - 20-08-16

من كلامك يبدو أنك مبتدئ جدا بالبرمجة

عموما تقدر تنفذ يللي بدك اياه عند السطر اللي اخفى البوتون sender.Hide