منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف اضع حدث الضغط click عند انشاء عنصر

الصفحات : 1 2

السلام عليكم
من خلال كود لما اريد انشاء عنصر ا و ليكن صورة استعمل الكود التالي :

PHP كود :

Novo = New PictureBox
                Controls.Add(NovoN)
              NovoN.Size = New Size(50, 50)
                NovoN.BackColor = Color.Red
                NovoN.Location = New Point(200, 200)
                NovoN.Name = "Pic" 

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

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

PHP كود :

Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Label1.Text = PictureBox1.Location.ToString
    End Sub 

ارجو ان السؤال مفهوم

اضف handle للمتغير novo مع انشا ميثود له
مثل

PHP كود :

addHandler novo.click, Addressof novo_Click 

الميثود

PHP كود :

sub novo_click(sender as object,e as eventargs)
Label1.Text = sender.Location.ToString
end sub 

أضف السطر التالي :

كود :

AddHandler Novo.Click, Sub(s, ev) Label1.Text = Novo.Location.ToString

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

كود :

AddHandler Novo.Click, Sub(s, ev) Label1.Text = Novo.Location.ToString

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

(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(5, 5)
                NovoN.BackColor = Color.Red
                NovoN.Location = New Point(p - 2, i - 2)
                NovoN.Name = "Pic" & gh
                NovoN.Cursor = Cursors.Hand
                AddHandler NovoN.Click, Sub(s, ev) Label1.Text = NovoN.Location.ToString
                gh += 1

            Next
        Next 

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

كيف التعديل ؟

شكرا مسبقا

كود اخى انس ممتاز
لكن لم تجرب مشاركتى

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

(08-08-20, 11:33 PM)بلدي كتب : [ -> ]كود اخى انس ممتاز
لكن لم تجرب مشاركتى

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

جميل جدا ............كله تمام ربي يحفظك استاذ بلدي
حفظك الله و الاخ انس من كل سوء

العفو اخ عبد الهادي

(08-08-20, 11:48 PM)بلدي كتب : [ -> ]العفو اخ عبد الهادي

السلام عليكم

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

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

شكرا

لقد قمت بتكرار الامر في كل مرة
AddHandler NovoN.Click, Sub(s, ev) Rep = s.name
AddHandler NovoN.Click, Sub(s, ev) correction()
و نجح

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عبد الهادي بهاب

بلدي

Anas Mahmoud

بلدي

عبد الهادي بهاب

بلدي

عبد الهادي بهاب

بلدي

عبد الهادي بهاب

عبد الهادي بهاب