تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] أرسم في كل زر رقم مختلف بطريقة أوتوماتكية
#1
Exclamation 
السلام عليكم


قمت بصناعة 10 أزرار بطريقة أوتوماتكية




أردت أن أرسم في كل زر رقم مختلف  بطريقة أوتوماتكية أيضا

باستخدام هذا الكود

لكن لم أنجح في ذلك بحيت يكتب نفس الرقم في جميع الأزرار 

أرجوا المساعدة من لديه أي فكرة
الرد
تم الشكر بواسطة: حريف برمجة , حريف برمجة , elgokr
#2
الرد
تم الشكر بواسطة: sniperjawadino , حريف برمجة , elgokr
#3
شكرا لك أخي

ما أريد هو أخد قيمة من الداتاجريد
فوضعت DataGridView1.Rows(i).Cells(2).Value مكان Sender.text

يعطيني هذا الخطأ


مثال صغير بالمرفقات
شكرا جزيييييلا


الملفات المرفقة
.zip   test_paint.zip (الحجم : 72.68 ك ب / التحميلات : 9)
الرد
تم الشكر بواسطة: حريف برمجة , elgokr , elgokr
#4
في الرسم دعه ياخذ القيمه من الخاصيه text كما وضحته لك في الرد السابق فلا تغيره

اما في الخاصيه text ضع القيمه التي تريدها مثل
ART.Text=DataGridView1.Rows(i).Cells(2).Value
الرد
تم الشكر بواسطة: حريف برمجة , elgokr
#5
لكن أخي سامي سأسقط في التكرار
بحيث سيضهر لي القيمة في text و نفس القيمة في الرسم
وأنا أريد أن أضهر الاسم في text و الثمن في الرسم
الرد
تم الشكر بواسطة: حريف برمجة , elgokr , elgokr
#6
(17-05-19, 05:19 PM)sniperjawadino كتب : لكن أخي سامي سأسقط في التكرار
بحيث سيضهر لي القيمة في text و نفس القيمة في الرسم
وأنا أريد أن أضهر الاسم في text و الثمن في الرسم


في هذه الحاله عليك بعمل زر جديد له خاصيه اضافيه للثمن مثل
Public Class ARTButton
    Inherits Button

    Property x As String

    Private Sub ARTButton_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawString(x, New System.Drawing.Font("Tahoma", 11.25!, System.Drawing.FontStyle.Bold), New SolidBrush(Color.FromArgb(45, 172, 217)), 5, Me.Height - 25)
    End Sub

End Class



الان تستطيع عمل صناعه ازارير من الزر الجديد مثل
Dim ART As New ARTButton

وتضع الثمن فيالخاصيه x الجديده مثل
ART.x=DataGridView1.Rows(i).Cells(2).Value

لا تنس حذف
AddHandler ART.Paint, AddressOf ART_Paint
لانك لم تعد بحاجه لان paint موجوده في كود الزر الجديد

وفي الحدث ART_click
تستطيع اظهار
sender.text الاسم
او
sender.x الثمن
الرد
تم الشكر بواسطة: sniperjawadino , حريف برمجة , حريف برمجة , elgokr
#7
أخي سامي
الشكر و التقييم ماهو إلا أصغر شيئ أعبر به
شكرا شكرا شكرا

ممكن تنصحني بأحد الدروس لكي أتعلم مثل هده الأفكار
استخدام الوراثة و صنع أزرار
الرد
تم الشكر بواسطة: حريف برمجة , حريف برمجة , elgokr , elgokr
#8
(17-05-19, 11:10 PM)sniperjawadino كتب : أخي سامي
الشكر و التقييم ماهو إلا أصغر شيئ أعبر به
شكرا شكرا شكرا

ممكن تنصحني بأحد الدروس لكي أتعلم مثل هده الأفكار
استخدام الوراثة و صنع أزرار

اشكرك اخي الكريم

صراحه لا اعرف دروسمحدده
ولكني تلعمتها بشكل محدود من مواضيع بعض الاعضاء قبل سنوات ثم انقطعت ولا اذكر عناوينها
الرد
تم الشكر بواسطة: حريف برمجة , elgokr
#9
(18-05-19, 12:04 AM)sami4 كتب : اشكرك اخي الكريم

صراحه لا اعرف دروسمحدده
ولكني تلعمتها بشكل محدود من مواضيع بعض الاعضاء قبل سنوات ثم انقطعت ولا اذكر عناوينها

شكرا أخي سامي
جعلها لك الله في ميزان حسناتك
الرد
تم الشكر بواسطة: حريف برمجة , حريف برمجة , elgokr



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


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