[RaggiTech]

طلب احد الاخوان هنا ... ان يتم تغير العلامة "." الى " ،" تلقائيا وسأل كيف يتم تطبيقها على العديد من عناصر التحكم TextBox ..
ولتنفيذ ذلك كل ماعلينا هو الذهاب الى مشروعنا ..
واضافة الكود التالي عند حدث
LostFocus

الكود

كود :

[color=#000000][COLOR=#007700]Private [/color][color=#0000bb]Sub MohdTextBox_LostFocus[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/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 Me[/color][color=#007700].[/color][COLOR=#0000bb]LostFocus
Dim newstr [/COLOR][color=#007700]As [/color][COLOR=#0000bb]String
Dim oldstr [/COLOR][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][color=#0000bb]Me[/color][color=#007700].[/color][COLOR=#0000bb]Text
newstr [/COLOR][color=#007700]= [/color][color=#0000bb]oldstr[/color][color=#007700].[/color][color=#0000bb]Replace[/color][color=#007700]([/color][color=#dd0000]"."[/color][color=#007700], [/color][color=#dd0000]"،"[/color][COLOR=#007700])
[/COLOR][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#0000bb]newstr
End Sub  
[/COLOR][/COLOR]

يتبع ....