03-10-12, 08:35 AM
كاتب الموضوع : !!! 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 ..
كود بسيط ولكنة هام
تحياتى