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

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

تشغيل اكواد خاصة بحدث معين من داخل حدث اخر - RaggiTech - 03-10-12

كاتب الموضوع : !!! BoriS !!!

عند كتابة اكوادك داخل Sub معين فسيتم تشغيل هذا ال Sub عند منادة داخل الحدث المحدد التى تريد تشغيل ال Sub من داخلة


كود :
[color=#000000][COLOR=#0000bb][/color][color=#007700]Public [/color][color=#0000bb]Sub VB4ARAB[/color][COLOR=#007700]()
[/COLOR][color=#0000bb]Messagebox[/color][color=#007700].[/color][color=#0000bb]show [/color][color=#007700]([/color][color=#dd0000]""[/color][COLOR=#007700])  
[/COLOR][COLOR=#0000bb]end sub  
[/COLOR][/COLOR]

وتشغيلة مثلا من هنــــــا ....

كود :
[color=#000000][COLOR=#0000bb][/color][color=#007700]Private [/color][color=#0000bb]Sub TextBox1_TextChanged[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles TextBox1[/color][color=#007700].[/color][COLOR=#0000bb]TextChanged
        VB4ARAB[/COLOR][COLOR=#007700]()
    [/COLOR][COLOR=#0000bb]End Sub  
[/COLOR][/COLOR]

بكل بساطة

اما ان أردت مناداة الاكواد الخاصة بالحدث TextBox1_TextChanged والتى هى لتشغيل ال VB4ARAB() Sub من خلالة فاليك الكود ...

كود :
[color=#000000][COLOR=#0000bb]  [/color][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click
        TextBox1_TextChanged[/COLOR][color=#007700]([/color][color=#0000bb]Me[/color][color=#007700], [/color][color=#0000bb]EventArgs[/color][COLOR=#007700].Empty)
    [/COLOR][COLOR=#0000bb]End Sub  
[/COLOR][/COLOR]

هنا قمنا بمنادة الحدث TextBox1_TextChanged من داخل ال Button ..

كود بسيط ولكنة هام

تحياتى