[ali.alfoly]

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

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 


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

[Abu Ehab]

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

PHP كود :

Me.Controls.Add(btn1) 


[@@أبورائد@@]

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

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

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

PHP كود :

Me.Controls.Add(btn1) 


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

[ali.alfoly]

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


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

[@@أبورائد@@]

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

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

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




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

[ali.alfoly]

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


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

PHP كود :

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


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

[Abu Ehab]

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

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 


[ali.alfoly]

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

[3booody]

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

كود :

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