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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 225 25-02-24, 11:26 PM
آخر رد: heem1986
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 159 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,124 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  معرفة عدد مرات تكرار الاسم في الداتاقريدفيو صالح عبدالله 8 426 05-02-24, 04:39 PM
آخر رد: صالح عبدالله
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 305 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  [سؤال] كيفية ربط ماكينة الدفع ببرنامج الكاشير ؟ osamaelmaghraby 3 324 26-12-23, 11:53 PM
آخر رد: osamaelmaghraby
  كيفية رسم بيان دالة رياضية؟ الخير19 6 415 23-12-23, 03:36 PM
آخر رد: الخير19

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


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