تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف اضع حدث الضغط click عند انشاء عنصر
#1
السلام عليكم
من خلال كود لما اريد انشاء عنصر ا و ليكن صورة  استعمل الكود التالي :

PHP كود :
Novo = New PictureBox
                Controls
.Add(NovoN)
 
             NovoN.Size = New Size(5050)
 
               NovoN.BackColor Color.Red
                NovoN
.Location = New Point(200200)
 
               NovoN.Name "Pic" 

السؤال هو التالي :
 

كيف اضيف له خاصية الحدث لما اضغط عليه click  يظهر موقعه
 تماما كهذا اكود الذي نضعه لصورة ما لا اضضغط عليها تحدد موقعها

PHP كود :
Private Sub PictureBox1_Click_1(ByVal sender As System.ObjectByVal e As System.EventArgsHandles PictureBox1.Click
        Label1
.Text PictureBox1.Location.ToString
    End Sub 

ارجو ان السؤال مفهوم
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد
تم الشكر بواسطة:
#2
اضف handle للمتغير novo مع انشا ميثود له
مثل
PHP كود :
addHandler novo.clickAddressof novo_Click 

الميثود
PHP كود :
sub novo_click(sender as object,as eventargs)
Label1.Text sender.Location.ToString
end sub 
الرد
#3
أضف السطر التالي :


كود :
AddHandler Novo.Click, Sub(s, ev) Label1.Text = Novo.Location.ToString
الرد
#4
(08-08-20, 11:13 PM)Anas Mahmoud كتب : أضف السطر التالي :


كود :
AddHandler Novo.Click, Sub(s, ev) Label1.Text = Novo.Location.ToString

ممتاز اخي انس
طريقه مختصره
الرد
#5
(08-08-20, 11:13 PM)Anas Mahmoud كتب : أضف السطر التالي :


كود :
AddHandler Novo.Click, Sub(s, ev) Label1.Text = Novo.Location.ToString

(08-08-20, 11:20 PM)بلدي كتب :
(08-08-20, 11:13 PM)Anas Mahmoud كتب : أضف السطر التالي :


كود :
AddHandler Novo.Click, Sub(s, ev) Label1.Text = Novo.Location.ToString

ممتاز اخي انس
طريقه مختصره

شكرا جزيلا .............
هل فيه لقطة من اجل انشاء مثلا 100 صورة و كلها تحمل  كود الكليك 
يعني مثلا 


PHP كود :
 For i 0 To Mh Step 40
            For p 
0 To Mw Step 40
                NovoN 
= New PictureBox
                Controls
.Add(NovoN)
 
               NovoN.Size = New Size(55)
 
               NovoN.BackColor Color.Red
                NovoN
.Location = New Point(22)
 
               NovoN.Name "Pic" gh
                NovoN
.Cursor Cursors.Hand
                AddHandler NovoN
.ClickSub(sevLabel1.Text NovoN.Location.ToString
                gh 
+= 1

            Next
        Next 
هذا الكود ينشء مربعات صغيرة و كل ما اضع الماووس عليها يظهر شكل يد 
الان كلما اضغط على اي منها يظهر نفس النتيجة 

كيف التعديل ؟

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

اذا اردت كود الاخ انس فعدل s.Location.ToString
الرد
#7
(08-08-20, 11:33 PM)بلدي كتب : كود اخى انس ممتاز
لكن لم تجرب مشاركتى

اذا اردت كود الاخ انس فعدل s.Location.ToString

جميل جدا ............كله تمام ربي يحفظك استاذ بلدي
حفظك الله و الاخ انس من كل سوء
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد
#8
العفو اخ عبد الهادي
الرد
تم الشكر بواسطة: عبد الهادي بهاب , حريف برمجة
#9
(08-08-20, 11:48 PM)بلدي كتب : العفو اخ عبد الهادي

السلام عليكم

في نفس السياق كيف اجعل الحدث فيه اكثر من مطلب
يعني في المثال السابق
لما يضغط يظهر  مكانه في الليبال
كيف اضيف له امر اخر يفعل وظيفة function

يعني يظهر مكانه و يشغل وظيفة و لتكن Mysub()

شكرا
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد
تم الشكر بواسطة:
#10
لقد قمت بتكرار الامر في كل مرة
AddHandler NovoN.Click, Sub(s, ev) Rep = s.name
AddHandler NovoN.Click, Sub(s, ev) correction()
و نجح
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد
تم الشكر بواسطة: بلدي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في كود انشاء الـ Button VB.NET 23 5,903 , 11:52 PM
آخر رد: عبدالكريم رشدان
  [سؤال] اريد ان انشاء تطبيقات في الاندرويد من اين ابدأ بسام محمدغانم 2 136 01-12-20, 05:02 AM
آخر رد: sendbad100
  عند الضغط على مفتاح enter من لوحة المفاتيح EHAB.NET 7 4,200 27-11-20, 07:15 PM
آخر رد: Anas Mahmoud
  هل ممكن انشاء نسخة احتياطية بهذه الطريقه كريم عبودي 2 106 27-11-20, 06:06 PM
آخر رد: كريم عبودي
  [سؤال] انشاء ازرار مع تعيين حدث النقر لكل زر bidaya 8 2,134 26-11-20, 03:07 AM
آخر رد: Anas Mahmoud
  [سؤال] السلام عليكم موضوعي بخصوص ضغط وفك الضغط ولدي استفسارات اليوم السابع 0 75 11-11-20, 11:41 PM
آخر رد: اليوم السابع
  [سؤال] مساعد في انشاء دالة متغيرة لعرض التقرير alaa.alnaser91 0 133 10-10-20, 02:53 PM
آخر رد: alaa.alnaser91
  المساعدة في انشاء شريط تحميل progress bar MustafaShaker 0 246 16-09-20, 05:41 PM
آخر رد: MustafaShaker
  [سؤال] تغير لون Label عند الضغط عليه (على أساس إجابة صحيحة) HUNTER25 8 481 07-09-20, 01:56 AM
آخر رد: Hasaneen
  [سؤال] اخفاء عنصر من صفحة العمل دون حذفه عبد الهادي بهاب 2 356 14-08-20, 06:58 PM
آخر رد: عبد الهادي بهاب

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


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