منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف اربط صب معين مع كنترول تم انشائه برمجيا

الصفحات : 1 2

السلام عليكم ورحمة الله وبركاته
قمت بعمل كنترول بالكود مثلا

PHP كود :

Dim btn1 As New Button
        With btn1
            .Text = "OK"
            .Width = 108
            .Height = 23
            .TabIndex = 1
            .Location = New Point(259, 103)
        End With 

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

السلام عليكم ورحمة الله وبركاته

تفضل إن شاء الله يكون واضح

PHP كود :

Dim btn1 As New Button 
With btn1 
    .Text = "OK" 
    .Width = 108 
    .Height = 23 
    .TabIndex = 1 
    .Location = New Point(259, 103) 
    AddHandler .Click, AddressOf btnClick
End With



' الحدث
Private Sub btnClick(ByVal sender As Object, ByVal e As System.EventArgs)
    ''
    ''
    ''
End Sub


' بالامكان جعل الحدث كالتالي لكن السابق أفضل
Private Sub btnClick()
    ''
    ''
    ''
End Sub 

السلام عليكم ورحمة الله وبركاته

نعم صحيح ولا تنسى تظهره على الفورم ...

PHP كود :

Me.Controls.Add(btn1) 

السلام عليكم ورحمة الله وبركاته

معجب بهذه المشاركة [b]@@أبورائد@@[/b]

Abu Ehab كتب :[b]نعم صحيح ولا تنسى تظهره على الفورم ...

PHP كود :

Me.Controls.Add(btn1)

[/b]
السلام عليكم ورحمة الله وبركاته

جزاك الله خير ابو رائد حبيبى هذا بالفعل ماكنت ابحث عنه وما كنت اعرفه

لى سؤال اخر
انا انشاءة فورم بالكود كما ترى وبطن وربط البطن بالكلاس تمام
اريد الكلاس ينفذ امر على الفورم كيف يتم ذلك
مثلا اريد عند الضغط على الزر يكبر حجم الفوم مثلا 20 بكسل للاسفل

السلام عليكم ورحمة الله وبركاته

ali.alfoly كتب :لى سؤال اخر
انا انشاءة فورم بالكود كما ترى وبطن وربط البطن بالكلاس تمام
اريد الكلاس ينفذ امر على الفورم كيف يتم ذلك
مثلا اريد عند الضغط على الزر يكبر حجم الفوم مثلا 20 بكسل للاسفل

محتاجة توضيح أكثر

السلام عليكم ورحمة الله وبركاته

معلش يا ابو ايهاب والله مختش بالى من مشاركتك شكرا لك على التوضيح

بالنسبه اخى ابو رائد

PHP كود :

Dim Frm As New Form
        With Frm
            .ShowIcon = False
            .Width = 385
            .Height = 166
            '
            .Controls.Add(btn1)
        End With 

انظر البطن الذى انشئاته برمجيا تم وضعه على الفورم الذى ايضا انشائته برمجيا
عايز اكتب فى الصب الخاص بالزر كود يغير حجم الفورم
مثلا عند الضغط على الزر يزيد عرض او الطول الفورح

يبدو أبو رائد غير متواجد الأن ...
بعد أذن أستاذي أبو رائـــــــــــد :

PHP كود :

Private Sub btnClick(ByVal sender As Object, ByVal e As System.EventArgs)
        Me.Width = Me.Width + 200
        Me.Height = Me.Height + 200

    End Sub 

حبيبى ابو ايهاب جزاك الله خير
انا اعرف ان كلمة Me تعود على الفورم الحالى لاكن مش هينفع لان الفورم وكل الكنترول تم انشائه داخل مكتبات كلاسات فهناك غير معترف بكلمة Me داخل الصب او الفنكشن
انظر الصورة
[ATTACH=CONFIG]2508[/ATTACH]

السلام عليكم ورحمة الله وبركاته
تفضل اخي

كود :

Public Class Form1

    Dim Frm As New Form

    Dim btn1 As New Button

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        With Frm

            .ShowIcon = False

            .Width = 385

            .Height = 166

            .Show()

        End With

        With btn1

            .Text = "OK"

            .Width = 108

            .Height = 23

            .TabIndex = 1

            .Location = New Point(259, 103)

        End With

        Frm.Controls.Add(btn1)

    End Sub

    Private Sub btn1_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        Frm.Width = 533

        Frm.Height = 133

    End Sub

End Class

الصفحات : 1 2