منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] أرسم في كل زر رقم مختلف بطريقة أوتوماتكية - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [VB.NET] أرسم في كل زر رقم مختلف بطريقة أوتوماتكية (/showthread.php?tid=29627)



أرسم في كل زر رقم مختلف بطريقة أوتوماتكية - sniperjawadino - 16-05-19

السلام عليكم


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




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

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

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

أرجوا المساعدة من لديه أي فكرة


RE: أرسم في كل زر رقم مختلف بطريقة أوتوماتكية - sami4 - 16-05-19




RE: أرسم في كل زر رقم مختلف بطريقة أوتوماتكية - sniperjawadino - 17-05-19

شكرا لك أخي

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

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


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


RE: أرسم في كل زر رقم مختلف بطريقة أوتوماتكية - sami4 - 17-05-19

في الرسم دعه ياخذ القيمه من الخاصيه text كما وضحته لك في الرد السابق فلا تغيره

اما في الخاصيه text ضع القيمه التي تريدها مثل
ART.Text=DataGridView1.Rows(i).Cells(2).Value


RE: أرسم في كل زر رقم مختلف بطريقة أوتوماتكية - sniperjawadino - 17-05-19

لكن أخي سامي سأسقط في التكرار
بحيث سيضهر لي القيمة في text و نفس القيمة في الرسم
وأنا أريد أن أضهر الاسم في text و الثمن في الرسم


RE: أرسم في كل زر رقم مختلف بطريقة أوتوماتكية - sami4 - 17-05-19

(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 الثمن


RE: أرسم في كل زر رقم مختلف بطريقة أوتوماتكية - sniperjawadino - 17-05-19

أخي سامي
الشكر و التقييم ماهو إلا أصغر شيئ أعبر به
شكرا شكرا شكرا

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


RE: أرسم في كل زر رقم مختلف بطريقة أوتوماتكية - sami4 - 18-05-19

(17-05-19, 11:10 PM)sniperjawadino كتب : أخي سامي
الشكر و التقييم ماهو إلا أصغر شيئ أعبر به
شكرا شكرا شكرا

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

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

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


RE: أرسم في كل زر رقم مختلف بطريقة أوتوماتكية - sniperjawadino - 18-05-19

(18-05-19, 12:04 AM)sami4 كتب : اشكرك اخي الكريم

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

شكرا أخي سامي
جعلها لك الله في ميزان حسناتك