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

كاتب الموضوع : !!! 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 ..

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

تحياتى

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

RaggiTech