تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] السحب والافلات على ايقونه البرنامج اكثر من مره والافلات على النافذه
#1
Brick 
سلام


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



نحتاح احداث خاصه بالمشروع وليس الفورم
وهنا نحتاج الى حدث بدات التشغيل 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


موفقين
متغيب
الرد }}}}
تم الشكر بواسطة: سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [درس فيديو] تشغيل اوامر Run من البرنامج & مثال غلق الويندوز بعد وقت محدد باستخدام VB.net أحمد النجار 1 542 23-12-15, 04:26 AM
آخر رد: الماجيك مسعد
  [كود] عمل DragDrop من البرنامج الى Windows explorer HASAN6.0 5 366 02-12-15, 04:04 PM
آخر رد: hamada558
Question [مثال] كيف تضيف اكثر من لغة الى برنامجك HASAN6.0 3 428 26-11-15, 11:20 PM
آخر رد: hamada558
  فيديو بالعربي انشاء جملة الاتصال اثناء تشغيل البرنامج أحمد النجار 0 392 13-06-15, 09:40 AM
آخر رد: أحمد النجار
Brick [مثال] السحب والاسقاط من اداة picturebox الى مجلد مفتوح الطالب 0 424 23-05-15, 06:06 PM
آخر رد: الطالب
  خطوات بسيطه لجعل الفورم على شكل صورة معينه و بشكل اكثر احترافية - بدون أدوات خارجية السكر المغرور 4 1,718 08-05-13, 01:20 AM
آخر رد: السكر المغرور
  طرق حماية البرنامج من الاستنساخ RaggiTech 3 723 05-10-12, 03:45 AM
آخر رد: RaggiTech
  حلقة نقاش- السحب والإفلات في بيئة الدوت نيت RaggiTech 0 323 03-10-12, 01:39 PM
آخر رد: RaggiTech
  تخزين ملف ما ضمن Exe البرنامج أثناء التطوير واستعادته أثناء التشغيل RaggiTech 1 438 03-10-12, 08:14 AM
آخر رد: RaggiTech
  اسلوب الأستدعاء الذاتى و مدخل الى تطبيقات اكثر كفائة و عملية RaggiTech 3 380 02-10-12, 01:48 AM
آخر رد: RaggiTech

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


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