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


الملفات المرفقة
.rar   How to Remove Duplicated Dynamic Button.rar (الحجم : 69.15 ك ب / التحميلات : 7)
الرد }}
تم الشكر بواسطة:
#2
كود :
Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Dim btnSize = New Size(25, 15)
        For i = 1 To 16
            Dim btn As New Button With {.Text = i, .Size = btnSize, .Enabled = False}
            btn.UseVisualStyleBackColor = True
            btn.Font = New Font("Microsoft Sans Serif", 5.0F)
            btn.Margin = New Padding(0)
            AddHandler btn.Click, AddressOf Bouton_Click
            Me.FlowLayoutPanel1.Controls.Add(btn)
        Next
        FlowLayoutPanel1.AutoSize = False
        FlowLayoutPanel1.AutoScroll = False
        FlowLayoutPanel1.Width = (btnSize.Width * 5)
        FlowLayoutPanel1.Height = (btnSize.Height * 3)
    End Sub
    Private Sub Bouton_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim btn As Button = sender
        MsgBox("you have clicked : button " & btn.Text & vbNewLine & IO.Path.GetFileName(btn.Tag))
    End Sub
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim OpenFile As New OpenFileDialog With {.Multiselect = True}
        If OpenFile.ShowDialog() = DialogResult.OK Then
            Dim buttons = Me.FlowLayoutPanel1.Controls.OfType(Of Button)()
            For Each fn As String In OpenFile.FileNames
                If buttons.Any(Function(x) x.Tag = fn) Then Continue For
                Dim btn = buttons.FirstOrDefault(Function(b) b.Enabled = False)
                If btn Is Nothing Then Exit For
                btn.Enabled = True
                btn.BackColor = Color.Turquoise
                btn.Tag = fn
            Next
        End If
    End Sub
End Class
الرد }}
تم الشكر بواسطة: asmarsou , asemshahen5 , ابو روضة , ابو روضة
#3
(11-01-22, 05:07 PM)E100 كتب :
كود :
Public Class Form1
   Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       Dim btnSize = New Size(25, 15)
       For i = 1 To 16
           Dim btn As New Button With {.Text = i, .Size = btnSize, .Enabled = False}
           btn.UseVisualStyleBackColor = True
           btn.Font = New Font("Microsoft Sans Serif", 5.0F)
           btn.Margin = New Padding(0)
           AddHandler btn.Click, AddressOf Bouton_Click
           Me.FlowLayoutPanel1.Controls.Add(btn)
       Next
       FlowLayoutPanel1.AutoSize = False
       FlowLayoutPanel1.AutoScroll = False
       FlowLayoutPanel1.Width = (btnSize.Width * 5)
       FlowLayoutPanel1.Height = (btnSize.Height * 3)
   End Sub
   Private Sub Bouton_Click(ByVal sender As Object, ByVal e As EventArgs)
       Dim btn As Button = sender
       MsgBox("you have clicked : button " & btn.Text & vbNewLine & IO.Path.GetFileName(btn.Tag))
   End Sub
   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
       Dim OpenFile As New OpenFileDialog With {.Multiselect = True}
       If OpenFile.ShowDialog() = DialogResult.OK Then
           Dim buttons = Me.FlowLayoutPanel1.Controls.OfType(Of Button)()
           For Each fn As String In OpenFile.FileNames
               If buttons.Any(Function(x) x.Tag = fn) Then Continue For
               Dim btn = buttons.FirstOrDefault(Function(b) b.Enabled = False)
               If btn Is Nothing Then Exit For
               btn.Enabled = True
               btn.BackColor = Color.Turquoise
               btn.Tag = fn
           Next
       End If
   End Sub
End Class

تمام التمام .... اتم الله عليك بوافر النعم و كفاك شر النقم
الف شكر اخي الكريم
الرد }}
تم الشكر بواسطة: asemshahen5 , asemshahen5 , ابو روضة , ابو روضة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عدم تكرار عنصر في مصفوفة atefkhalf2004 6 232 منذ 49 دقيقة مضت
آخر رد: atefkhalf2004
Thumbs Up كيفية برمجة القائمة العائمة أبو خالد الشكري 2 117 16-08-22, 12:42 PM
آخر رد: أبو خالد الشكري
Shocked [VB.NET] كيفية رسم النقاط بالفجوال NABIL40W 4 193 16-08-22, 09:04 AM
آخر رد: معاند الحظ
Heart [VB.NET] تفادي تكرار ادخال نفس العنصر في الداتاغريد فياو و تحديث خلية الكمية و السعر technomedia 19 758 07-08-22, 08:13 PM
آخر رد: technomedia
Photo [سؤال] كيفية تفعيل او الغاء امتداد ملف من فلتر الاوبن فايل ديالوج asmarsou 7 268 07-08-22, 03:00 AM
آخر رد: سعود
Brick كيفية الإغلاق التام لـقاعدة بيانات SQL أبو خالد الشكري 18 639 03-08-22, 02:11 PM
آخر رد: أبو خالد الشكري
  سؤال كيفية اظهار reportviewer فى Visual Studio 2019 mohamed2316 2 197 03-08-22, 03:07 AM
آخر رد: mohamed2316
  كود منع تكرار Lathe1 5 236 24-07-22, 09:58 PM
آخر رد: أبو خالد الشكري
  كيفية اضافة صورة كخلفية في الكريستال ريبورت atefkhalf2004 1 176 22-07-22, 05:06 PM
آخر رد: أبو خالد الشكري
  بالفيديو كيفية عمل تحديث للبرنامج crazykinko 1 219 20-07-22, 12:28 PM
آخر رد: معاند الحظ

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


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