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

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

السحب والافلات على ايقونه البرنامج اكثر من مره والافلات على النافذه - الطالب - 15-08-15

سلام


التشبيه بطريقت برنامج الفوتوشوب في السحب والافلات على ايقونه البرنامج اكثر من مره والافلات على النافذه يعني هنا الفورم



نحتاح احداث خاصه بالمشروع وليس الفورم
وهنا نحتاج الى حدث بدات التشغيل startup وحدث بدايت محاولت انشاء نسخه اخرى من البرنامج startupnextinstanse
وندخل الى كلاس احداث المشروع من صفحت خصائص المشروع بالضغط على زر view applicatin even مثل الصوره



وحتكود اكواد المشروع كالتالي


اولا:------------------------------
تؤشر على mak single instanse application في صفحت خصائص المشروع


ثانيا:--------------------------------------
كود الموديل
كود :
Module Module1

   Public Sub fllListBox(ByVal arr As Array)
       For Each arg As String In arr
           If IO.Path.GetExtension(arg).ToLower = ".mp3" Then
               Form1.ListBox1.Items.Add(arg)
           End If
       Next
   End Sub

End Module
وضيفت fllListBox يمر على عناصر المصفوفه المرسله له وذا كان فيها شي ينفذ الموجود بالشرط وهو التاكد من نوع الملف هل mp3 عشان يضيفه


ثالثا:-------------------------------------
كود الفورم اللي موجود فيه listbox
كود :
Public Class Form1

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

   Private Sub TextBox_Pth_DragDrop(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs) Handles Me.DragDrop
       fllListBox(e.Data.GetData(DataFormats.FileDrop))
   End Sub

   Private Sub TextBox_Pth_DragEnter(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs) Handles Me.DragEnter
       If (e.Data.GetDataPresent(Windows.Forms.DataFormats.FileDrop)) Then
           e.Effect = Windows.Forms.DragDropEffects.Copy
       End If
   End Sub

End Class
الحدث DragEnter وضيفته انه يغير شكل الماوس بعد السحب لما يجي فوق form فاذا كان المسحوب ملفات يغيره لمؤشر copy
والحدث DragDrop وضيفته بعد ما تترك الزر يعني الافلات هنا يستدعي الاجرا fllListBox ويرسل له مصفوفه البيانات من GetDataPresent


رابعا:--------------------------------
كود احداث المشروع
كود :
Namespace My

   Partial Friend Class MyApplication

       Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
           fllListBox(My.Application.CommandLineArgs.ToArray)
       End Sub

       Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
           fllListBox(e.CommandLine.ToArray)
       End Sub

   End Class

End Namespace
حدث startup هذا اول حدث يعمل بغض النظر عن ما هو فورم البدايه وهنا يستدعي الاجرا fllListBox ويرسل له مصفوفه البيانات من CommandLineArgs
حدث startupnextinstanse يعمل عند بدايت محاولت تشغيل نسخه اخرى وهنا يستدعي الاجرا fllListBox ويرسل له مصفوفه البيانات من CommandLine


موفقين