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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف اربط صب معين مع كنترول تم انشائه برمجيا (/showthread.php?tid=8663)

الصفحات: 1 2

كيف اربط صب معين مع كنترول تم انشائه برمجيا - ali.alfoly - 27-04-13

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

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

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

كيف اربط صب معين مع كنترول تم انشائه برمجيا - @@أبورائد@@ - 27-04-13


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





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


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 - 27-04-13

نعم صحيح ولا تنسى تظهره على الفورم ...
PHP كود :
Me.Controls.Add(btn1) 


كيف اربط صب معين مع كنترول تم انشائه برمجيا - @@أبورائد@@ - 27-04-13


السلام عليكم ورحمة الله وبركاته
Abu Ehab كتب :[b]نعم صحيح ولا تنسى تظهره على الفورم ...
PHP كود :
Me.Controls.Add(btn1) 



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

كيف اربط صب معين مع كنترول تم انشائه برمجيا - ali.alfoly - 27-04-13

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


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

كيف اربط صب معين مع كنترول تم انشائه برمجيا - @@أبورائد@@ - 27-04-13


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



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


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




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

كيف اربط صب معين مع كنترول تم انشائه برمجيا - ali.alfoly - 27-04-13

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


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

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

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

كيف اربط صب معين مع كنترول تم انشائه برمجيا - Abu Ehab - 27-04-13

يبدو أبو رائد غير متواجد الأن ...
بعد أذن أستاذي أبو رائـــــــــــد :
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 - 27-04-13

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

كيف اربط صب معين مع كنترول تم انشائه برمجيا - 3booody - 27-04-13

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

كود :
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