تقييم الموضوع :
  • 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 ك ب / التحميلات : 17)
الرد
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيفية اضافة drm لمتصفح geckofx لسبسيب 2 82 27-10-20, 02:51 PM
آخر رد: لسبسيب
  كيف يمكن تلوين عدد من صفوف ListBox ؟ عبد الله 15 3,653 08-10-20, 01:24 PM
آخر رد: MetoDas
  [VB.NET] اضافة ازرار حسب عدد متغير في قاعدة البيانات Ad Heart 2 457 08-10-20, 05:07 AM
آخر رد: Ad Heart
  [VB.NET] هل يمكن ارسال اشعار للمستخدمين ميدو الفنان 0 87 06-10-20, 05:49 PM
آخر رد: ميدو الفنان
  اضافة button في مكان محدد علي قورم atefkhalf2004 9 421 05-10-20, 10:08 AM
آخر رد: atefkhalf2004
  الملفات الناتجة اكثر من المستخدمة في مكونات ديفاكسبريس ابو محمد محمد محمد 3 294 30-09-20, 12:29 AM
آخر رد: محمد كريّم
  [VB.NET] اضافة اللغة واستردادها من ملف بصيغة ini ميدو الفنان 11 1,121 25-09-20, 04:08 PM
آخر رد: عمور2016
  اضافة ملف pdf الى قاعدة بيانات sql server 2012 moh developer 5 229 25-09-20, 03:01 PM
آخر رد: moh developer
  مشكلة في كود اضافة الى sql 2012 moh developer 13 589 25-09-20, 01:25 AM
آخر رد: Mohamad Anan
  هل يمكن اضافة اشعار صوتى mostafa nada 3 231 22-09-20, 03:36 PM
آخر رد: mostafa nada

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


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