تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل يمكن اضافة اكثر من tag فى ال button
#11
للاسف فعلا البوتون ماتقدرتش تضيف فيه غير في ال Tag

ممكن ده يبقى حل مناسب 

نعمل class نحط فيه الخصائص اللي عاوزينها للبوتون 

وبعدين نعمل منه نسخة لكل بوتون ونحطها في التاج 

وبعدين ناخد البيانات دي من التاج لما نحتاجها 

كود :
Class Product
   Public Property ID As Integer
   Public Property [Name] As String
   Public Property Price As Double
   Public Property TaxPrice As Double
   Public Property Discount As Double
   Public Property Descripton As String
End Class

لما نضيف زر جديد نعمل نسخة من الكلاس :

كود :
       Dim ProductInfo As New Product

       ProductInfo.ID = CInt(TxtID.Text)
       ProductInfo.Name = TxtName.Text
       ProductInfo.Price = CDbl(TxtPrice.Text)
       ProductInfo.TaxPrice = CDbl(TxtTaxPrice.Text)
       ProductInfo.Discount = CDbl(TxtDiscount.Text)
       ProductInfo.Descripton = TxtDescription.Text

وبعدين نحط النسخة دي في التاج وكمان نحط الاسم والتكست :

كود :
       ProductButton.Tag = ProductInfo
       ProductButton.Name = ProductInfo.ID
       ProductButton.Text = ProductInfo.Name




وفي حدث الضغط على الزر نأخد النسخة دي ونضيف اللي فيها للداتا جريد :
كود :
        Private Sub ProductButton_Click(sender As Object, e As EventArgs)
        Dim ProductButton As Button = sender
        Dim ProductInfo As Product = ProductButton.Tag
        DataGridView1.Rows.Add(ProductInfo.ID, ProductInfo.Name, ProductInfo.Price, ProductInfo.TaxPrice, ProductInfo.Discount, ProductInfo.Descripton)
    End Sub
ماتنساش تضيف الحدث عند انشاء الزر  :
كود :
       AddHandler ProductButton.Click, AddressOf ProductButton_Click

شوف المثال ده انشاء ازرار وتخزين فيها البيانات المطلوبة وعند الضغط عليها تضيف اللي فيها للجريد 

   


الملفات المرفقة
.zip   ButtonClass.zip (الحجم : 61.11 ك ب / التحميلات : 22)
الرد }}}
#12
(04-08-20, 11:17 AM)Anas Mahmoud كتب : للاسف فعلا البوتون ماتقدرتش تضيف فيه غير في ال Tag

ممكن ده يبقى حل مناسب 

نعمل class نحط فيه الخصائص اللي عاوزينها للبوتون 

وبعدين نعمل منه نسخة لكل بوتون ونحطها في التاج 

وبعدين ناخد البيانات دي من التاج لما نحتاجها 

كود :
Class Product
   Public Property ID As Integer
   Public Property [Name] As String
   Public Property Price As Double
   Public Property TaxPrice As Double
   Public Property Discount As Double
   Public Property Descripton As String
End Class

لما نضيف زر جديد نعمل نسخة من الكلاس :

كود :
       Dim ProductInfo As New Product

       ProductInfo.ID = CInt(TxtID.Text)
       ProductInfo.Name = TxtName.Text
       ProductInfo.Price = CDbl(TxtPrice.Text)
       ProductInfo.TaxPrice = CDbl(TxtTaxPrice.Text)
       ProductInfo.Discount = CDbl(TxtDiscount.Text)
       ProductInfo.Descripton = TxtDescription.Text

وبعدين نحط النسخة دي في التاج وكمان نحط الاسم والتكست :

كود :
       ProductButton.Tag = ProductInfo
       ProductButton.Name = ProductInfo.ID
       ProductButton.Text = ProductInfo.Name




وفي حدث الضغط على الزر نأخد النسخة دي ونضيف اللي فيها للداتا جريد :
كود :
        Private Sub ProductButton_Click(sender As Object, e As EventArgs)
        Dim ProductButton As Button = sender
        Dim ProductInfo As Product = ProductButton.Tag
        DataGridView1.Rows.Add(ProductInfo.ID, ProductInfo.Name, ProductInfo.Price, ProductInfo.TaxPrice, ProductInfo.Discount, ProductInfo.Descripton)
    End Sub
ماتنساش تضيف الحدث عند انشاء الزر  :
كود :
       AddHandler ProductButton.Click, AddressOf ProductButton_Click

شوف المثال ده انشاء ازرار وتخزين فيها البيانات المطلوبة وعند الضغط عليها تضيف اللي فيها للجريد 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود dell 0 48 19-03-24, 01:23 AM
آخر رد: dell
  [سؤال] undo/redo button mohamed sabry 1 156 15-01-24, 11:33 AM
آخر رد: تركي الحلواني
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
  اضافة ادوات لفيجوال بيسك خالد20 10 1,977 18-12-23, 07:51 PM
آخر رد: ابراهيم عبدالباقى
  طريقة إسناد اكثر من جدول للكريستال ريبورت Adel27213 2 353 25-11-23, 11:51 PM
آخر رد: Adel27213
  [VB.NET] حذف اكثر من سطر محدد في جرد فيو h2551996 3 439 25-11-23, 12:30 PM
آخر رد: h2551996
  [VB.NET] كيف يمكن إخفاء ظهور الشاشة السوداء فى الـــ console AmeenRashed 2 316 15-11-23, 03:51 PM
آخر رد: justforit
  ما أسرع استضافة يمكن رفع المشروع عليها ؟ hazim1 0 197 03-10-23, 08:55 AM
آخر رد: hazim1
  كيف يمكن تأخير الـSplash Screen حتى يتم تحميل الأدوات بالكامل؟ hazim1 0 270 28-09-23, 08:23 AM
آخر رد: hazim1
  هل يمكن نسخ احتياطي لأسماء الButtons ؟ hazim1 2 238 21-09-23, 07:32 PM
آخر رد: hazim1

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


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