تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية معرفة قيمة الزر Button الحالي
#1
السلام عليكم ورحمة الله وبركاته

مرحبا أخواني الأعزاء ،،،

لدي سؤال من نقطتين ...

النقطة الأولى:
لدي دالة لعمل أمر معين وهو

كود :
MessageBox.Show("الأمر رقم")


الدالة تطبع لي رسالة على الشاشة فيما رقم الأمر
استدعي الدالة في اكثر من زر من خلال اسم الدالة

في كل مره استدي الدالة أأخذ قيمة الزر من خلال الأمر

كود :
Dim button As Button = sender
button.Text


أردت اختصار الكود بحيث اضم المتغير button للدالة بحيث لا أعيد كتابتة في كل مره ولكن واجهتني مشكلة مع الأخ sender حيث انه متغير من ضمن نطاق أمر الزر فكيف اتغلب على هذا الأمر ؟


النقطة الثانية:
خطر في بالي حل آخر وهو
الآن لدي 10 button كل زر يحمل قيمة أريد طباعتها ، كيف أعرف الزر التي تم الضغط عليه أثناء الضغط عليه حتى يتسنى لي أخذ قيمته ؟


اتمنى مسألتي تكون واضحة لأنها توفر علي كتابة code.
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.
الرد
تم الشكر بواسطة:
#2
سلام

لا أدري هل تقصد دمج حدث الضغط للعشرة button في حدث واحد وتستدعي داله مثل هذا
كود :
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click
    mySub(sender)
End Sub

Sub mySub(ByVal button As Button)
    MsgBox("الامر رقم " & button.Text)
End Sub

او بدون استدعاء داله يعني مباشرة مثل هذا
كود :
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click
    MsgBox("الامر رقم " & sender.Text)
End Sub

او مثل هذا
كود :
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click
    mySub(sender)
End Sub

Private Sub mySub(ByVal button As Button)
    If button Is Button1 Then
        MsgBox("الامر رقم واحد")

    ElseIf button Is Button2 Then
        MsgBox("الامر رقم اثنين")

    ElseIf button Is Button3 Then
        MsgBox("الامر رقم ثلاثة")

    ElseIf button Is Button4 Then
        MsgBox("الامر رقم اربعة")

    End If

End Sub

او مثل هذا
كود :
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click
    mySub(sender)
End Sub

Private Sub mySub(ByVal button As Button)

    Select Case button.Name

        Case Button1.Name
            MsgBox("الامر رقم واحد")

        Case Button2.Name
            MsgBox("الامر رقم اثنين")

        Case Button3.Name
            MsgBox("الامر رقم ثلاثة")

        Case Button4.Name
            MsgBox("الامر رقم اربعة")

    End Select
End Sub
موفقين
متغيب
الرد
تم الشكر بواسطة: عبد الله , محمود رغمان
#3
وعليكم السلام

أخي أنت انسان متميز تستحق اللقب الذي تحمله عن جدارة اسأل الله أن يبارك فيك ولك.

الكود الأول بتمرير sender حلت المشكلة ( وكنت أغفل عنها لجهلي ).

والكود الثاني يؤدي لنفس الحل وبهذا الكود يكون شكل البرنامج مرتب.

والكود الثالث والرابع جمع بين الأول والثاني.

تم الحل وجزاك الله خيرا.
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.
الرد
تم الشكر بواسطة: الطالب


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية جلب مدة تشغيل عدة ملفات صوتية قبل تشغيلها asmarsou 2 124 21-02-21, 12:56 PM
آخر رد: asmarsou
  [VB.NET] كيفية حفظ ملف pdf الي قاعدة بيانات اكسس واسترجاعها Lathe1 5 151 20-02-21, 12:47 AM
آخر رد: Lathe1
  كيفية حفظ ملف pdf الي قاعدة بيانات اكسس واسترجاعها Lathe1 0 57 19-02-21, 10:04 AM
آخر رد: Lathe1
  [سؤال] سؤال كيفية حفظ بيانات مع تشفيرها alims 8 527 18-02-21, 10:54 PM
آخر رد: سعيد كنيمو
  كيفية حل هذا الخطــأ Mahmoud41 0 85 16-02-21, 08:10 PM
آخر رد: Mahmoud41
  كيفية حل هذا الخطــأ Mahmoud41 0 70 16-02-21, 08:07 PM
آخر رد: Mahmoud41
Rainbow عندي سؤال عن كيفية البحث في نص وتحليل النص واستخراج المطلوب منه rafraf 0 173 04-02-21, 10:23 AM
آخر رد: rafraf
  انتقال إلى سطر جديد بواسطة ضغط الزر انتر Alhootti1 10 704 03-02-21, 01:23 PM
آخر رد: Alhootti1
  كيفية معرفة حالة الطابعة ؟ programmer_25 0 177 30-01-21, 10:58 PM
آخر رد: programmer_25
  كيفية تفريغ محتويات جميع الجداول داخل قاعدة البيانات Lathe1 3 276 29-01-21, 08:43 AM
آخر رد: سعود

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


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