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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معالجة التنبيهات في البرامج (استقبال تنبيهات داخل البرنامج) Dev Express ابو ليلى 9 9,265 10-02-22, 09:55 PM
آخر رد: عبدالحميد حسني
  تنفيذ سكربت القاعدة مع انطلاق البرنامج + تحديث التعديلات على القاعدة ابو ليلى 2 5,061 02-07-21, 09:05 PM
آخر رد: naserflaha71
  إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج عبد العزيز البسكري 11 7,244 23-01-19, 08:35 PM
آخر رد: عبد العزيز البسكري
  قاعدة بيانات مضمنة مع البرنامج viv 4 4,184 27-09-18, 08:01 PM
آخر رد: viv
  [درس فيديو] شرح ربط البرنامج بقاعدة بيانات, إدراج حذف تعديل جلب البيانات ( بدون أن تكتب سطر واحد) عبدالله الدوسري 4 6,449 08-02-18, 12:55 AM
آخر رد: Ameer Eagle
  [درس فيديو] تشغيل اوامر Run من البرنامج & مثال غلق الويندوز بعد وقت محدد باستخدام VB.net أحمد النجار 1 3,852 23-12-15, 04:26 AM
آخر رد: الماجيك مسعد
  [كود] عمل DragDrop من البرنامج الى Windows explorer HASAN6.0 5 3,851 02-12-15, 04:04 PM
آخر رد: hamada558
Question [مثال] كيف تضيف اكثر من لغة الى برنامجك HASAN6.0 3 3,326 26-11-15, 11:20 PM
آخر رد: hamada558
  فيديو بالعربي انشاء جملة الاتصال اثناء تشغيل البرنامج أحمد النجار 0 3,147 13-06-15, 09:40 AM
آخر رد: أحمد النجار
Brick [مثال] السحب والاسقاط من اداة picturebox الى مجلد مفتوح الطالب 0 2,062 23-05-15, 06:06 PM
آخر رد: الطالب

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


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